VB中用if 嵌套结构取三个数中的最大值的程序怎么写
发布网友
发布时间:2023-11-15 23:34
我来回答
共1个回答
热心网友
时间:2024-10-23 19:39
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double, max As Double
a = Val(InputBox("请输入第一个数!"))
b = Val(InputBox("请输入第二个数!"))
c = Val(InputBox("请输入第三个数!"))
If a > b Then
max = a
If max < c Then max = c
Else
max = b
If max < c Then max = c
End If
Print "最大值为:", max
End Sub