用vb实现点名程序主要是随机变量的产生和数据的读取和存储以及计时器程序的设计,读取的文件命名为data.txt,书写格式为第一行为总人数下面的每行为一个人名,在应用时最好把data文件和程序文件放在一个目录,或者更改程序中的路径
代码如下所示:
Private Sub Command1_Click()
Timer1.Enabled = True ' 点击开始时打开计时器
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False '点击结束时关闭计时器
End Sub
Private Sub Form_Load()
Timer1.Interval = 50 '设置计时器的时间间隔为50毫秒
Timer1.Enabled = False '一开始计时器状态为关闭
End Sub
Private Sub Timer1_Timer()
Static content() As String '设置一个静态数组
Open " data.txt" For Input As #1 '打开文件
Input #1, n '取得第一行数赋给n
ReDim content(n) As String '定义一个个数大小为n+1的数组
For i = 1 To n
Input #1, content(i)
Next i
Close #1
Dim x As Integer
x = Int(n * Rnd + 1) '产生随机变量
Text1.Text = content(x) '把相应的值赋给文本框显示
End Sub