第二套 试题二( 15 分) 修改 VB 程序,使其具有下列功能:在文本框中输入字符串,单击“开始“按钮,标签 2 获取文本框中的首字符与尾字符组合,并开始移动。当标签移到窗体边框后,再开始移动,实现左右移动,移动速度为每 0.5 秒 200 。运行效果如图 3 、 4 所示。完成代码: 图 3 图 4 Dim f% Private Sub Command1_Click() Timer1.Enabled = '(1) Command2.Visible = True End Sub Private Sub Command2_Click() Timer1.Enabled = '(2) Command2.Visible = False End Sub Private Sub Timer1_Timer() Label2.Caption = Left(Text1.Text, 1) + '(3) If Label2.Left >= Form1.Width - Label2.Width Then '(4) ElseIf Label2.Left <= 0 Then f = 0 End If If f = 1 Then Label2.Left = '(5) Else Label2.Left = Label2.Left + 200 End If End Sub