随机点名系统综合网上各类小程序，自己修改定制了一款新的小程序学生名单.txt放在同一个目录中使用截图如下Roll^allStart88:88Reset"J5=I=H民工I刊J……」同学姓名PrivateDeclareSubSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)'定义常量ConstHWND_TOPMOST=-1'OnTopConstHWND_NOTOPMOST=-2'NoTopConstSWP_NOACTIVATE=&H10'ConstSWP_SHOWWINDOW=&H40''DimTopOnAsIntegerDimss,mm,nnDimnum(1To300)AsIntegerDimj,kAsIntegerDimA(500)AsString,rAsIntegerDimfilenameAsStringPrivateSubCommand1_Click()DimbAsStringDimt,iAsIntegerfilename=App.Path&"\"&"学生名单.txt"OpenfilenameForInputAs#1'产生记录总数以内的随机数xi=1WhileNotEOF(1)LineInput#1,A(i)i=i+1Wendc=iClose#1Start:Randomizet=Int(c*Rnd+1)Forj=1TocIft=num(j)ThenGoToStartEndIfNextLabel1.Caption=A(t)k=k+1num(k)=tIfk=cThenMsgBox"所有人员均已点过！",vbSystemModalCommand1.Enabled=FalseCommand3.Enabled=TrueEndIfEndSubPrivateSubCommand2_Click()UnloadForm1EndSubPrivateSubCommand3_Click()j=0k=0Fori=1To300num(i)=0NextCommand3.Enabled=FalseCommand1.Enabled=TrueLabel1.Caption="Name"EndSubPrivateSubCommand4_Click()Timer1.Enabled=TrueCommand4.Enabled=FalseEndSubPrivateSubData1_Validate(ActionAsInteger,SaveAsInteger)EndSubPrivateSubForm_load()Form1.Height=500Form1.Width=8550Command3.Enabled=FalseTimer1.Enabled=Falsenn=0mm=45:ss=0Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()DimMAsIntegerSetWindowPosMe.hwnd,HWND_TOPMOST,Me.Left/15,_Me.Top/15,Me.Width/15,_Me.Height/15,SWP_NOACTIVATEOrSWP_SHOWWINDOWLine1:Ifss<10Thens="0"&ssElses=ssEndIfIfmm<10Thenmmm="0"&mmElsemmm=mmEndIft=mmm&":"&sLabel2.Caption=tss=ss-1Ifnn=3Thenss=88EndIfIfmm=0Andss=-1Andnn=0ThenMsgBox"休息时间已到，五分钟后继续",vbSystemModalnn=1mm=5:ss=0GoToLine1EndIfIfmm=0Andss=-1Andnn=1ThenMsgBox"继续上课",vbSystemModalnn=2mm=45:ss=0GoToLine1EndIfIfmm=0Andss=-1Andnn=2ThenMsgBox"放学咯！",vbSystemModalCommand1.Enabled=Falsenn=3mm=88:ss=88EndIfIfss=-1Andmm>0Thenmm=mm-1:ss=59Ifmm=0Andhh>0Thenhh=hh-1:mm=59EndSub。