VB写的随机点名器代码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
不是我写的，在其它网页上粘贴来的。
看了李冬梅老师的信息及其特征这堂课发现原来一个小小的点名器可以很好的让学生集中注意力，跟着老师的思路走，所以学一下。
VB写的随机点名器代码
'
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'1、新建一个工程；
'2、在窗体Form1内放入La bel1、Timer1、Com mand1、Comm and2四个控件；
'3、把以下代码直接复制到你的工程里；
'4、在工程所在的文件夹里新建一个文本文件“N.t xt”，把名字写入文件，一行一个名字。
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
'代码虽简单，
'为你解忧烦，
'写码伤脑筋，
'占用我一晚；
'每每向钱看，
'钱包总受伤，
'拷完顶一顶，
'就算帮个忙。
（这是编程的作者写的，前面挺押韵，也挺有意思，呵呵。
）
'
Op tionExpli cit
D im Te mp As Stri ng
Dim Name Txt(5000)As St ring'存储从“N.txt”中逐行读取的内容,如果大于5000条记录请更改为更大的数字。
Dim i As L ong
Di m LcAs Lo ng 'N.txt中的记录总数(文本行数)
Dimx AsLong ' 存储随机数
Pr ivate SubComma nd1_C lick()
i =0
Lc = 0
x = 999999
Ope n App.Path & "\N.txt" For Inpu t As#1 '数一数“N.tx t”中有几个记录。
D o Whi le No t EOF(1)
Lin e Inp ut #1, Tem p
Lc =Lc +1
NameT xt(Lc) = T emp '把记录写入数组。
Lo op
Clo se #1
If Ti mer1.Enabl ed =False Then '控制定时器。
Tim er1.E nable d = T rue
El se
Time r1.En abled = Fa lse
En d If
C omman d2.En abled = Tr ue
Com mand1.Enab led = Fals e
End Sub
Priv ate S ub Co mmand2_Cli ck()
R andom ize '产生记录总数以内的随机数x
x = In t((Lc- 1 + 1) * Rnd+ 1)
C omman d2.En abled = Fa lse
E nd Su b
Pr ivate SubForm_Load()
Time r1.In terva l = 100 '改变数字100可以调整滚动速度。
Ti mer1.Enabl ed =False
Comma nd2.E nable d = F alse
M e.Cap tion= "随机点名"
Co mmand1.Cap tion= "开始滚动"
Co mmand2.Cap tion= "停"
Label1.Cap tion= "名单已准备好"
EndSub
Priva te Su b Tim er1_T imer()
i =i + 1
Label1.Cap tion= i & " " & Na meTxt(i) '显示记录
If i= x T hen '当滚动随机数x这条记录时停止
i = 0
Co mmand1.Ena bled= Tru e
Timer1.Ena bled= Fal se
Els e
If i= LcTheni = 0
End I f
End Sub
。