那里有用VB编写考试系统的教程啊?

form1:

Private Sub Command1_Click()

Dim cls2 As Class2
Set cls2 = New Class2
cls2.getstr2 (CStr(Text1.Text))
'MsgBox CStr(cls2.a0)
Dim a(10) As String
a(0) = cls2.a0 'kaohao
a(1) = cls2.a1 'name
a(2) = cls2.a2 'sex
a(3) = cls2.a3 'ximing
a(4) = cls2.a4 'grade
a(5) = cls2.a5 'class
Form2.Label1.Caption = "当前用户：" & a(1) & " " & "考号：" & a(0) & " " & "系名：" & a(3) & " " & "年级：" & a(4) & " " & "班级：" & a(5)

Form2.Show
'Form3.Show
End Sub

Private Sub Command2_Click()
End
End Sub

=============================================================

form2:

Dim a(10) As String

Private Sub Command1_Click()
MsgBox "你确定交卷吗？"
End Sub

Private Sub Form_Load()