求教VB题目2

来源：百度知道 编辑：UC知道 时间：2024/05/26 02:29:55
设计一个窗体，单击“自动”按钮，标签Label1每0.1秒向右移动一次，当到达窗体右边时自动向左移动，单击“手动”按钮时则单击一次标签移动一次，要求标签中显示文字为“上机测试”。
具体要求：
①设置计时器Timer1和标签Label1的属性。
②在编写的Command2_Click(),Timer1_Timer()中各有一处错误，请调试改正。
调试改正中，每个过程代码只能改一处，并不得增删语句。

代码如下：

Dim Step As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = flase
Timer1.Timer
End Sub

Private Sub Form_Load()
Step = 1
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left + 50 * Step
If Label1.Left + Label1.Width > Form1.Width Then
Step = -1
ElseIf Label1.Left > 0 Then
Step = 1
End If
End Sub

Dim Step As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = flase
Timer1_Timer' .改成_
End Sub

Private Sub Form_Load()
Step = 1
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left + 50 * Step
If Label1.Left + Label1.Width > Form1.Width Then
Step = -1
ElseIf Label1.Left < 0 Then '改成小于零
Step = 1
End If
End Sub

Dim Step As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = flase
Timer1.Timer 'Timer1_Timer
End Sub

Private Sub Form_Load()
Step = 1
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left + 50 * Step
If Label1.Left + Label1.Width > Form1.Width Then
Step = -1
ElseIf Label1.Left > 0 Then 'Label1.Le