我因期末考试有一个小程序要调试,望高手来帮忙,谢谢

楼主，对你的程序已进行了修改，但还存在一些错误，如果还有问题要问，我的QQ是110807087

Option Explicit
Dim a As String
Dim n As Integer
Dim j As Integer
Dim d
Dim ii As Integer
Dim score As Integer

Private Sub Command1_Click()
Picture1.SetFocus
Label1(0) = ""
Label3 = ""
Command2.Enabled = True
Timer1.Enabled = True
Timer2.Enabled = True
Picture1.SetFocus
Label6.Caption = "你选择了第" & VScroll1.Value & "关"
n = 0
Label3.Caption = n
End Sub

Private Sub Command2_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
If Timer2.Enabled = True Then
Timer1.Enabled = False
Command2.Caption = "继续"
Else
Timer2.Enabled = True
Command2.Caption = "暂停"
End If
Picture1.SetFocus
Else
Timer1.Enabled = True
End If
End S