两个数大小的比较

在窗体上插入两个标签，两个文本框，一个按钮。输入代码：

Private Sub Command1_Click()

  Dima As Integer

  Dimb As Integer

   

  a =Text1.Text

  b =Text2.Text

If a > b Then

 Print a

Else

 Print b

End If

 

End Sub

这个程序用IF程序比较两个数的大小，开始的时候，我用函数max来比较大小，代码是：

Private Sub Command1_Click()

  Dim a As Integer

  Dim b As Integer

  Dim max As Integer

 

  a = Text1.Text

  b = Text2.Text

Print Val(max(a, b))

End Sub

蓝色字是两个程序不同的地方，但是第二个程序无法运行，显示错误为“缺少数组”，无论我怎样修改，它都没办法运行。如果我想用这个程序来比较两个数的大小，应该怎样修改程序呀？