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, 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
   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”使程序更完美，用起来更方便





 

一·实验目的
    实现三个数的大小比较，比较出最大的一个数。
二·实验内容
   在对象窗口画出一个command按钮，点击command按钮，输入以下vb程序语言：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim max As Integer
Dim c As Integer
 
 a = 45
 b = 78
 c = 123
 
 If a > b Then
 max = a
 Else
 max = b
 End If
 If c > max Then
 max = c
 End If
 Print max
 
End Sub
 
三·心得体会
 三个数的比较大小在两个数的大小程序上加大了难度，但是也还是比较简单，看来打好基础是非常重要的。