EXCEL VBA获取幸运数字号码

EXCELVBA获取幸运数字号码

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

python 复制代码
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
相关推荐
nbsaas-boot4 小时前
Java 正则表达式白皮书:语法详解、工程实践与常用表达式库
开发语言·python·mysql
chao_7894 小时前
二分查找篇——搜索旋转排序数组【LeetCode】两次二分查找
开发语言·数据结构·python·算法·leetcode
风无雨5 小时前
GO 启动 简单服务
开发语言·后端·golang
斯普信专业组5 小时前
Go语言包管理完全指南:从基础到最佳实践
开发语言·后端·golang
我是苏苏6 小时前
C#基础:Winform桌面开发中窗体之间的数据传递
开发语言·c#
斐波娜娜7 小时前
Maven详解
java·开发语言·maven
小码氓7 小时前
Java填充Word模板
java·开发语言·spring·word
暮鹤筠7 小时前
[C语言初阶]操作符
c语言·开发语言
Boilermaker19929 小时前
【Java EE】Mybatis-Plus
java·开发语言·java-ee
aramae9 小时前
C++ -- STL -- vector
开发语言·c++·笔记·后端·visual studio