VB编写的课堂随机点名小程序代码

随机点名系统。

综合网上各类小程序，自己修改定制了一款新的小程序。

学生名单.txt 放在同一个目录中。

使用截图如下

Private Declare Sub SetWindowPos Lib \"user32\" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) '定义常量

Const HWND_TOPMOST = -1 'On Top Const HWND_NOTOPMOST = -2 'No Top Const SWP_NOACTIVATE = &H10 ' Const SWP_SHOWWINDOW = &H40 ' 'Dim TopOn As Integer

Dim ss, mm, nn

Dim num(1 To 300) As Integer

Dim j, k As Integer

Dim A(500) As String, r As Integer

Dim filename As String

Private Sub Command1_Click() Dim b As String

Dim t, i As Integer

filename = App.Path & \"\\\" & \"学生名单.txt\" Open filename For Input As #1

'产生记录总数以内的随机数x i = 1

While Not EOF(1) Line Input #1, A(i) i = i + 1 Wend c = i Close #1

Start:

Randomize

t = Int(c * Rnd + 1) For j = 1 To c

If t = num(j) Then GoTo Start End If Next

Label1.Caption = A(t)

k = k + 1 num(k) = t

If k = c Then

MsgBox \"所有人员均已点过！\Command1.Enabled = False Command3.Enabled = True End If

End Sub

Private Sub Command2_Click()

Unload Form1

End Sub

Private Sub Command3_Click() j = 0 k = 0

For i = 1 To 300 num(i) = 0 Next

Command3.Enabled = False Command1.Enabled = True Label1.Caption = \"Name\"

End Sub

Private Sub Command4_Click()

Timer1.Enabled = True

Command4.Enabled = False End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub Form_load() Form1.Height = 500 Form1.Width = 8550

Command3.Enabled = False

Timer1.Enabled = False

nn = 0

mm = 45: ss = 0

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer() Dim M As Integer

SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / 15, _ Me.Top / 15, Me.Width / 15, _

Me.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW

Line1:

If ss < 10 Then s = \"0\" & ss Else s = ss End If

If mm < 10 Then mmm = \"0\" & mm Else

mmm = mm End If

t = mmm & \":\" & s

Label2.Caption = t ss = ss - 1

If nn = 3 Then ss = 88 End If

If mm = 0 And ss = -1 And nn = 0 Then

MsgBox \"休息时间已到，五分钟后继续\ nn = 1

mm = 5: ss = 0 GoTo Line1

End If

If mm = 0 And ss = -1 And nn = 1 Then MsgBox \"继续上课\ nn = 2

mm = 45: ss = 0 GoTo Line1

End If

If mm = 0 And ss = -1 And nn = 2 Then MsgBox \"放学咯！\ Command1.Enabled = False nn = 3

mm = 88: ss = 88 End If

If ss = -1 And mm > 0 Then mm = mm - 1: ss = 59 If mm = 0 And hh > 0 Then hh = hh - 1: mm = 59

End Sub