EXCELVBA獲取幸運(yùn)數(shù)字號(hào)碼

以下就是VBA幸運(yùn)號(hào)碼產(chǎn)生的程序，復(fù)制粘貼到VBA代碼框即可運(yùn)行

Option Base 1
Sub 幸運(yùn)號(hào)碼()Dim n As Integer, i As Integer, j As IntegerDim l() As Integern = Application.InputBox("請(qǐng)輸入需要產(chǎn)生幸運(yùn)號(hào)碼的數(shù)量：", "幸運(yùn)號(hào)碼", , , , , , 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