vb编写求两数中较大的数的Function过程 。利用该函数求3个数中的最大值

Question

如题所述

Answer 1

Function Max(n1 As Long, n2 As Long) As Long
Max = IIf(n1 > n2, n1, n2)
End Function

Private Sub Form_Click() '点击窗体运行
Dim x1 As Long, x2 As Long, x3 As Long
x1 = Val(InputBox("请输入第1个数"))
x2 = Val(InputBox("请输入第2个数"))
x3 = Val(InputBox("请输入第3个数"))
MsgBox "这三个数的最大数是" & Max(Max(x1, x2), x3)
End Sub