vb中比较几个数的大小，输出最大和最小值

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim a, max, min As Integer
a = Array(1, 2, 3, 4, -5, 10) '假定数字是这几个，当然可以是任意数字
max = a(0): min = a(0)
For i = LBound(a) To UBound(a)
If max <= a(i) Then max = a(i)
If min >= a(i) Then min = a(i)
Next
MsgBox "最大数是：" & max & vbNewLine & "最小数是：" & min, 64 + 0, "结果"
End Sub

你等等啊
我当场给你写