用VBA设计 随机输入三个整数，输出最大值。

用VBA设计 随机输入三个整数，输出最大值。

Private Sub Command1_Click()
a = Val(InputBox("输入第一个整数"))
b = Val(InputBox("输入第二个整数"))
c = Val(InputBox("输入第三个整数"))
If a > b Then Max = a Else Max = b
If Max < c Then Max = c
Print "最大的数是："; Max
End Sub

sub s()     dim a(10)     randomize     for i = 1 to 10         a(i) = int(rnd() * 89 + 10)     next     maxa = 0     mina = 100     for i = 1 to 10         if maxa < a(i) then maxa = a(i)         if mina > a(i) then mina = a(i)     next     msgbox ("最大值为：" & maxa & vbcrlf & "最小值为：" & mina) end sub