VB 输入十个数，输出最大数和最小值。用InputBox

Question

如题所述

Answer 1

Private Sub Form_Load()
Dim x, max, min
For i = 1 To 10
x = Val(InputBox("请输入整数"))
s = s & x & " "
If i = 1 Then
max = x
min = x
End If

If max < x Then
max = x
End If
If min > x Then
min = x
End If
Next

MsgBox s & vbCrLf & "最大值为：" & max & " 最小值为：" & min

End Sub

如果不给max,min赋值第一个输入的整数 结果是不正确的。因为这2个变量初始值为0，如果输入的10个数都是负数，结果就不正确了

Answer 2

dim x,max,min

for i = 1 to 10
x=inputbox("请输入整数")
if max < x then
max = x
end if
if min > x then
min = x
end if
next

msgbox "最大值为："&max&"，最小值为："&min