VB作业之比较三个数的大小

下面是我编写的程序代码：

Private Sub Command1_Click()
   Dim A As Integer
   Dim B As Integer
   Dim C As Integer
   Dim max As Integer
   A = Val(Text1.Text)
   B = Val(Text2.Text)
   C = Val(Text3.Text)
   If A > B Then
       max = A
    Else
       max = B
   End If
   If C > max Then
       max = C
    End If
    Print max
End Sub

接着编写“清除”事件的程序：

Private Sub Command2_Click()
   Me.Cls
   Text1.Text = ""
   Text2.Text = ""
   Text3.Te