excel中使用vba来创建一组幸运7彩票数组

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、先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。