VB实验指导例题.docVIP

实验A VB环境和可视化编程基础 1． （1）运行界面 （2）参考代码： Private Sub Command1_Click() label3.Caption = text1.Text End Sub 2．模仿教材例1.1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。 （1）运行界面 （2）参考代码： Private Sub Command1_Click() Timer1.Interval = 0 Call mymove End Sub Sub mymove() Label1.Move Label1.Left - 20 If Label1.Left = 0 Then Label1.Left = Form1.Width End Sub Private Sub Command2_Click() Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() Call mymove End Sub 3．编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 （1）运行界面： （2）编写代码： Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1.Text = End Sub 4