form1.frm

模拟驾驶员上机考试,实现单机自动随机出题,批卷,纠错.

  End If
For i = 1 To 1
   Label1(i) = pmingti(Label3, i)
   Next
End Sub

Private Sub Command28_Click()
jj = jj + 1
If jj > 35 Then Exit Sub
If pct = 0 Or pcuoti(jj) = "" Then Exit Sub
Label3 = pcuoti(jj)
If pdati(Label3) = "q" Then
  Label2 = "错误判断--对"
  Else
  lable2 = "错误判断--错"
  End If
If pmingti(Label3, 2) = "q" Then
  Label11 = "正确答案-对"
  Else
  Label11 = "正确答案--错"
  End If
For i = 1 To 1
   Label1(i) = pmingti(Label3, i)
   Next
   If pmingti(Label3, 3) <> "" Then
   xiaotu (pmingti(Label3, 1))
Image1.Picture = LoadPicture(App.Path & pmingti(Label3, 3))
Else: Image1.Picture = LoadPicture(App.Path & "\90.jpg")
End If
End Sub

Private Sub Command29_Click()
For i = 1 To Text1 - 1
 Command28_Click
 Next
End Sub

Private Sub Label23_Click()
dati(Val(Label3)) = "C"
Label2 = "已选择--C"
Command7_Click
If Label3 = 65 Then
'MsgBox "  65道考题已经全部答完,下面做选择题", 64, "  提示"
Command18_Click
End If
End Sub

Private Sub Command30_Click()
Form2.Visible = False
End
End Sub

Private Sub Command333_Click()
Command11_Click
ccc = 5
End Sub

Private Sub Label24_Click()
dati(Val(Label3)) = "D"
Label2 = "已选择--D"
Command7_Click
If Label3 = 65 Then
'MsgBox "  65道考题已经全部答完,下面做选择题", 64, "  提示"
Command18_Click
End If
End Sub

Private Sub label31_click()
If Val(Label3) = 1 Then Exit Sub
Label3 = Str(Val(Label3) - 1)
i = 1
t = Val(Label3)
If t <= 65 Then
For i = 1 To 5
   Label1(i) = mingti(t, i)
   Next
If dati(Val(Label3)) <> "" Then
   Label2 = "已选择--" & dati(Val(Label3))
   Else
   Label2 = "未选择"
   End If
If mingti(t, 7) <> "" Then
xiaotu (mingti(t, 1))
Image1.Picture = LoadPicture(App.Path & mingti(t, 7))
Else: Image1.Picture = LoadPicture(App.Path & "\90.jpg")
End If
End If
End Sub

Private Sub label32_click()
If Val(Label3) >= 65 Then Exit Sub
Label3 = Str(Val(Label3) + 1)
i = 1
t = Val(Label3)
If t <= 65 Then
For i = 1 To 5
   Label1(i) = mingti(t, i)
   Next
If dati(Val(Label3)) <> "" Then
   Label2 = "已选择--" & dati(Val(Label3))
   Else
   Label2 = "未选择"
   End If
If mingti(t, 7) <> "" Then
xiaotu (mingti(t, 1))
Image1.Picture = LoadPicture(App.Path & mingti(t, 7))
Else: Image1.Picture = LoadPicture(App.Path & "\90.jpg")
End If
End If
End Sub

Private Sub Command7_Click()
For j = 1 To 65
  If dati(j) = "" Then
    Label2 = "未选择"
    t = j
    Label3 = j
    For i = 1 To 5
   Label1(i) = mingti(t, i)
   Next
   If mingti(t, 7) <> "" Then
    xiaotu (mingti(t, 1))
    Image1.Picture = LoadPicture(App.Path & mingti(t, 7))
    Else: Image1.Picture = LoadPicture(App.Path & "\90.jpg")
    End If
   Exit Sub

  End If
   Next
End Sub

Private Sub Command8_Click()
qie1
End Sub

