vb6.0编程的口算计分程序要求在2分钟内统计出计算题目个数及正确比率.若一个题目在10秒不能计算,则自动出新题目并按不

5分太少. 看在你还是一线的情况下.我帮你吧..设计界面看图.数据库用ACCESS2003,名为dbase.mdb ,建立一张表,名为 tiku建立以下字段ID 数字tihao数字tumu文本daan数字请手动加记录,记录必须大于240行.代码如下:Option ExplicitPublic th As IntegerPublic cws As IntegerPublic zth As IntegerPublic sl As IntegerPublic da As IntegerPublic cn As ADODB.ConnectionPublic rs As ADODB.RecordsetPublic sql As StringPrivate Sub qjl()rs.Closecn.CloseSet rs = NothingSet cn = NothingEnd Sub'声明数据库连接相关的.Public Function constr() As Stringconstr = "provider=microsoft.jet.oledb.4.0;data source=" App.Path "dbase.mdb;"End Function'数据库路经Public Function seta() As StringSet cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn = constrcn.OpenEnd FunctionPrivate Sub tongji()If opt1.Value = False And opt2.Value = False Thenzth = zth + 1cws = cws + 1l6.Caption = Str(zth)ElseIf da = CInt(sl) Thenzth = zth + 1l6.Caption = Str(zth)Elsezth = zth + 1cws = cws + 1l6.Caption = Str(zth)End IfEnd IfEnd SubPrivate Sub qkz()t1.Enabled = Falset2.Enabled = Falseopt1.Enabled = Falseopt2.Enabled = Falsel4.Caption = "0"l2.Caption = "0"l3.Caption = "0"l5.Caption = ""l6.Caption = "0"End SubPrivate Sub cmdr_Click()Call qkzIf zth = 0 ThenCall qkzMsgBox "一个题也没有回答,没有结果!", vbInformation, "-提 示-"ElseCall qkzIf MsgBox("你本次的考试成绩如下:" vbCrLf "你的总题数为: " zth " 你的错题数为: " cws " 你的正确率为: " Format(((zth - cws) / zth) * 100, "0.00") "% ." vbCrLf "是否要重新答题?", vbInformation + vbYesNo + vbDefaultButton2, "-提 示-") = vbYes ThenCall qkzMsgBox "请点 <开始答题> 按钮开始答案!", vbInformation, "-提 示-"ElseCall qkzth = "1"zth = 0cws = 0da = 2sl = 2End IfEnd IfEnd SubPrivate Sub cmds_Click()l2.Caption = "120"l3.Caption = "10"t1.Enabled = Truet2.Enabled = Trueth = "1"cmdn.Enabled = Trueopt1.Enabled = Trueopt2.Enabled = Truezth = 0cws = 0Call chutiEnd SubPrivate Sub chuti()opt1.Value = 0opt2.Value = 0setasql = "select * from [tiku] where [tihao]=" th ""rs.Open sql, cn, adOpenKeyset, adLockOptimisticIf rs.Fields("tihao") = "" ThenCall qjlMsgBox "题库中没有题目!", vbInformation, "-提 示-"Elseth = CInt(rs.Fields("tihao")) + 1l4.Caption = Str(rs.Fields("tihao"))l5.Caption = rs.Fields("timu")da = CInt(rs.Fields("daan"))Call qjlEnd IfEnd SubPrivate Sub Form_Load()t1.Enabled = Falset2.Enabled = Falseopt1.Enabled = Falseopt2.Enabled = FalseEnd SubPrivate Sub opt1_Click()sl = "1"End SubPrivate Sub opt2_Click()sl = "0"End SubPrivate Sub t1_Timer()If CInt(l2.Caption) = 0 Thent2.Enabled = Falset1.Enabled = FalseIf MsgBox("总时间已到,不能再作答题!" vbCrLf "是否要查看结果?", vbInformation + vbYesNo, "-提 示-") = vbYes ThenCall cmdr_ClickElseExit SubEnd IfElsel2.Caption = CInt(l2.Caption) - 1End IfEnd SubPrivate Sub t2_Timer()If CInt(l3.Caption) = 0 ThenCall tongjiCall chutil3.Caption = "10"Elsel3.Caption = CInt(l3.Caption) - 1End IfEnd Sub