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
相关推荐
能工智人小辰8 分钟前
Java8 Swing实现计算器
开发语言
SccTsAxR10 分钟前
[C语言]常见排序算法①
c语言·开发语言·经验分享·笔记·其他·排序算法
怀旧,1 小时前
【C++】20. unordered_set和unordered_map
开发语言·c++
alibli1 小时前
一文学会CMakeLists.txt: CMake现代C++跨平台工程化实战
开发语言·c++·系统架构
Florence232 小时前
GPU硬件架构和配置的理解
开发语言
李游Leo2 小时前
JavaScript事件机制与性能优化:防抖 / 节流 / 事件委托 / Passive Event Listeners 全解析
开发语言·javascript·性能优化
JJJJ_iii3 小时前
【左程云算法09】栈的入门题目-最小栈
java·开发语言·数据结构·算法·时间复杂度
枫叶丹43 小时前
【Qt开发】显示类控件(三)-> QProgressBar
开发语言·qt
Bear on Toilet3 小时前
继承类模板:函数未在模板定义上下文中声明,只能通过实例化上下文中参数相关的查找找到
开发语言·javascript·c++·算法·继承
码猿宝宝3 小时前
浏览器中javascript时间线,从加载到执行
开发语言·javascript·ecmascript