vb.zip_vb点名_vb随机源码_vb随机点名_点名_随机点名VB

Option Explicit Dim Temp As String Dim NameTxt(5000) As String '存储从“N.txt”中逐行读取的内容,如果大于5000条记录请更改为更大的数字。 Dim i As Long Dim Lc As Long 'N.txt中的记录总数(文本行数) Dim x As Long ' 存储随机数 Private Sub Command1_Click() i = 0 Lc = 0 x = 999999 Open App.Path & "\N.txt" For Input As #1 '数一数“N.txt”中有几个记录。 Do While Not EOF(1) Line Input #1, Temp Lc = Lc + 1 NameTxt(Lc) = Temp '把记录写入数组。 Loop Close #1 If Timer1.Enabled = False Then '控制定时器。 Timer1.Enabled = True Else Timer1.Enabled = False End If Command2.Enabled = True Command1.Enabled = False End Sub Private Sub Command2_Click() Randomize '产生记录总数以内的随机数x x = Int((Lc- 1 + 1) * Rnd + 1) Command2.Enabled = False End Sub Private Sub Form_Load() Timer1.Interval = 100 '改变数字100可以调整滚动速度。 Timer1.Enabled = False Command2.Enabled = False Me.Caption = "随机点名" Command1.Caption = "开始滚动" Command2.Caption = "停" Label1.Caption = "名单已准备好" End Sub Private Sub Timer1_Timer() i = i + 1 Label1.Caption = i & " " & NameTxt(i) '显示记录 If i = x Then '当滚动随机数x这条记录时停止 i = 0 Command1.Enabled = True Timer1.Enabled = False Else If i = Lc Then i = 0 End If End Sub