驻马店app和网站开发公司,网站左悬浮代码,福田公司董事长,莱芜买房网站EXCELVBA获取幸运数字号码
以下就是VBA幸运号码产生的程序#xff0c;复制粘贴到VBA代码框即可运行
Option Base 1
Sub 幸运号码()Dim n As Integer, i As Integer, j As IntegerDim l() As Integern Application.InputBox(请输入需要产生幸运号码的数量#xff1a;…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