vb考题：随机生成10个1~1000之间的整数，输出其中的最大数和最小数。

vb考题：随机生成10个1~1000之间的整数，输出其中的最大数和最小数。

Private Sub Command1_Click()
Dim a(9) As Single
For i = 0 To 9
a(i) = Int(Rnd * 1000) + 1
Randomize
Next
For i = 0 To 9
Print a(i) & " ";
Next
Print
Print "其中最大的数是:" & Max(a)
Print "其中最小的数是:" & Min(a)
End Sub

Public Function Max(a() As Single) As Single
Dim i As Integer, p As Single
p = a(1)
For i = 2 To UBound(a)
If p < a(i) Then p = a(i)
Next i
Max = p
End Function

Public Function Min(a() As Single) As Single
Dim i As Integer, p As Single
p = a(1)
For i = 2 To UBound(a)
If p > a(i) Then p = a(i)
Next i
Min = p
End Function