使用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