谁能找到用vb编写得考试系统

来源：百度知道 编辑：UC知道 时间：2024/05/15 13:07:20
谁能找到用vb编写得考试系统原代码，我需要
用vb6.0编写的，最好主要语句代码都有说明
有界面和完整版最好,能直接运行,谢谢
在12月23日10点前能够发到我的邮箱给20分345814603@163.com

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()

Text1.Width = Form2