求助 由键盘输入10个0~100之间的任意整数,找出其中的最大数和最小数,并将其在窗体上打印输出。
来源:百度知道 编辑:UC知道 时间:2024/05/14 02:08:02
Private Sub Command1_Click()
Dim a(9) As Integer
For i = 0 To 9
a(i) = InputBox("输入第" & i + 1 & "个数")
Next
t = a(0)
p = a(0)
For i = 1 To 9
If a(i) > t Then
t = a(i)
End If
If a(i) < p Then
p = a(i)
End If
Next
Print "最大数"; t
Print "最小数"; p
End Sub