先计算这个 IF 后面的表达式，如果表达式结果不为0就执行 IF 内语句。
0表示false 非0表示true
If a * a + b * b - c * c Then
相当于
If a * a + b * b - c * c <> 0 Then
我看是这样
Private Sub Command1_Click()
n = 0
For a = 1 To 20
For b = 1 To 20
For c = 1 To 20
If a * a + b * b = c * c Then
n = n + 1
End If
Next c
Next b
Next a
Print n
End Sub
结果 n=12
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024