If a>c then
Print a
Else
Print c
End If
Else
If b>c then
Print b
Else
Print c
End If
End If
2 使用赋值法
Dim a,b,c,max as integer
a = val(inputbox("请输入a"))
b = val(inputbox("请输入b"))
c = val(inputbox("请输入c"))
If a>b then
max = a
Else
max = b
End If
If max>c then
Print max
Else
Print c
End If
3 使用逻辑表达式法
Dim a, b, c As Integer
a = val(InputBox("请输入a"))
b = val(InputBox("请输入b"))
c = val(InputBox("请输入c"))
If a > b And a > c Then
Print a
Else
If b > c Then
Print b
Else
Print c
End If
End If |