Question

用VB编写的有界面的抽奖系统

急求高手写个有界面的抽奖系统啊，要求不高，只要有个界面，按开始，抽奖名单开始滚动，按下结束，抽奖名单就出来的那种，最好是能将TXT文本文档导入抽奖系统的，本人是VB小白啊！还望高手写个能运行，注解详细点的

Answer 1

假设那txt名单为1.txt，放在d盘
txt格式为：
张三
李四
王五
。。。
。。。

代码
Dim z
Private Sub Command1_Click() '抽奖
Randomize '改变随机数列
x = Int(z * Rnd + 1)
Print x '输出选中txt得第几行
Open "d:\1.txt" For Input As #1 '打开文件，读取第几行的名字
Do Until y = x
Line Input #1, a
y = y + 1
Loop
Print a '输出名字
Close (1)
End Sub

Private Sub Form_Load() '获取总人数
Open "d:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
z = z + 1
Loop
Close (1)
End Sub

Answer 2

哎，给个邮箱先！哥给你做。