2. 计算机
  3. 在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有一个计时器和两个命令按钮。计时器Timerl的初始状态为不可用；2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为La-bell，且能根据标题内容自动调整大小的标签，其标题为“Visua

在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有一个计时器和两个命令按钮。计时器Timerl的初始状态为不可用；2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为La-bell，且能根据标题内容自动调整大小的标签，其标题为“Visua

admin2020-04-08  59
问题  在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有一个计时器和两个命令按钮。计时器Timerl的初始状态为不可用；2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为La-bell，且能根据标题内容自动调整大小的标签，其标题为“Visual Basic程序设计”，标题字体为黑体小四号字，如图所示，程序功能如下：
    ①单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。
    ②单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。
    ③单击“退出”按钮，则结束程序运行。
    要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤l：打开本题工程文件，添加一个标签，按表4．54设置标签的属性。 [*] 步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl Click() If Commandl．Caption=＂演示＂Then Timerl,Enable=True′当单击＂演示＂按钮时Timerl．事件触发 Command2．Caption=＂暂停＂ Else Timerl,Enable=False′当单击”暂停”按钮时．Timerl事件停止 Commandl．Caption=＂演示＂ End If End Sub PriVate sub Command2_Click() End′退出程序 End Sub PriVate Sub Timerl Timer() IfLabell,Left+Labell,Width＞ Forml·width Then′判断标签是否已滚动出窗体 Labell．Left=－Labell．Width ′将标签位置重置，使它从窗体左边滑出 Else Labell．Left=Labell,Left+100′标签移出 End If End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 题目要求单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入，单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。标签的滚动方式由Timerl_Timer事件过程进行判定，并通过标签的Width和kft属性值的改变实现标签的移动。单击“退出”按钮，End语句则表示结束程序运行。
转载请注明原文地址:https://kaotiyun.com/show/PNTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)