vb语言用数组求10个数中的最大数

Question

如题所述

Answer 1

Private Sub Command1_Click()
Randomize Timer
Dim i As Integer, a(9) As Integer
Dim maxN As Integer, maxI As Integer

 For i = 0 To 9
     a(i) = Int(Rnd * 101)
     Print a(i);
     If maxN < a(i) Then
        maxN = a(i)
        maxI = i
     End If
 Next
 Print
 Print "最大数是：" & maxN & " 位置是：" & maxI + 1
End Sub