| 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
 |