帮忙做道VB题

显示全部楼层 · 2010-6-6 20:54:13

设计一个由计算机来当小学低年级学生算术老师的VB应用程序，要求给出一系列的两个1~10数的四则运算的算术题，学生输入该题的答案，计算机根据学生的答案判断正确与否，并给出成绩，单击结束命令按钮，退出应用程序。

千问 · 2010-6-6 20:54:13

Dim answPrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()Command1.Caption = "结束"Frame1.Caption = "成绩"Label2.Caption = "共答："Label3.Caption = "正确："Label4.Caption = "错误："Label5.Caption = "正确率："Label5.ForeColor = vbRedText1.Text = ""Text2.Text = 0Text3.Text = 0Text4.Text = 0Text5.Text

千问 · 2010-6-6 20:54:13

很简单，你先试着做，碰到具体问题再发问。。

千问 · 2010-6-6 20:54:13

用判断语句，就是if就可以了可以赋值Boolean

千问 · 2010-6-6 20:54:13

text1:答题框text2：共答text3：正确text4:错误text5:正确率command1:提交答案command2:结束程序picture1:显示答题情况label1:显示题目代码如下（做的匆忙，可能会有些不足与错误）：Dim n, m As IntegerDim X As String