Private Sub Command9_Click()
qie2
tps = 1
If tupian(tps) = "" Then
Set xlapp = CreateObject("Excel.Application") '创建Excel应用类
    xlapp.Visible = False '设置Excel可见
    Set xlbook = xlapp.Workbooks.Open(App.Path & "\mt\SUV.upo") '打开Excel工作簿
    Set xlsheet = xlbook.Worksheets(1) '打开Excel工作表
    'xlsheet.Activate '激活工作表
    tpzs = xlsheet.Cells(1, 2)
    For i = 1 To tpzs
       tupian(i) = xlsheet.Cells(i, 1)
       Next
    xlapp.quit
    chakan = 1
Image2.Picture = LoadPicture(App.Path & tupian(chakan))
Else
    chakan = 1
Image2.Picture = LoadPicture(App.Path & tupian(chakan))
End If
End Sub

Private Sub Form_Load()
shengti
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print X
Print Y
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image2.Left = Image2.Left + (X - xx)
Image2.Top = Image2.Top + (Y - yy)
End If
End Sub


Private Sub xuan()
Command19.Visible = False
Command20.Visible = False
Label33.Visible = False
Label34.Visible = False
Command23.Visible = False
Command24.Visible = False
Label21.Visible = True
Label22.Visible = True
Label23.Visible = True
Label24.Visible = True
Label31.Visible = True
Label32.Visible = True
Command7.Visible = False
Label16.Visible = True
For i = 2 To 5
    Label1(i).Visible = True
    Next
'Label5 = "选择"
End Sub
Private Sub pan()
Command19.Visible = True
Command20.Visible = True
Label33.Visible = True
Label34.Visible = True
Command23.Visible = False
Command24.Visible = False
Label21.Visible = False
Label22.Visible = False
Label23.Visible = False
Label24.Visible = False
Label31.Visible = False
Label32.Visible = False
Command7.Visible = False
'label16.Visible = False
For i = 2 To 5
    Label1(i).Visible = False
    Next
Label5 = "判断"
End Sub
Private Sub qie2()
Label21.Visible = False
Label22.Visible = False
Label23.Visible = False
Label24.Visible = False
Label31.Visible = False
Label32.Visible = False
Command7.Visible = False
Label16.Visible = False
Command11.Visible = False
Command12.Visible = True
Command13.Visible = True
Command17.Visible = False
Command18.Visible = False
Command19.Visible = False
Command20.Visible = False
Label33.Visible = False
Label34.Visible = False
Command23.Visible = False
Command24.Visible = False
Command25.Visible = False
Command26.Visible = False
Command27.Visible = False
Command28.Visible = False

For i = 1 To 5
    Label1(i).Visible = False
    Next
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Image1.Visible = False
Image2.Visible = True
Image2.Left = Command9.Width + 500
Image2.Top = 500
End Sub
Private Sub qie1()
Label21.Visible = True
Label22.Visible = True
Label23.Visible = True
Label24.Visible = True
Label31.Visible = True
Label32.Visible = True
Command7.Visible = False
Label16.Visible = True
Command11.Visible = True
Command12.Visible = False
Command13.Visible = False
Command17.Visible = False
Command18.Visible = False
Command19.Visible = True
Command20.Visible = True
Label33.Visible = True
Label34.Visible = True
Command23.Visible = False
Command24.Visible = True
Command25.Visible = False
Command26.Visible = False
Command27.Visible = False
Command28.Visible = False

For i = 1 To 5
    Label1(i).Visible = True
    Next
