使用VBA随机生成20以内的加法练习题（随机函数rnd） |
|
作者：
来源：原创
|
使用VBA生成的20以内加法运算练习题，打印预览如下：
使用的VBA源代码为：
Option Explicit
Sub 加法练习()
Dim c%, r%
Cells(1, 1) = Rnd()
r = 1
Do While r <= 20
c = 1
Do While c <= 6
Cells(r, c) = Int(Rnd() * 10 + 1) & "+" & Int(Rnd() * 10 + 1) & "="
c = c + 1
Loop
r = r + 1
Loop
End Sub
|
vba中的随机函数rnd生成的是0至接近1的值，放大10倍后，取整所得的数值范围是0-9，要实现20以内的加法，只需要对生成的值+1就是20以内的加法了。
再配合2次循环，指定生成的行数和列数。
【金山文档】 加法口诀表（20以内加法练习）
https://kdocs.cn/l/cvkrrHrUuoW0
|
|
|
|
