查看分数.frm

这是一个用VB编写的在线考试系统

VERSION 5.00
Begin VB.Form Form5 
   Caption         =   "Form5"
   ClientHeight    =   7170
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6945
   LinkTopic       =   "Form5"
   ScaleHeight     =   7170
   ScaleWidth      =   6945
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "退出查看分数"
      Height          =   375
      Left            =   5400
      TabIndex        =   1
      Top             =   6720
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      Height          =   6615
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   0
      Width           =   6975
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Visible = True
Form1.Command5.Enabled = True
Form1.Command6.Enabled = True
Form1.Command10.Enabled = True
Form1.Command11.Enabled = True
Form1.addfen.Enabled = True
Form1.runfen.Enabled = True
Form1.lookfen.Enabled = True
Form1.twostud.Enabled = True
Form1.SetFocus
Unload Me
End Sub

Private Sub Form_Load()
Open App.Path & "\idend.dat" For Binary As 8
Dim sa, sb, sc As String
Do While 1
sa = readfile(0, 8, 0)
If sa = "seek_end" Then Exit Do
sb = readfile(0, 8, 0)
sc = readfile(0, 8, 0)
Text1.Text = Text1.Text & "准考号：" & sa & "    考生姓名：" & sb & "   成绩："

If sc = "999" Then
Text1.Text = Text1.Text & "以考但还没打分！" & Chr(13) & Chr(10)
Else
Text1.Text = Text1.Text & sc & Chr(13) & Chr(10)
End If
Loop
Close #8
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form1.Visible = True
Form1.Command5.Enabled = True
Form1.Command6.Enabled = True
Form1.Command10.Enabled = True
Form1.Command11.Enabled = True
Form1.SetFocus
End Sub