Question

vb 取 最大值 最小值

用循环语句做题。要求用inputbox输入十个数字，之后将最大的和最小的用print输出

Answer 1

Private Sub Form_Load()
Dim Max As Double, Min As Double, I As Long, K As Double
On Error Resume Next
K = Val(InputBox("请输入一个数：", "输入", 0))
Max = K
Min = K
For I = 2 To 10
K = Val(InputBox("请输入一个数：", "输入", 0))
If K > Max Then
Max = K
ElseIf K < Min Then
Min = K
End If
Next
MsgBox "最大数为：" & Max & vbCrLf & "最小数为：" & Min, vbOKOnly, "输出"
End Sub