Question

用VB编程 随机抽取姓名

我是一名数学老师，我有60个人的姓名，想用VB编一个小程序，使每次可以从这60个人中随机抽取1个人，请给出代码。
谢谢

Answer 1

Private Type student 

name As String * 10

End Type

Private Sub Command1_Click() '写入数据

Dim stu As student

Open "d:\student.txt" For Random As #1 Len = Len(stu)

For i = 1 To 60

stu.name = InputBox("请输入姓名")

Put #1, i, stu

Next i

Close #1

End Sub

Private Sub Command2_Click() '抽取

Randomize

Dim bb As student, n%

n = Int(Rnd * 60) + 1

Open "d:\student.txt" For Random As #1 Len = Len(bb)

Get #1, n, bb

Text1.Text = bb.name

Close #1

End Sub

Answer 2

我有现成的
给一个公司开发的抽奖小程序
可以发给你看看哦
由于是过年抽奖
所以界面比较漂亮
代码你可以自己研究
很简单的
happyq6@163.com

哥们，程序发给你了，感觉怎么样？

Answer 3

60个人的记录，把随机函数控制成小于等于60

Answer 4

分太少了