Vb编程彩票程序

将下面的代码写入按钮的Click事件，点击按钮查看运行结果。

私有子命令1_Click()

Dim名称列表作为新收藏

将提取的名称添加到名称集合中。

名单。添加“姓名01”

名单。添加“名称02”

名单。添加“名称03”

名单。添加“名称04”

名单。添加“名称05”

名单。添加“名称06”

名单。添加“名称07”

名单。添加“名称08”

名单。添加“名称09”

名单。添加“姓名10”

名单。添加“姓名11”

名单。添加“姓名12”

名单。添加“姓名13”

名单。添加“姓名14”

名单。添加“姓名15”

名单。添加“姓名16”

名单。添加“姓名17”

名单。添加“姓名18”

名单。添加“姓名19”

名单。添加“姓名20”

名单。添加“姓名21”

Dim StrGetName作为字符串

将a作为整数变暗

使不规则化

List1。清楚的

做

如果名单。Count & gt那么0

a = Int(Rnd * NameList。计数)+ 1

如果StrGetName & lt& gt”“那么

StrGetName = StrGetName & amp”& amp名单。项目(a)

List1。AddItem StrGetName

StrGetName = " "

其他

StrGetName = NameList。项目(a)

如果…就会结束

名单。移除一个

其他

如果StrGetName & lt& gt”“那就列表1。AddItem StrGetName

出口Do

如果…就会结束

环

末端接头