查人人中国名人网台湾糯米鸡的做法:如何用随机数发生器给出运算符和两个随机数进行运算？
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 04:14:55
算，同时计算机判断用户计算的对错并打分，要求十题为一个单元，加减运算
时最高为两位数运算，乘法为两位数乘一位数，除法是两位数或三位数除一位
数，且要求没有余数 不好意思，得用Visual C++6语言呀!!!
没有指定编程语言……那我就用 VB 了，
规则太繁杂，就都改成两位数之间的运算:
窗体上放一个按钮:
'代码绝对原创，不信搜索看看
Private Sub Command1_Click()
'操作数
Dim iFirst As Integer, iSecond As Integer
Dim iOpr As Integer '运算
Dim strExpression As String
Dim strResult As String '用户输入答案
Dim lRight As Long '正确答案
Randomize
iFirst = Int(Rnd(98) * 98) + 1 '规定 1 ~ 99 之内的随机数字
iSecond = Int(Rnd(98) * 98) + 1
' + 1 可保证进行除法运算时除数 > 0
iOpr = Int(Rnd(4) * 4)
'生成算式和结果
strExpression = CStr(iFirst)
strExpression = strExpression & Choose(iOpr, "+", "-", "*", "/")
strExpression = strExpression & CStr(iSecond)
lRight = CLng(iFirst) + CLng(iSecond)
'向用户提问
strResult = InputBox("请计算 " & strExpression & " 的结果是?")
If Trim(strResult) = "" Then Exit Sub
If Val(strResult) = lRight Then '回答正确
MsgBox "恭喜你!回答正确!",vbInformation,"正确"
Else '回答错误
MsgBox "很遗憾!回答错误!", vbExclamation, "错误"
End If
End Sub