今天看了一个作业,写一个这样的程序,但是这边怎么写呢~
设计一个由计算机来当小学低年级学生算术老师的VB应用程序,要求给出一系列的两个1~10数的四则运算的算术题,学生输入该题的答案,计算机根据学生的答案判断正确与否,并给出成绩,单击结束命令按钮,退出应用程序。这些四则运算在一个lable里面 ,

解决方案 »

  1.   

    Option ExplicitPrivate Sub Command1_Click()
     Dim sum As Integer
     
     sum = Val(Label1.Caption) & Label2.Caption & Val(Label3.Caption)
     
     If sum = Val(Trim(Text1.Text)) Then
        MsgBox ("你的结果正确!")
     Else
        MsgBox ("你的结果错误!")
     End If
    End SubPrivate Sub Form_Load()
     Label1.Caption = "1"
     
     Label3.Caption = "2"
     Text1.Text = ""
     Command1.Caption = "结束"
    End Sub
    =============================================
    给你参考!!
      

  2.   

    Option ExplicitPrivate Sub Command1_Click()
     Dim sum As Integer
     
     sum = Val(Label1.Caption) & Label2.Caption & Val(Label3.Caption)
     
     If sum = Val(Trim(Text1.Text)) Then
        MsgBox ("你的结果正确!")
     Else
        MsgBox ("你的结果错误!")
     End If
    End SubPrivate Sub Form_Load()
     Label1.Caption = "1"
     
     Label3.Caption = "2"
     Text1.Text = ""
     Command1.Caption = "结束"
    End Sub
    =============================================
    给你参考!!
      

  3.   

    Option ExplicitPrivate Sub Command1_Click()
     Dim sum As Integer
     
     sum = Val(Label1.Caption) & Label2.Caption & Val(Label3.Caption)
     
     If sum = Val(Trim(Text1.Text)) Then
        MsgBox ("你的结果正确!")
     Else
        MsgBox ("你的结果错误!")
     End If
    End SubPrivate Sub Form_Load()
     Label1.Caption = "1"
     
     Label3.Caption = "2"
     Text1.Text = ""
     Command1.Caption = "结束"
    End Sub
    =============================================
    给你参考!!
      

  4.   

    fante2007() 没有达到要求,首先是随机生成,那些进行运算的数字,如 1+ 5 =     6 *7 =等~在一个Frame里是要进行运算的数据,就是这些 1+ 5 =     6 *7 = ,并能由你计算结果,右边也有个Frame,里面放一些,如 Text ,lable ,并统计做了多少题目,有多少正确,错误多少,正确率,他们都是分别放在text里和lable里面~
      

  5.   

    窗体内控件名称: label1 label2 text1 command1 command2 把以上控件放入窗体后复制如下代码到 代码窗口 运行即可看到效果:Dim 结果 As Variant
    Dim 对 As Integer
    Dim 总数 As Integer
    Dim 错 As IntegerPrivate Sub Command1_Click()
    If Text1 = 结果 Then
    对 = 对 + 1
    总数 = 总数 + 1
    Label2 = "正确"
    Else
    错 = 错 + 1
    总数 = 总数 + 1
    Label2 = "错误,正确答案是 " & 结果 & "  您给的答案却是" & Text1.Text
    End If
    Call 计算
    Text1 = ""
    End SubPrivate Sub Command2_Click()
    分数 = (对 / 总数) * 100
    a = "题目总数" & 总数 & "个"
    a = a & vbCrLf & "答对题目" & 对 & "个"
    a = a & vbCrLf & "答错题目" & 错 & "个"
    a = a & vbCrLf & "给分" & 分数 & "分"
    a = a & vbCrLf & "下面将清空记录重新开始记录"
    总数 = 0
    对 = 0
    错 = 0
    MsgBox a
    End SubPrivate Sub Form_Load()
    Call 计算
    Text1 = ""
    Command1.Caption = "下一题"
    Command2.Caption = "结束打分"
    Label2.AutoSize = True
    End Sub
    Private Sub 计算()
    Randomize
    a = Int(Rnd * 10) + 1
    b = Int(Rnd * 4) + 1
    c = Int(Rnd * 10) + 1
    If b = 1 Then Label1 = Str(a) & " +" & Str(c) & " =": 结果 = a + c
    If b = 2 Then Label1 = Str(a) & " -" & Str(c) & " =": 结果 = a - c
    If b = 3 Then Label1 = Str(a) & " *" & Str(c) & " =": 结果 = a * c
    If b = 4 Then Label1 = Str(a) & " /" & Str(c) & " =": 结果 = a / c: If 结果 < 1 Then 结果 = "0" & Trim(Str(Left(Trim(Str(结果)), 3))) Else 结果 = Trim(Str(Left(Trim(Str(结果)), 4))):: Label2 = "结果只取小数点2位"End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Call Command1_Click
    End Sub=================================
    cike技术交流群 16874787 支持群论坛地址为:http://www.hexi5.com/bbs/index.asp
    欢迎加入我们一起学习!