VB抽奖程序 100分。好的话再追加，在线等 着急

来源：百度知道 编辑：UC知道 时间：2024/05/04 05:52:24
用VB做个 程序
要求：
从40个人里面 随机抽 人
别的要求都没有。。今天晚上班里要用这个程序
好的话我追加
最好详细点
就连设置什么按钮都写上 谢谢了

说明一下: 新建工程,2个按钮,1个列表框和1个标签.
命名分别为:cmdsj,Cmdload,listname,labtip
然后生成的程序目录中,自己把人员名单每个人名1行的存成TXT, 命名为: 人员名单.txt

全部代码:

Dim namelist(1 To 40)

Private Sub Cmdload_Click()
On Error Resume Next
Open "人员名单.txt" For Input As #1
Dim nametmp&, i%

For i = 1 To 40
Line Input #1, namelist(i)
listname.AddItem (namelist(i))
Next i
Close #1
cmdsj.Enabled = True
labtip.Caption = "读取完成!"
End Sub

Private Sub cmdsj_Click()
On Error Resume Next
Randomize
Dim n%
n = Int(Rnd() * (1 - 40 + 1) + 40)
labtip.Caption = namelist(n)
End Sub

Private Sub Form_Load()
cmdload.Caption = "读取名单"
cmdsj.Caption = "随机产生"
cmdsj.Enabled = False
labtip.Caption = "请先读取名单!"
End Sub

很简单的。但是没时间做啊我。。。哎~~

简单版的：
直接对号
只需要一个命令按纽就行了
Command1的caption标题属性为 开始抽奖

Command1的单击