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
相关推荐
十五年专注C++开发26 分钟前
hiredis: 一个轻量级、高性能的 C 语言 Redis 客户端库
开发语言·数据库·c++·redis·缓存
WJ.Polar26 分钟前
Python数据容器-集合set
开发语言·python
晓131327 分钟前
JavaScript加强篇——第七章 浏览器对象与存储要点
开发语言·javascript·ecmascript
nbsaas-boot1 小时前
Go语言生态成熟度分析:为何Go还无法像Java那样实现注解式框架?
java·开发语言·golang
xiaocainiao8811 小时前
Python 实战:构建可扩展的命令行插件引擎
开发语言·python
碧海蓝天20221 小时前
C++法则21:避免将#include放在命名空间内部。
开发语言·c++
兮动人2 小时前
Java应用全链路故障排查实战指南:从系统资源到JVM深度诊断
java·开发语言·jvm
R-sz2 小时前
导出word并且插入图片
开发语言·c#·word
CodeWithMe2 小时前
【读书笔记】《C++ Software Design》第一章《The Art of Software Design》
开发语言·c++
脑袋大大的2 小时前
判断当前是否为钉钉环境
开发语言·前端·javascript·钉钉·企业应用开发