用VB编写点名系统.docx

用 VB 编写点名系统
张晓 理工六班
效果图
运行前：
运行以后：
创建控件过程
首新建工程里，将form 的背景插入背景图片。创建一个命令按钮，用 VB 编写点名系统
张晓 理工六班
效果图
运行前：
运行以后：
创建控件过程
首新建工程里，将form 的背景插入背景图片。创建一个命令按钮，名称为Command1，调整其属性，Caption 设置为“开始”二字；创建一个命令按钮，名称为 Comman21，调整其属性，Caption 设置为“退出”二字；创建标签一个，名称为 label。将其属性里的 Alignment 调整为 2-center，目的是将标签里的字居中。将 front 设置为楷体。字体大小为 17。在创建一个按钮名称为 timer1，调整其属性，设置间隔，即 = 50 定义名单跳转时间为 50ms。 = False。
控件
名称
功能/属性
窗体
Form 1
点名系统
按钮
Command1
开始/暂停键
按钮
Label1
名字显示框
按钮
Timer1
确定闪过名字的时间间隔
按钮
Command2
退出
代码
Dim a() As String Dim i As Integer
Private Sub Command1_Click()
If = "开始" Then = "暂停"
= True
ElseIf = "暂停" Then = "开始" = False
End If End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Form_Load()
i = 0
'定义名单跳转的时间间隔为 10ms = 100 = False