实验 1 VB 程序设计运行环境使用一、 实验目的熟悉 VB 集成编辑环境，掌握创建工程文件、保存工程文件、启动工程文件、设计窗体界面等基本操作。二、 实验内容利用 timer 制作 label 滚动。三、 实验步骤和运行结果1. 建立工程 12. Form1 中拖入 label，caption：华中师范大学欢迎你。3. Form1 中拖入 command，caption：停止。4. Form1 中拖入 timer。5. 编写代码：Private Sub Command1_Click()If Timer1.Enabled = False ThenTimer1.Enabled = TrueCommand1.Caption = 停止ElseIf Timer1.Enabled = True ThenTimer1.Enabled = flaseCommand1.Caption = 滚动End IfEnd SubPrivate Sub label1_click()Private Sub Form_Load()Me.Tag = 1End SubPrivate Sub Timer1_Timer()If Label1.Left Me.Width ThenMe.Tag = 2ElseIf Label1.Left = 0 ThenMe.Tag = 1End IfIf Me.Tag = 1 ThenLabel1.Left = Label1.Left + 100ElseIf Me.Tag = 2 ThenLabel1.Left = 0End IfEnd Sub6.实验结果 四、 实验总结1. Timer：Enabled 属性：表示计时器是否有效（是否触发 Timer事件） ，为 True 时，计时器被激活，反之，停止计时。2. Elseif 不能分开写