怎样活得简单,人活在世,希望自己活得简单些,可是事实上,人不求事,事却找人,所以,人难免在世上,活得很艰难,那么,到底要怎样活,才更简单呢?......
2023-03-20 357 数学
一个粉丝朋友(本职工作是数学老师)私下问我如何使用Excel出题:100以内三个数混合加减?
构造出这3个数字
第一个数是正数,因此输入函数 =randbetween(0,100)
解释:表示数字为0到100的随机数字。
B列和C列中,分别输入函数 =randbetween(-100,100)
表示B列和C列的数字都显示为-100到100的随机数字
正数添加
使用if函数给B列和C列的数字添加
=IF(B1>0," "&B1,B1)
使用函数concat生成公式
如图所示,使用公式 concat函数,
=concat(A1,F1,G1,"="),来生成公式。具体见下图。
大家来看看最终效果,如果需要更换题库,只需要双击下即可哦。
Step1: 按下【Alt F11】
Step2:插入模块,输入以下代码
Step3:单击运行按钮,可以发现数学题就生成啦。
Sub 数学题()
j = 1
For m = 1 To 20
Dim a, b, c, d, e, f
Do
a = WorksheetFunction.RandBetween(1, 100)
b = WorksheetFunction.RandBetween(-100, 100)
c = WorksheetFunction.RandBetween(-100, 100)
If b > 0 Then b = " " & b
If c > 0 Then c = " " & c
d = a & b
e = a & b & c
Loop While f
Cells(j, "A") = e & "="
j = j 1
Next
End Sub
单击运行按钮,可以发现数学题就生成啦。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!
相关文章
怎样活得简单,人活在世,希望自己活得简单些,可是事实上,人不求事,事却找人,所以,人难免在世上,活得很艰难,那么,到底要怎样活,才更简单呢?......
2023-03-20 357 数学
数学成绩太差了怎么办,怎么样提高数学成绩,数学一直是大部分学生的苦恼,怎么样攻克这门课程,那一直烦恼到许多学子,今天,小编斗胆班门弄斧,用我的一点小智慧,帮助我们的学子们渡过难关!......
2023-03-20 112 数学
origin9.0操作教程:[9]通过数学公式生成数据,在我们使用origi9.0处理数据的时候,有的时候需要我们使用一些特定的数学公式进行运算。这个时候,我们应该如何操作呢。小编来为你解惑。......
2023-03-20 439 数学