急！！！关于函数的问题

来源：百度知道 编辑：UC知道 时间：2024/06/21 21:49:52
编写一个求三个数最大值的函数max(x，y，z)，然后调用此函数求下列表达式的值，首先在文本框中输入a,b,c三个数，然后单击“计算”按钮，在文本框中输出表达式的值m。表达式为：max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c))

Private Function max(ByVal v1 As Single, ByVal v2 As Single, ByVal v3 As Single) As Single
If v1 < v2 Then
If v2 < v3 Then max = v3 Else max = v2
Else
If v1 < v3 Then max = v3 Else max = v1
End If

End Function

Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim m As Single

a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = CSng(Text3.Text)

m = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c))

Text4.Text = m
End Sub

只给你编写一个求三个数最大值的函数max(x，y，z)的代码，然后自己去套用。代码如下：
Function max(X, Y, Z)
If X > Y And X > Z And Y > Z Then MsgBox "最大数为:" & X
If X > Y And X > Z And Z > Y Then MsgBox "最大数为:" & X
If Y > X And Y > Z And X > Z Then MsgBox "最大数为:" & Y
If Y > X And Y > Z And Z > X Then MsgBox "最大数为:" & Y
If Z > X And Z