用VB编写点名系统

张晓 理工六班

1.效果图

运行前：

运行以后：

2.创建控件过程

首新建工程里，将form的背景插入背景图片。创建一个命令按钮，名称为

Command1，调整其属性，Caption设置为“开始”二字；创建一个命令按钮，名称为Comman21，调整其属性，Caption设置为“退出”二字；创建标签一个，名称为label。将其属性里的Alignment调整为2-center，目的是将标签里的字居中。将front设置为楷体。字体大小为17。在创建一个按钮名称为timer1，调整其属性，设置间隔，即Timer1.Interval = 50定义名单跳转时间为50ms。 Timer1.Enabled = False。 控件 窗体 按钮 按钮 按钮 按钮

名称 Form 1 Command1 Label1 Timer1 Command2 点名系统 开始/暂停键 名字显示框 确定闪过名字的时间间隔 退出 功能/属性 3.代码

Dim a() As String Dim i As Integer

Private Sub Command1_Click() If Command1.Caption = \"开始\" Then Command1.Caption = \"暂停\"

Timer1.Enabled = True

ElseIf Command1.Caption = \"暂停\" Then Command1.Caption = \"开始\" Timer1.Enabled = False End If End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load() i = 0

'定义名单跳转的时间间隔为10ms Timer1.Interval = 100 Timer1.Enabled = False Command1.Caption = \"开始\"

Label1.Alignment = 2 '字体居中 Label1.Font = \"微软雅黑\" '字体为微软雅黑 Label1.FontSize = 17 '设置字体大小

'读取名单，注意：名单必须已经放在D盘的1.txt文件内 Open \"D:\\dianming.txt\" For Input As #1 Do Until EOF(1) i = i + 1

ReDim Preserve a(1 To i) As String

Line Input #1, a(i) '按行读取，所以名单名字必须一行一个 Loop End Sub

Private Sub Timer1_Timer() Dim j As Integer

Randomize

'i为名单的人数，Rnd为0-1之间的数，不包括0，1 j = Int(1 + Rnd * i) Label1.Caption = a(j) End Sub