vb程序设计教程(第2版)实验1

Private Sub Command1_Click()

Label1.Caption = "我们这学期学习的VB" End sub

Private Sub Command1_Click()

Label1.Visible = True

End Sub

Private Sub Command2_Click()

Label1.Visible = False

End Sub

Private Sub Form_Click()

Command1.Visible = True

Label1.Caption = "初次见面，请多关照" Command2.Visible = True

End Sub

Label1.Left = Label1.Left - 20 Label1.Top = Label1.Top + 10 End Sub

Private Sub Command2_Click() Label1.Left = Label1.Left + 10 Label1.Top = Label1.Top - 10 End Sub

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub

Private Sub Command3_Click()

End

End Sub