满意答案

vbuju

2013.09.10

采纳率：54%    等级：12

已帮助：5912人

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

Option Explicit

Dim jm(35) As String

Dim i, cs As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

cs = cs + 1

Label1.Visible = True

Command1.Enabled = False

Command2.Enabled = True

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

jm(i) = jm(32 - cs)

Command1.Enabled = True

Command2.Enabled = False

StatusBar1.Panels.Item(3) = 32 - cs

End Sub

Private Sub Form_Load()

jm(0) = "李珊珊等《西游记》"

jm(1) = "刘泽玉 小王佳《知足》"

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

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

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

jm(5) = "赵京城 《寻找》"

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

jm(7) = "李宗瑶《小星星》"

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

jm(9) = "李彤彤 葛文芮《BABY DON'T CRY》"

jm(10) = "王敏 杨雪《夜夜夜夜》"

jm(11) = "张月明 李晓雨 大王佳《过火》"

jm(12) = "葛文芮 孙皓晨《Timeless》"

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

jm(14) = "逯鹏 孙杰《父亲》"

jm(15) = "王昭政《那些年》"

jm(16) = "叶小雨 高磊《奔跑》"

jm(17) = "顾庆杰 韩曦《我们都一样》"

jm(18) = "张遵策 郭津铭《心跳》"

jm(19) = "张遵策《空城》"

jm(20) = "逯鹏 李宗瑶《江南》"

jm(21) = "郅睿 王敏《会呼吸的痛》"

jm(22) = "韩绍飞 吕典杰《水手》"

jm(23) = "郅睿 张东剑《后会无期》"

jm(24) = "大王佳 韩曦《小酒窝》"

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

jm(26) = "甄岳《没有什么不同》"

jm(27) = "吴巧 李晓慧《我的歌声里》"

jm(28) = "李瑶 李姗姗《最炫民族风》"

jm(29) = "大王佳 侯家慧《星空》"

jm(30) = "三组全体《大笑江湖》"

jm(31) = "大王佳 张锋《肩上蝶》"

End Sub

Private Sub Timer1_Timer()

Randomize

i = Int(Rnd * (32 - cs))

Label1.Caption = jm(i)

If 32 - cs <= 0 Then

Timer1.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

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

Command3.Value = True

End If

End Sub

10分享举报