Dim a(2), max, mix, j As Integer
a(0) = Val(InputBox("第一个:"))
a(1) = Val(InputBox("第二个:"))
a(2) = Val(InputBox("第三个:"))
mix = a(1)
For j = 0 To 2
If max < a(j) Then
max = a(j)
End If
If mix > a(j) Then
mix = a(j)
End If
Next j
MsgBox "最大值：" + Str(max) + vbCrLf + "最小值：" + Str(mix), , "比较三个数的大小"