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
相关推荐
BIGSHU09233 分钟前
java多线程场景3-并发处理和异步请求
java·开发语言·python
_OP_CHEN12 分钟前
数据结构(C语言篇):(十一)二叉树概念介绍
c语言·开发语言·数据结构·二叉树·学习笔记··
柯南二号22 分钟前
【设计模式】【观察者模式】实例
java·开发语言·servlet
索迪迈科技31 分钟前
Java-Spring入门指南(四)深入IOC本质与依赖注入(DI)实战
java·开发语言·spring
A 风38 分钟前
封装日期选择器组件,带有上周,下周按钮
开发语言·javascript·vue.js
索迪迈科技39 分钟前
C语言 memcpy 的使用
c语言·开发语言
yuyousheng44 分钟前
C语言中sizeof和strlen的区别
c语言·开发语言·哈希算法
Mr_sun.1 小时前
Day04_苍穹外卖——套餐管理(实战)
开发语言·python
南棱笑笑生1 小时前
20250910在荣品RD-RK3588-MID开发板的Android13系统下修改短按power按键的休眠/唤醒为关闭/打开背光
开发语言·python·rockchip
悠悠~飘1 小时前
php学习(第二天)
开发语言·学习·php