代码如下: 
 

 Private Sub Command1_Click()
 

 Dim a As Integer, b As Integer, 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
 
 Else
 
 max = max
 
 End If
 
 Label4.Caption = max
 

 End Sub
 

Private Sub Command1_Click()
 
Dim a As Integer
 
Dim b As Integer
 
Dim c As Integer
 
 
 
a = 44
 
b = 36
 
c = 9
 
 
 
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 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.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Text2.Private Sub Command2_Click()
   Me.Cls
   Text1.Text = ""
   Text2.Text = ""
   Text3.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Text2.SetFocus
      End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Text3.SetFocus
      End If
End Sub     心得体会：这次作业相比上次作业只是增加了一个个数，但难度似乎增加的很大，摸索出这一类程序的规律，程序就很容易编写了；同样这次用到了“SetFocus”使程序更完美，用起来更方便





 

下面是我编写的“计算”代码：
 
Private Sub Command1_Click()
Dim M As Integer, N As Integer
   M = Val(Text1.Text)
   N = Val(Text2.Text)
   If M > N Then
    Print M
   Else
    Print N
 End If
End Sub
然后再编写“清除”事件的代码：
Private Sub Command2_Click()
   Text1.Text = ""
   Text2.Text = ""
End Sub
心得体会：本来我没设计“清除”按钮，有了以前的经验，我又把“清除”按钮的事件的代码编写上，这样整个程序就显的更加完美了，还不错、嘻嘻、、