应用题
2. 在考生文件夹下有一个工程文件sjt4.vbp，其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用；2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1，且能根据标题内容自动调整大小的标签，其标题为“Visual Basic程序设计”，标题字体为黑体小四号字，如图所示，程序功能如下：
①单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。
②单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。
③单击“退出”按钮，则结束程序运行。
①单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。
②单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。
③单击“退出”按钮，则结束程序运行。
【正确答案】【操作步骤】
步骤1：打开本题工程文件，添加一个标签，按表设置标签的属性。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Private Sub Command1_Click()
If Command1.Caption="演示" Then
Timer1.Enabied=True '当单击"演示" 按钮时Timer1事件触发
Command1.Caption="暂停"
Else
Timer1.Enabled=False '当单击"暂停"按钮时，Timer1事件停止
Command1.Caption="演示"
End If
End Sub
Private Sub Command2_Click()
End '退出程序
End Sub
Private Sub Timer1_Timer()
If Label1.Left+Label1.Width＞Form1.Width Then '判断标签是否已滚动出窗体
Label1.Left=-Label1.Width '将标签位置重置，使它从窗体左边滑出
Else
Label1.Left=Label1.Left+100 '标签移出
End If
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：打开本题工程文件，添加一个标签，按表设置标签的属性。
| 控件 | 属性 | 设置值 | |||||||||||||||||||||||
| 标签 | Name | Label1 | |||||||||||||||||||||||
| Caption | Visual Basic程序设计 | ||||||||||||||||||||||||
| AutoSize | Ture | ||||||||||||||||||||||||
| FontName | 黑体 | ||||||||||||||||||||||||
| FontSize | 小四号 | ||||||||||||||||||||||||
参考答案(字体加粗部分是需考生填入的内容)
Private Sub Command1_Click()
If Command1.Caption="演示" Then
Timer1.Enabied=True '当单击"演示" 按钮时Timer1事件触发
Command1.Caption="暂停"
Else
Timer1.Enabled=False '当单击"暂停"按钮时，Timer1事件停止
Command1.Caption="演示"
End If
End Sub
Private Sub Command2_Click()
End '退出程序
End Sub
Private Sub Timer1_Timer()
If Label1.Left+Label1.Width＞Form1.Width Then '判断标签是否已滚动出窗体
Label1.Left=-Label1.Width '将标签位置重置，使它从窗体左边滑出
Else
Label1.Left=Label1.Left+100 '标签移出
End If
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：标签的Name、Caption、AutoSize、FontName、FontSize、Width和Left属性，命令按钮的Caption属性，计时器的Enabled属性，窗体的Width属性以及If判断语句。
题目要求单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入，单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。标签的滚动方式由Timer1_Timer事件过程进行判定，并通过标签的Width和Left属性值的改变实现标签的移动。单击“退出”按钮，End语句则表示结束程序运行。
题目要求单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入，单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。标签的滚动方式由Timer1_Timer事件过程进行判定，并通过标签的Width和Left属性值的改变实现标签的移动。单击“退出”按钮，End语句则表示结束程序运行。