用vb编写了这个随机抽取人名的抽奖系统，但会出现重复，怎么样做到不重复并添加一个记录显示已抽到的人名

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

Option Explicit

Dim jm(35) As String

Dim i, cs As Integer

Private Sub Command1_Click()

Timer1Enabled = True

cs = cs + 1

Label1Visible = True

Command1Enabled = False

Command2Enabled = True

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command2_Click()

Timer1Enabled = False

jm(i) = jm(32 - cs)

Command1Enabled = True

Command2Enabled = False

StatusBar1PanelsItem(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))

Label1Caption = jm(i)

If 32 - cs <= 0 Then

Timer1Enabled = False

Command1Enabled = False

Command2Enabled = False

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

Command3Value = True

End If

End Sub

1、首先打开html创一个简单的div放抽出来的名字。

2、其次，然后在创建点击事件。

3、最后，定义一个数组放选好的名字，Mathrandom选的是（0-1）的随机数即可。

以上就是关于用vb编写了这个随机抽取人名的抽奖系统，但会出现重复，怎么样做到不重复并添加一个记录显示已抽到的人名全部的内容，包括:用vb编写了这个随机抽取人名的抽奖系统，但会出现重复，怎么样做到不重复并添加一个记录显示已抽到的人名、html随机抽取人名怎么一次性抽几个、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！