我用多线程写的你可以参考下。

系统界面图如下：（注：重置功能为清除已经中奖号码回归1-100都可以中奖状态。）

我给你个简单的例子、你看下

jm(2) = "小迋佳 王敏《一个像夏天一个像秋天》"

jm(3) = "李铭 李兵《你是我心内的一首歌》"

jm(4) = "刘泽玉 孙皓晨《因为爱情》"

jm(6) = "王振远 高磊《寂寞沙洲冷》"

jm(8) = "逯鹏 张志遠《最美的太阳》"

jm(13) = "叶小雨 郭津铭《未完成的歌》"

jm(25) = "赵文青 时静璐《遗失的美好》"

MsgBox "节目已完成，感谢你使用本程序！"