题目

vb 20个100以内的随机整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.
格式是一共有3行Text,第一行是显示找出来的20个随机数,第二行是显示四个相邻的最大值,第三行显示：四个相邻数分别是什么
有四个command键,第一个是“生成数组”,第二个,“寻找”,第三个,“清除”,第四个,“结束”那位VB高手帮帮我这位菜鸟吧.

提问时间：2021-03-13

答案

Dim ay(20)
Private Sub Command1_Click()
Text1 = ""
For i = 0 To 19
ay(i) = Int(Rnd * 100)
Text1 = Text1 & " " & ay(i)
Next i
End Sub
Private Sub Command2_Click()
'随机数不一定都相邻,只先出四个最大的数
Text2 = ""
Text3 = ""
'用冒泡排序法排序
For i = 19 To 1 Step -1
For j = 0 To i - 1
If ay(j) > ay(j + 1) Then
my = ay(j + 1)
ay(j + 1) = ay(j)
ay(j) = my
End If
Next j
Next i
Text2 = ay(19)
For x = 16 To 19
Text3 = Text3 & ay(x) & " "
Next x
End Sub
Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Label1 = ""
End Sub
Private Sub Command4_Click()
End
End Sub