frmxz.frm

来自「VB6.0应用例题」· FRM 代码 · 共 493 行 · 第 1/2 页

   Begin VB.Label Label1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   6360
      TabIndex        =   16
      Top             =   6000
      Width           =   2535
   End
   Begin VB.Label Lblda 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   960
      TabIndex        =   6
      Top             =   4200
      Width           =   7995
   End
   Begin VB.Label Lblda 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   960
      TabIndex        =   4
      Top             =   3480
      Width           =   7995
   End
   Begin VB.Label Lblda 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   960
      TabIndex        =   2
      Top             =   2760
      Width           =   7995
   End
   Begin VB.Label Lblda 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   960
      TabIndex        =   0
      Top             =   2040
      Width           =   7995
   End
End
Attribute VB_Name = "Frmxz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim TiMu(79)  As String
Dim daan1(79) As String
Dim daan2(79) As String
Dim daan3(79) As String
Dim daan4(79) As String
Dim da(79)    As String
Sub xianshi(i As Integer)
  Dim j As Integer
  '------------------------------------------------
  '答题窗体初始显示状态：单选按钮为蓝色背景、未选中
  '------------------------------------------------
  For j = 0 To 3
     Option1(j).Value = False
     Option1(j).BackColor = vbBlue
  Next
  Lblti.Caption = TiMu(i)
  Lblda(0).Caption = daan1(i)
  Lblda(1).Caption = daan2(i)
  Lblda(2).Caption = daan3(i)
  Lblda(3).Caption = daan4(i)
  '------------------------------------------------
  '选择某个单选按钮，则将它的背景设置为红色
  '------------------------------------------------
  Select Case UCase(Left$(KsDa(i), i)):
     Case "A": Option1(0).Value = True
               Option1(0).BackColor = vbRed
     Case "B": Option1(1).Value = True
               Option1(1).BackColor = vbRed
     Case "C": Option1(2).Value = True
               Option1(2).BackColor = vbRed
     Case "D": Option1(3).Value = True
               Option1(3).BackColor = vbRed
    End Select
    daan.Caption = ""     '清除显示的标准答案
End Sub
Private Sub Form_Load()
  Dim tksda             As String
  Dim tbzda             As String
  Dim inputda           As String
  Dim i, j, k           As Integer
  Dim wz                As Integer
  Dim path1 As String
On Error Resume Next
  CenterOnSetupForm Me   '调用xs.bas模块中的通用过程
  '------------------------------------------------
  '打开程序所在文件夹中的选择题文件，读取试题
  '------------------------------------------------
  path1 = App.Path & "\XuanZe" & Trim(Str(StNum)) & ".txt"
  Open path1 For Input As #1
  Input #1, inputda
  For i = 1 To TiShu(StNum)
     TiMu(i) = ""
     Input #1, inputda
     TiMu(i) = inputda
     For j = 1 To 4
        Input #1, inputda
        wz = InStr(inputda, ".")
        Select Case j
           Case 1: daan1(i) = Right$(inputda, Len(inputda) - wz)
           Case 2: daan2(i) = Right$(inputda, Len(inputda) - wz)
           Case 3: daan3(i) = Right$(inputda, Len(inputda) - wz)
           Case 4: daan4(i) = Right$(inputda, Len(inputda) - wz)
        End Select
     Next j
  Next i
  Close #1
  '--------------------------------------------------------
  '在程序所在文件夹中建立考生答案文件，记录考生所选择的答案
  '--------------------------------------------------------
  path1 = App.Path & "\ksda" & Trim(Str(StNum)) & ".txt"
  Open path1 For Input As #2
  SyTm = TiShu(StNum)
  If Err = 0 Then
     Input #2, tksda
     If Err = 0 Then
        For i = 1 To TiShu(StNum)
           KsDa(i) = Mid$(tksda, i, 1)
           If Trim(KsDa(i)) <> "" Then SyTm = SyTm - 1
        Next i
     End If
  Else
    For i = 1 To TiShu(StNum)
       KsDa(i) = ""
    Next
  End If
  Close #2
  '----------------------------------------------------
  '打开程序所在文件夹中的答案文件，将答案读取到BzDa数组
  '----------------------------------------------------
   path1 = App.Path & "\daan" & Trim(Str(StNum)) & ".txt"
   Open path1 For Input As #3
   Input #3, tbzda
    Close #3
    For i = 1 To TiShu(StNum)
       BzDa(i) = Mid$(tbzda, i, 1)
    Next i
    ti = 1
    Label1.Caption = "共有" & TiShu(StNum) & "题"
    xianshi (1)
    Exit Sub
ErrMsg:
    MsgBox Error(Err), 48
    End
End Sub
Private Sub Cmdmsg_Click(Index As Integer)
  Select Case Index
    Case 0:
      If ti > 1 Then
         ti = ti - 1
      End If
      xianshi (ti) '调用显示答题窗体的通用过程
    Case 1:
      If ti < TiShu(StNum) Then
        ti = ti + 1
      End If
      xianshi (ti)  '调用显示答题窗体的通用过程
    Case 2:
      Frmti.Show
    End Select
End Sub
Private Sub Command1_Click()
  Dim i As Integer
  If SyTm = 0 Then
     Frmtj.Show    '显示“统计”窗口
  Else
     Frmts.Show   '显示还有多少未做选择题的提示窗口
  End If
End Sub
Private Sub Option1_Click(Index As Integer)
  Dim i As Integer
  For i = 0 To 3
      Option1(i).BackColor = vbBlue
  Next
  If Trim(KsDa(ti)) = "" Then SyTm = SyTm - 1
  Select Case Index
      Case 0: KsDa(ti) = "A"
      Case 1: KsDa(ti) = "B"
      Case 2: KsDa(ti) = "C"
      Case 3: KsDa(ti) = "D"
  End Select
  Option1(Index).BackColor = vbRed
End Sub
Private Sub Option1_DblClick(Index As Integer)
   Option1_Click (Index)
   If ti < TiShu(StNum) Then
      ti = ti + 1
   End If
   xianshi (ti)
End Sub
Private Sub Image1_Click()
  daan.Caption = BzDa(ti)
End Sub