关于vb程序设计。

Private Sub Command1_Click()
Dim aa() As Integer
Dim bb() As Integer
Dim cc() As Integer
Dim Flag As Boolean
Dim k As Integer

ReDim Preserve aa(0)
ReDim Preserve bb(0)
ReDim Preserve cc(0)

For a = 1 To 30
For b = 1 To 30
For c = 1 To 30
If a * a + b * b = c * c Then
'去除重复的数据
For i = 0 To UBound(aa)
If b = aa(i) And a = bb(i) Then Flag = True
Next
If Not Flag Then
aa(k) = a
bb(k) = b
cc(k) = c
k = k + 1
ReDim Preserve aa(k)
ReDim Preserve bb(k)
ReDim Preserve cc(k)
Print a, b, c

End If
Flag = False
End If
Next
Next
Next
Print "总共有"; k; "组勾股数"
End Sub

345
if(a*a