【精品资料最新版】VB程序设计教程(第版)课后实验答案.docVIP

实验A A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() 自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() 手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．4 Private Sub Form_Click() Caption = 单击窗体，改变图片 Picture = LoadP