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

随机点名系统。综合网上各类小程序，自己修改定制了一款新的小程序。学生名单.txt放在同一个目录中。使用截图如下Exit|iStort〔44:52跡®1文1［成R吧t「I文件精⑥视圏也工程凹格式回调试他运行⑧查询也I稣©工mg］外蜒序曲］鸟〒色〒胃|Q釦爲屉雀髓|旳c|卜||制會暑答法|行阿肌PrivateDeclareSubSetWindowPosLib"user32"(ByVaihwndAsLong,ByVaihWndInsertAfterAsLong,ByVaixAsLong,ByVaiyAsLong,ByVaicxAsLong,ByVaicyAsLong,ByVaiwFlagsAsLong)'定义常量ConstHWND_TOPMOST=-1'OnTopConstHWND_NOTOPMOST=-2'NoTopConstSWP_NOACTIVATE=&H10'ConstSWP_SHOWWINDOW=&H40''DimTopOnAsIntegerDimss,mm,nnDimnum(1To300)AsIntegerDimj,kAsIntegerDimA(500)AsString,rAsIntegerDimfilenameAsStringPrivateSubCommandl_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()UnloadFormlEndSubPrivateSubCommand3_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=0Timerl.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=0GoToLinelEndIfIfmm=0Andss=-1Andnn=2ThenMsgBox"放学咯！",vbSystemModalCommandl.Enab