VB习题求答案

来源：百度知道 编辑：UC知道 时间：2024/04/27 23:01:16
勾股定理 a平方+b平方=c平方 求30以内整数组合
谁能给我个答案~编程!
很简单 谢谢各位大侠!!!!

for a=1 to 30
for b =1 to 30
for c=1 to 30
if a*a+b*b=c*c then print a & "," & b & "," & c
next c
next b
next a

Dim a As Integer
Dim b As Integer
Dim c As Integer

Private Sub Form_Click()
For a = 1 To 30
For b = 1 To 30
For c = 2 To 30

If c * c = a * a + b * b Then

Print (Str(a) + " " + Str(b) + " " + Str(c))
End If
Next c
Next b
Next a
End Sub

如果嫌这样显示不好，可以建个list框，用list1.additem(Str(a) + " " + Str(b) + " " + Str(c))代替print

此程序用的是form_click事件驱动，可以换成command_click