Private Sub Command1_Click( )
Print “5个数34、124、68、73、352的最大值是:”
Max1 = max(34,124,68)
Max1 =
Print Max1
End Sub
Public Function max(ByVal a%,ByVal b%,ByVal c%)
If Then
M = a
Else
M = b
End If
If Then
Max = m
Else
End If
End Function