网站建设 阿里免费建设个人网站

EXCELVBA获取幸运数字号码

以下就是VBA幸运号码产生的程序，复制粘贴到VBA代码框即可运行

Option Base 1
Sub 幸运号码()Dim n As Integer, i As Integer, j As IntegerDim l() As Integern = Application.InputBox("请输入需要产生幸运号码的数量：", "幸运号码", , , , , , 2)ReDim l(n, 7) As IntegerFor i = 1 To nFor j = 1 To 7Randomizel(i, j) = Int(10 * Rnd)NextNextFor i = 1 To nFor j = 1 To 7Debug.Print l(i, j);NextDebug.PrintNext
End Sub