Question

求编一个 vb程序 任意输入三个数，找出其中的最大值。

Answer 1

Dim Max%, i%, t$, a
t = InputBox("请输入三个数，中间用空格隔开")
a = Split(t, " ")
For i = 0 To UBound(a)
If a(i) > Max Then Max = a(i)
Next
MsgBox t & " 中最大值是：" & vbCrLf & Max

Answer 2

max=val(inputbox("输入第一数"))
a=val(inputbox("输入第二数"))
b=val(inputbox("输入第三数"))
if max<a then max =a
if max<b then max=b
msgbox "最大值：" & max

Answer 3

max=val(inputbox("输入第一数"))
a=val(inputbox("输入第二数"))
b=val(inputbox("输入第三数"))
if max<a then max =a
if max<b then max=b
msgbox "最大值：" & max