学生管理系统

 Const N% = 3                         '可存储十个学生的信息
Dim xj(1 To N, 0 To 5), M As Integer '定义一个二维数组,来存储学生的学籍信息

 

Private Sub CMDEXIT_Click()
学籍管理.Hide
进入.Show
End Sub

 

Private Sub CMDADD_Click()

Dim I As Integer, S As Integer, Y As Integer
Picture1.Print                                     '打印空行

If Mid(Text1(0), 7, 1) = Text1(5) Then             '查看数据是否匹配,学号倒数第七位为班号?
For K = 0 To 5
If Text1(K) = "" Then                              '判断是否输入了完整的信息，询问用户
MsgBox "数据不完整!!!是否继续？", vbQuestion, "提示" '提示信息
Exit Sub
End If
Next K
    For I = 0 To 5
       xj(M, I) = Text1(I).Text                   '将输入的信息存储进数组
       Picture1.Print Tab(I * 15 + 1); xj(M, I);  '打印信息
       Text1(I).Text = ""
    Next I
Else
    MsgBox "数据有误!!!", vbExclamation, "提示"    '提示信息
End If
M = M + 1
If M > N Then
    MsgBox "已经输满数据!!", vbExclamation, "提示" '提示信息
  Command2.Enabled = False                        '输满十个学生的信息后禁止添加
End If
Text1(0).SetFocus                                 '完成一位学生信息输入,光标置第一文本框
End Sub

 

Private Sub Command3_Click(Index As Integer)
Dim I As Integer, J As Integer, K As Integer, T(0 To 18) As String
For I = 1 To N - 1
For J = I + 1 To N
If Val(xj(I, Index)) > Val(xj(J, Index)) Then
For K = 0 To 5
T(K) = xj(I, K)
Next K
For K = 0 To 5
xj(I, K) = xj(J, K)
Next K
For K = 0 To 5
xj(J, K) = T(K)
Next K
End If
 Next J
Next I
Picture3.Print Command3(Index).Caption & "为"
Picture3.Print
Picture3.Print "学号", "出生日期", "性别", "姓名", "专业名", "班号"
For I = 1 To N
For J = 0 To 5
Picture3.Print xj(I, J),
Next J
Picture3.Print
Next I

 

End Sub

 

Private Sub Command5_Click()
Dim M As Integer
M = Val(Text2.Text)
 Found = False
 Picture2.Cls
  Picture2.Print "学号" & "为"; M; "的学生:"
  For I = 1 To N
    If xj(I, 0) = Text2.Text Then
        Found = True
        For J = 0 To 5
       Picture2.Print Tab(J * 15 + 1); xj(I, J);
       Next J
   End If
   Next I
If Found = False Then Picture2.Print ; "不存在"
End Sub

Private Sub Command6_Click()
Dim P As String
P = Text2.Text
 Found = False
  Picture2.Cls
  Picture2.Print "姓名" & "为"; P; "的学生:"
  For I = 1 To N
    If xj(I, 3) = Text2.Text Then
        Found = True
        For J = 0 To 5
       Picture2.Print Tab(J * 15 + 1); xj(I, J);
       Next J
   End If
   Next I
If Found = False Then Picture2.Print ; "不存在"
End Sub

Private Sub Form_Load()
M = 1

End Sub

Private Sub Label5_Click()
End Sub

Private Sub Label4_Click()

End Sub