Question

用VB6.0精简版如何编辑出随机抽名的“工程”？

班级要开元旦联欢会，有些游戏需要随机抽名，我想要的效果就像是《购物街》里从观众里抽人一样。麻烦哪位大侠教教啊！！有其他可以代替VB的软件也行啊！！

Answer 1

Private Sub Command1_Click()
Randomize
Dim a(20) As String '把这里定义成你班级的人数
Dim n As Integer: n = FreeFile
Open "E:\学生姓名.txt" For Input As n '学生姓名里输入你班级的人名,每人一行
For i = 0 To UBound(a) - 1
Line Input #n, a(i)
Next
MsgBox "被命运选中的勇士是:" & a(Rnd * UBound(a)) & " 大家掌声"
End Sub

Private Sub Command1_Click()
Randomize
Dim a(20) As String '把这里定义成你班级的人数
Dim n As Integer: n = FreeFile
Open "E:\学生姓名.txt" For Input As n '学生姓名里输入你班级的人名,每人一行
For i = 0 To UBound(a) - 1
Line Input #n, a(i)
Next
MsgBox "被命运选中的勇士是:" & a(Rnd * UBound(a)) & " 大家掌声"
End Sub