Question

求vb非常简单的默写单词小程序代码，要求见内！

基本设计思路是这样的，分为主机和客户机，主机是老师用，客户机是给学生（就一个学生）所以无需设置密码。客户机的主要构成是5个textbox控件，5个label为一组，共两组。label为题目，比如给出中文意思。textbox给学生填空，一共要默10个单词，也就是10个textbox和10个label，5个5个显示，第一次显示5个，让学生默写，并显示30秒的倒计时，过了30秒，自动跳转到第二组单词，重新数30秒，到时间了，客户机自动显示分数，并且，该分数提交给主机，默错一个扣一分，一共10分。主机就用来显示客户机的分数就行了，只要客户机回答完，主机就会自动跳出msgbox"分数是XX"，就可以了！谢了！！！
至于题目和答案，可以先用a,b,c,d表示,或者编程者自己举例，我能看懂就行了！！！！
感谢 qw623577789，但是你那个网盘下载文件下来以后不是rar文件，提示已损坏。。。你直接发我邮箱吧

Answer 1

我只能做客户机的程序，由于我对区域网络传递数据不懂，所以我无法将客户机的数据发给主机.
我把单词放在数据库里（aa.mdb），程序任意抽10个，工程文件我已发给你
代码：
Dim adocn As New ADODB.Connection
Dim a(1 To 5)
Dim n As Integer
Dim j As Integer
Private Sub Form_Load()
adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
End Sub

Private Sub Command1_Click()
Timer1.Interval = 500
Call cha
End Sub

Private Sub Timer1_Timer()
If Label6.Caption = 0 Then
For z = 1 To 5
If Controls("text" & z) = a(z) Then n = n + 1
Next
j = j + 1
Call cha
Else
Label6.Caption = Label6.Caption - 1
End If
If j = 2 Then
MsgBox "分数是" & n
Timer1.Interval = 0
End If
End Sub
Private Sub cha()
For z = 1 To 5
Controls("text" & z).Text = ""
Next
adocn.Open
Dim rs As New ADODB.Recordset
Dim strSql As String
For i = 1 To 5
Randomize
strSql = "select * from ss where 编号=" & Int(Rnd * 35 + 1) '35指的是总共题目数
rs.Open strSql, adocn, 3, 3
Controls("label" & i).Caption = rs.Fields("题")
a(i) = rs.Fields("答案")
Set rs = Nothing
Next
adocn.Close
Label6.Caption = 30
End Sub
我已发，并且我试验了，两组后自动结束

Answer 2

分太少了，我给你写，加点分行不行，还有，写好后直接给你代码吗？？还是发给你工程？？