设计一个由计算机来当小学低年级学生算术老师的VB应用程序，要求给出随机的一系列的两个1~10数的四则运算的算术题，学生输入该题的答案，计算机根据学生的答案判断正确与否，（如7+2=9 √）并给出共答几题，正确几题 错误几题 正确率，单击结束命令按钮，退出应用程序。

[ 本帖最后由 xia123456789 于 2009-9-19 23:25 编辑 ]

既然簡單，自己隨便弄下就是，何來求助呢？
唉，現在的學生連自己的作業題都不願意做了

要先学会怎么取得1到10的随机数，其它的就好说了。

Dim text1, text2 As Integer
        text1 = Int((10 - 1 + 1) * Rnd() + 1)
        text2 = Int((10 - 1 + 1) * Rnd() + 1)     '随机得出两个十以内的数
        Dim ans1, ans2, ans3, ans4 As Integer
 
        ans1 = text1 + text2
        ans2 = text1 - text2
        ans3 = text1 * text2
        ans4 = text1 / text2                    '后面再写个判断就行了..
    不过这样写的话会出现负数,跟小数点.小学生能做得了??