用下面的程序算出60内勾股数组数有哪里不对PrivateSubCommand1Click()DimiAsIntegerDimjAsIntegerDimkAsIntegerDimsumAsIntegerFori=2To60Forj=iTo60k=(i^2+j^2)^0.5Ifk

Question

用下面的程序算出60 内勾股数组数有哪里不对
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim sum As Integer
For i =2 To 60
For j = i To 60
k = (i ^ 2 + j ^ 2) ^ 0.5
If k

Answer 1

你没判断K是否是整数
改成这个
if k