急求：vb程序设计教材答案

来源：百度知道 编辑：UC知道 时间：2024/05/06 16:41:28
已知m=max(a,b,c)/(max(a+b,b,c)*max(a,b,b+c))，其中max(a,b,c)为求a,b和c这三个数最大值的函数，编写程序，输入a,b和c的值，求m的值。

Function max(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
If max < a Then max = a
If max < b Then max = b
If max < c Then max = c
End Function

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, m As Single
a = 2
b = 1
c = 3
m = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c))
Print m
End Sub