'把所有的與最大值相同的都顯示出來
Private Sub Form_Load()
Me.AutoRedraw = True
Dim a(0 To 19) As Integer
Dim b(0 To 19) As Integer
Dim Max As Integer
Dim i As Integer
Max = 0
Print "隨機(jī)生成的整數(shù)：";
For i = 0 To 19
Randomize
a(i) = Int(Rnd * 11)
Print a(i);
Next
Print
Print "被累加后的整數(shù)：";
For i = 0 To 19
b(i) = a(i Mod 20) + a((i + 1) Mod 20) + a((i + 2) Mod 20) + a((i + 3) Mod 20)
If b(Max) < b(i) Then Max = i
Print b(i);
Next
Print
FindData b, b(Max), a
'Print "最大值：" & b(Max)
'Print "相鄰的數(shù)：" & a(Max Mod 20); a((Max + 1) Mod 20); a((Max + 2) Mod 20); a((Max + 3) Mod 20)
End Sub
Function FindData(arr() As Integer, ByVal MaxI As Integer, arra() As Integer)
Dim i As Integer

For i = 0 To UBound(arr)
If arr(i) = MaxI Then
Print "最大值：" & arr(i)
Print "相鄰的數(shù)：" & arra(i Mod 20); arra((i + 1) Mod 20); arra((i + 2) Mod 20); arra((i + 3) Mod 20)
End If
Next
End Function