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

1、随机点名系统。综合网上各类小程序，自己修改定制了一款新的小程序。学生名单.txt放在同一个目录中。使用截图如下1 ExitStartT£厂KTTiry砒楫，矿Roll-call同学姓各一ResetExit | Start 44 : 52 iumu jr| 月扌Reset |文件（B 糯CB WQD工程（E）拾式3）谒试位）运行同直洵0D圏表（D工SCO弈搦序砂 彭* b * & - !-；艸騒& ： j > II越囹电I答处行16兀列LX I 一=备 工程 1 - Microsoft Visual Basic【设计门文件（D漏罄型祝图迪IS（P） 1®

2、式回谓试运行® 查询凹图袁（D工SCO外接程序（A）窗口也 m（H）觴窗 >S 冒変 t：i 30.30 胃 5055x495GeneralKAX¥_Jh 1科一匚ce1 fcAu曰工程1 - Forml (Farm) c Exitr ' -Start88:88®H"NamePrivate Declare Sub SetWi ndowPos Lib "user32" (ByVai hwnd As Long, ByVai hWndl nsertAfterAs Long, ByVai x As Long, ByVai y A

3、s Long, ByVai ex As Long, ByVai cy As Long, ByVai wFlags As Long)'定义常量Const HWND_TOPMOST = -1 'On TopConst HWND_NOTOPMOST = -2 'No TopConst SWP_NOACTIV ATE = &H10 'Const SWP_SHOWWINDOW = &H40 ''Dim TopOn As In tegerDim ss, mm, nnDim num(1 To 300) As In tegerDim j, k A

4、s In tegerDim A(500) As Stri ng, r As In tegerDim file name As Stri ngPrivate Sub Comma nd1_Click()Dim b As Stri ngDim t, i As In tegerfile name = App.Path & "" & ” 学生名单.txt"Open file name For In put As #1'产生记录总数以内的随机数xi = 1While Not EOF(1)Line In put #1, A(i)i = i + 1Wend

5、c = iClose #1Sta比Ran domize t = In t(c * Rnd + 1)Forj = 1 To cIf t = nu m(j) ThenGoTo StartEnd IfNextLabel1.Caption = A(t) k = k + 1 nu m(k) = tIf k = c The n", vbSystemModalMsgBox "所有人员均已点过!Comma nd1.E nabled = FalseComma nd3.E nabled = TrueEnd IfEnd SubPrivate Sub Comma nd2_Click()Uni oa

6、d Form1End SubPrivate Sub Comma nd3_Click()j = 0k = 0For i = 1 To 300nu m(i) = 0NextComma nd3.E nabled = FalseComma ndl.E nabled = TrueLabell.Caption = "Name"End SubPrivate Sub Comma nd4_Click()Timerl.E nabled = TrueComma nd4.E nabled = FalseEnd SubPrivate Sub Data1_Validate(Action As In t

7、eger, Save As In teger)End SubPrivate Sub Form_load()Forml.Height = 500Forml.Width = 8550Comma nd3.E nabled = FalseTimerl.E nabled = Falsenn = 0mm = 45: ss = 0Timerl.l nterval = 1000End SubPrivate Sub Timer1_Timer()Dim M As In tegerSetWi ndowPos Me.hw nd, HWND_TOPMOST, Me. Left / 15, _Me.Top / 15, M

8、e.Width / 15, _Me.Height / 15, SWP_NOACTIV ATE Or SWP_SHOWWINDOWLin e1:If ss < 10 The ns = "0" & ssElses = ssEnd IfIf mm < 10 The nmmm = "0" & mmElsemmm = mmEnd Ift = mmm & ":" & sLabel2.Capti on = tss = ss - 1If nn = 3 The nss = 88End IfIf mm = 0

9、And ss = -1 And nn = 0 The nMsgBox "休息时间已到，五分钟后继续", vbSystemModalnn = 1mm = 5: ss = 0GoTo Line1End IfIf mm = 0 And ss = -1 And nn = 1 The n MsgBox "继续上课", vbSystemModal nn = 2mm = 45: ss = 0GoTo Line1End IfIf mm = 0 And ss = -1 And nn = 2 The n MsgBox "放学咯！ ", vbSystemModal Comma nd1.E nabled =