Question

vb怎么做一个抽奖的软件？要抽到的记录 不能重复的 随机抽取人名

vb编程我是半路出家 有些东西不懂也没人教 这次求大神们帮帮忙
我要一个抽奖的软件 最好有软件 然后有程序 用到哪些部件 写一下明白 让我自己学习一下！
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Command1.Caption = "开始"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Timer1.Interval = 50
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static a
a = a + 1
Label1 = a
If a = 35 Then a = 0
End Sub

这是我自己写的 但是我不知道怎么抽随机 然后记录 只会写抽数字的。。

Answer 1

用个随即函数就行了

追问

我应该加在哪里 大神求教 帮我改一下 根本不懂啊

追答

把名字写到txt文件里面，然后读取名字放到数组里，用随机函数抽取就行了，抽到一个名字将这个名字去除，这样就不会有重复