编程达人进,求一VB程序代码

发布网友 发布时间：2024-10-04 19:17

我来回答

共3个回答

热心网友 时间：2024-10-04 20:55

我就直接在这里写了啊,你自己复制到对应的comand下啊
for i=1 to 30
for j=1 to 30
for k=1 to 30
if i*i=j*j+k*k then
print i,j,k & "就是一个整数组合"
end if
next
next
next

热心网友 时间：2024-10-04 21:00

3层循环嵌套，要让你找10000以内的呢

热心网友 时间：2024-10-04 20:59

首先我想问一下，你会设置控件的属性吗？如果会，将第三段不要；不会也没关系，，你在窗体上画2个按钮，画1个文本框，直接将代码复制过去就可以了。

选中文本框，在属性窗口中找到 MultiLine，将它的属性值设为True；将ScrollBars属性设置为2，让文本框能多行显示，并有垂直滚动条。

程序运行的结果是有重复的出现，如3、4、5，和4、3、5，如果你不想这样的情况出现，那就将循环语句中j=1 改成 j=i

Private Sub Command1_Click()
Dim i%, j%, k% '这里%为整形的数据类型，相当于 As Integer

'下面是循环语句，判断
For i = 1 To 30
For j = 1 To 30
For k = 1 To 30
If i * i + j * j = k * k Then
Text1.Text = Text1.Text & i & "、" & j & "、" & k & Chr(13) & Chr(10)
End If
Next k
Next j
Next i
Text1.Text = "1到30中是整合数的有" & Chr(13) & Chr(10) & Text1.Text
End Sub

Private Sub Command2_Click()
Text1.Text = ""

End Sub

Private Sub Form_Load()
Form1.Caption = "求1~30整合数"
Text1.Text = ""
Command1.Caption = "确定"
Command2.Caption = "清除"
'以上的是对窗体及界面中控件的属性设置，如果你会在属性窗口中设置，就不用这段了，呵呵，当然最好是加上label标签啦
End Sub