Label2.Visible = True
Label3.Visible = True
Label4.Visible = False
Label5.Visible = True
'Label6.Visible = True
'Label7.Visible = True
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = True
Image1.Visible = True
Image2.Visible = False
xuan
End Sub
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = Y
End Sub
Private Sub pijuan1()
Label4.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Command25.Visible = True
Command26.Visible = True
Command27.Visible = True
Command28.Visible = True
End Sub
Private Sub pijuan2()
Label4.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Command25.Visible = False
Command26.Visible = False
Command27.Visible = False
Command28.Visible = False
End Sub
Private Sub wewe()
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
newxls.Visible = True
Set newbook = newxls.Workbooks.Add   '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
For i = 1 To 65
newsheet.Cells(i, 1) = aa(i)
Next
End Sub

Private Sub Label7_Click()
Timer1.Enabled = True
   For i = 1 To 5
      Label1(i).Visible = True
      Next
End Sub

Private Sub Timer1_Timer()
ttime = ttime + 1
If ttime = 60 Then
   ttime1 = ttime1 - 1
   Label12 = ttime1
   ttime = 0
   End If
If ttime1 = 0 Then
   MsgBox "  时间到，开始批卷", 64, "  提示"
   Timer1.Enabled = False
   label16_Click
   End If
End Sub
Private Sub chushi()
  Form2.Width = Screen.Width
  Form2.Height = Screen.Height
  'Label1(1).Left = (Form2.Width - Label1(1).Width) / 2
  'Label21.Left = Label1(1).Left
  'Label22.Left = Label1(1).Left
  'Label23.Left = Label1(1).Left
  'Label24.Left = Label1(1).Left
  'label31.Left = Label1(1).Left
  'label32.Left = label31.Left + label31.Width + 500
  'label16.Left = label32.Left + label32.Width + 1000
  'Command11.Left = label16.Left + label16.Width + 1000
  'Command19.Left = Label1(1).Left
  'Command20.Left = Label1(1).Left
  'label33.Left = Label1(1).Left
  'label34.Left = label33.Left + label33.Width + 500
  'Command30.Left = Form2.Width - Command30.Width
  'Label1(2).Left = Label21.Width + Label21.Left + 100
  'Label1(3).Left = Label21.Width + Label21.Left + 100
  'Label1(4).Left = Label21.Width + Label21.Left + 100
  'Label1(5).Left = Label21.Width + Label21.Left + 100
  'Image1.Left = Label1(1).Left + 50
  Label12.Visible = False
  Rem coloer
  'Label13.BackColor = RGB(143, 190, 241)
  Rem coloer
End Sub
Private Sub xiaotu(uu)
   If InStr(uu, "仪表板") Then
      Image1.Left = Label1(1).Left + 300 * (InStr(uu, "“") + 1)
      Image1.Top = Label1(1).Top + 50
      Else
      Image1.Left = 10650 'Label1(1).Left + 50
      Image1.Top = 4650 '3345
      End If
End Sub
Private Sub jiaozheng(oo)
   If InStr(uu, "仪表板") Then
      Image1.Left = Label1(1).Left + 300 * (InStr(uu, "“") + 1)
      Image1.Top = Label1(1).Top + 50
      Else
      Image1.Left = 10650 'Label1(1).Left + 50
      Image1.Top = 4650 '3345
      End If
      
      If Image1.Left > Label1(1).Left + 100 Then
      Image1.Left = 10650 'Label1(1).Left + 50
      Image1.Top = 4650 '3345
      End If
      End Sub
      
Private Sub shengti()
  Label14 = "0%"
  PB1.Visible = True
  Pt1.Visible = True
  Pt1.Left = 0
  Pt1.Top = 0
  Pt1.Width = Screen.Width
  Pt1.Height = Screen.Height
  Pt1.BackColor = RGB(229, 232, 239)
  PB1.Left = Screen.Width / 2 - PB1.Width / 2
  Label15.Left = Screen.Width / 2 - Label15.Width / 2
   Label14.Left = PB1.Left
   Label1(1).ForeColor = RGB(29, 100, 166)
End Sub
Private Sub kkk()
   Pt1.Visible = False
   Label14 = ""
End Sub

Private Sub Timer2_Timer()
Command11_Click
Timer2.Enabled = False
End Sub