Question

vb课堂点名点名系统编程。。。需要有班级（两个以上）、学号、姓名、出勤、缺勤按钮、开始、退出、！

excel表格可以随便找！主要是把编程语言写清楚！谢大神们！
大神们。。。急求啊！！！！

Answer 1

vb6编的Dim a
Private Sub Command1_Click() '开始
Line Input #1, a
t = Split(a, " ")
text1.Text = t(0)
text2.Text = t(1)
End Sub

Private Sub Command2_Click(Index As Integer) '出勤或缺勤按钮

Print #2, a & Space(1) & Command2(Index).Caption
If EOF(1) = False Then
Line Input #1, a
t = Split(a, " ")
text1.Text = t(0)
text2.Text = t(1)
End If
End Sub

Private Sub Form_Load()
Open App.Path & "\姓名.txt" For Input As #1
Open App.Path & "\点名.txt" For Output As #2
End Sub

Private Sub Form_Unload(Cancel As Integer)
Close (1)
Close (2)
End Sub