UC知道浙江省计算机二级vb考试的样题答案
来源：百度知道 编辑：UC知道 时间：2024/05/13 05:32:37
（1）窗体的标题为“字幕滚动”，固定边框。
（2）在属性窗口中将标签(Label1)的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。
（3）单击“开始”按钮（Command1），标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇，当标签全部移动到窗体外时，再从窗体的左边进入。
（4）单击“停止”按钮（Command2），标签“祝您考试成功”文字停止滚动。同时。
（5）定时器（Timer1）的时间间隔为0.1秒。
（2）在属性窗口中将标签(Label1)的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。
（3）单击“开始”按钮（Command1），标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇，当标签全部移动到窗体外时，再从窗体的左边进入。
（4）单击“停止”按钮（Command2），标签“祝您考试成功”文字停止滚动。同时。
（5）定时器（Timer1）的时间间隔为0.1秒。
首先话两个command命令按钮，和一个label，一个timer
(1).点中form1,按下F4，激活属性窗口，在属性窗口设置form1的caption，双击该属性条，在右侧一列输入“字幕滚动”，将borderstyle属性设为1-fixed；
（2）.拉个label，点中并激活其属性窗口，找到forecolor属性条单击，点击右侧箭头，再点击调色版，点红色即可 ；找到属性出口里的font单击，再单击右端的“...”,将打开“字体”对话框，里面设置会吧，hoho~
(3).command1的caption写成“开始”，command1的caption写成“停止”
代码如下
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left >= Me.Width Then
Label1.Left = Me.Left - Label1.Width '不能写成Label1.Left + Label1.Width = Me.Left
End If
End Sub