Sub main()
Dim a(10)
Dim i, max, min
max = -32766
min = 32766
For i = 0 To 9
a(i) = CInt(InputBox("输入一个数：", "例子", i))
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
MsgBox "最大数是:" & max & ", 最小数:" & min
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024