问题遇到的现象和发生背景
设计如图5-4(a)所示的窗体，程序运行时在5个文本框中输入5个整数后，单击“求最大值”按钮，求这5个数的最大值并显示如图5-11(b)所示，要求调用求3个数最大值的函数max，将所给程序段的【?】处填写完整并运行该程序中我填写的之后显示未定义，不知道哪里错了。
问题相关代码，请勿粘贴截图
''下面过程max()用于求3个数中最大值
Option Explicit
Public Function max(ByVal a%， ByVal b%， ByVal c%)
'SPACE
If 【?】 Then
m = a
Else
m = b
End If
'SPACE
If 【?】 Then
max = m
Else
max = c
End If
End Function
，利用max函数过程求5个数中最大值。
Private Sub Command1_Click()
Dim a%， b%， c%， d%， e%， max1%
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = Val(Text5.Text)
max1 = max(a， b， c)
'SPACE
max1 =【?】
Print "5个数的最大值是："; max1
End Sub
运行结果及报错内容
我的解答思路和尝试过的方法
'下面过程max()用于求3个数中最大值
Option Explicit
Public Function max(ByVal a%, ByVal b%, ByVal c%)
'SPACE
If a > b Then
m = a
Else
m = b
End If
'SPACE
If m > c Then
max = m
Else
max = c
End If
End Function
'利用max函数过程求5个数中最大值。
Private Sub Command1_Click()
Dim a%, b%, c%, d%, e%, max1%
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = Val(Text5.Text)
max1 = max(a, b, c)
'SPACE
max1 = max(c, d, e)
Print "5个数的最大值是："; max1
End Sub
我想要达到的结果
