vb编写代码题，利用inputbox函数输入x,y,z三个数，找出最大数并输出

Question

如题所述

Answer 1

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

Answer 2

Private Sub Command1_Click()
   Dim a As Double, b As Double, c As Double, max As Double
   a = Val(InputBox("a=?"))
   b = Val(InputBox("b=?"))
   c = Val(InputBox("c=?"))
   max = IIf(a > IIf(b > c, b, c), a, IIf(b > c, b, c))
   MsgBox "最大数为：" & max
End Sub

'或
Private Sub Command1_Click()
   Dim a As Double, b As Double, c As Double, max As Double
   a = Val(InputBox("a=?"))
   b = Val(InputBox("b=?"))
   c = Val(InputBox("c=?"))
   If a > b Then
      max = a
   Else
      max = b
   End If
   If c > max Then max = c
   MsgBox "最大数为：" & max
End Sub

本回答被网友采纳