Question

基础vb 三个数中输出最大值

Private Sub Command1_Click()
Dim a, b, c, max As Integer
a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
If a > b Then
If a > c Then
max = a
ElseIf max = c Then
End If
ElseIf b > c Then
max = b
ElseIf max = c Then
End If
End If
End Sub

这里是我写的- -新手！！都不知道if里套if怎么写。。求指点！

Answer 1

‘根据流程图：
Private Sub Command1_Click()
Dim a%, b%, c%, max%
a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
Print "a,b,c：", a, b, c
If a > b Then
If a > c Then
max = a
Else
max = c
End If
Else
If b > c Then
max = b
Else
max = c
End If
End If
Print "最大：", max
End Sub

追问

那个百分比是什么。。
还有为什么要先在一开始print abc？

追答

Dim a% 相当于 Dim a AS Integer

一开始print abc 是便于你观察刚才你输入过什么。

Answer 2

Private Sub Command1_Click()
Dim a, b, c, max As long
a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
If a > b Then
If a > c Then
max = a
Else
max = c
End If
Else
If b > c Then
max = b
ElseI
max = c
End If
End If
End Sub