1、首先我们打开一个工作样表作为例子。
2、进入vba编辑器，并输入以下代码：
Option Base 1
Sub 幸运号码()
Dim n As Integer, i As Integer, j As Integer
Dim l() As Integer
n = Application.InputBox("请输入需要产生幸运号码的数量：", "幸运号码", , , , , , 2)
ReDim l(n, 7) As Integer
For i = 1 To n
For j = 1 To 7
Randomize
l(i, j) = Int(10 * Rnd)
Next
Next
For i = 1 To n
For j = 1 To 7
Debug.Print l(i, j);
Next
Debug.Print
Next
End Sub
3、我们定义3个变量，和一个数组，数组不指定组内元素。变量n定义为输入变量，然后重新定义数组。
4、创建一个for循环，循环次数为输入值N，并rnd随机7个数值定义到数组内。rnd函数随机的数值是大于0小于1，所以我们对其*10并取整。
5、这里我们重新写了一个for循环，是为了检验方便，实际上可以将代码合并，并以同样的格式输出。
6、最后趣游我们可以在立即窗口中得到答案，如果需要写入表格中，我们可以加上这句range代码就可以实现目的了。
7、先袭牢写到这里了，谢谢大家的观看。
祝大家够之炼生活愉快。
小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。
看不清楚图片的可以点击放大再看哦。
