四则运算测试:每次运行,只能做十道题,题目通过产生随机数组成的两位数的四则运算式组成,
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/10/01 00:28:50
四则运算测试:每次运行,只能做十道题,题目通过产生随机数组成的两位数的四则运算式组成,
若是除法,四舍五入,保留小数点后两位
若是除法,四舍五入,保留小数点后两位
Private Sub Command1_Click()
Dim i As Integer,k As Integer,s As Long,s1 As Double
Dim a As Integer,b As Integer,ab As String
i = 0
Randomize
a = Int(Rnd() * 99) + 30
Randomize
b = Int(Rnd() * 99) + 30
Randomize
k = Int(Rnd() * 10) + 1
s = 0
s1 = 0
If i > 10 Then
MsgBox "Sorry,每次只能运算10题!"
Exit Sub
End If
If k < 3 Then
ab = "+"
s = a + b
Else
If k < 6 Then
ab = "-"
s = a - b
Else
If k < 9 Then
ab = "*"
s = a * b
Else
ab = "/"
s1 = a / b
s1 = Format(s1,"0.00")
End If
End If
End If
If ab = "/" Then
Label1.Caption = a & " " & ab & " " & b & " = " & s1
i = i + 1
Else
Label1.Caption = a & " " & ab & " " & b & " = " & s
i = i + 1
End If
End Su
Dim i As Integer,k As Integer,s As Long,s1 As Double
Dim a As Integer,b As Integer,ab As String
i = 0
Randomize
a = Int(Rnd() * 99) + 30
Randomize
b = Int(Rnd() * 99) + 30
Randomize
k = Int(Rnd() * 10) + 1
s = 0
s1 = 0
If i > 10 Then
MsgBox "Sorry,每次只能运算10题!"
Exit Sub
End If
If k < 3 Then
ab = "+"
s = a + b
Else
If k < 6 Then
ab = "-"
s = a - b
Else
If k < 9 Then
ab = "*"
s = a * b
Else
ab = "/"
s1 = a / b
s1 = Format(s1,"0.00")
End If
End If
End If
If ab = "/" Then
Label1.Caption = a & " " & ab & " " & b & " = " & s1
i = i + 1
Else
Label1.Caption = a & " " & ab & " " & b & " = " & s
i = i + 1
End If
End Su
(),(),()的四则运算
小学四则运算的题目!只要题目!
通过计算机随机产生10道四则运算题,两个操作数为1~10之间的随机数,运算类型为随机产生的加、减、乘、整除中的任意一种,
用1,4,5,6四个数,通过四则运算(允许用括号),组成一个算式,使算式的结果是24,那么这个算式是______.
用四则运算符号+、-、*、/、()即四个数1.3.4.7组成得数为24的算式
3个5和1个1组成的数字用四则运算计算结果是24
用上123456六个数字和四则运算符号,组成一道得2006的等式.如何做?
用4、5、6、7、组成一个带括号的四则运算算式,其结果等于24
六年级分数的四则运算
四则运算的意义
四则运算的意义,
四则运算的公式是多少