Question

VB编程题：任意输入三个数，找出其中最大数？

Answer 1

form添加一个按钮,复制代码,运行,输出最大数

Private Sub Command1_Click()
Dim a, b, c
a = Val(InputBox("请输入a:"))
b = Val(InputBox("请输入b:"))
c = Val(InputBox("请输入c:"))
If a < b Then a = b
If a < c Then a = c
MsgBox "最大数是: " & a
End Sub

Answer 2

Private Sub Command1_Click()
Dim a, b, c
a = Val(InputBox("请输入a:"))
b = Val(InputBox("请输入b:"))
c = Val(InputBox("请输入c:"))

if a>b then d=a
else d=b

if c>d then x= c
else x=c
MsgBox "最大数是: " & a
End Sub