VB程序设计实课后习题代码.docVIP

实验A VB环境和可视化编程基础 1 Private Sub Command1_Click() Label3 = Text1 End Sub 2． Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() 手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Command2_Click() 自动 Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50, Label1.Top If Label1.Left 0 Then Label1.Left = Form1.Width End Sub 3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub 5 Sub Command1_Click() Text1.FontName = 隶书