、定义一个10个元素的整形数组,从键盘输入这10个整数,找出其中的最大数和最小数并输出。求代码

如题所述

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

温馨提示:答案为网友推荐,仅供参考
相似回答