首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有一个计时器和两个命令按钮。计时器Timerl的初始状态为不可用;2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为La-bell,且能根据标题内容自动调整大小的标签,其标题为“Visua
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有一个计时器和两个命令按钮。计时器Timerl的初始状态为不可用;2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为La-bell,且能根据标题内容自动调整大小的标签,其标题为“Visua
admin
2020-04-08
36
问题
在考生文件夹下有一个工程文件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() If
Labell,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://jikaoti.com/ti/BEx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
确定一个控件在窗体上的位置的属性是()。
以下能够触发文本框Change事件的操作是( )。
一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈,然后再依次出栈,则元素出栈的顺序是
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx;yEnd
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
下面程序的执行结果是( )。PrivateSubCommand1_Click() a=0 k=1 DoWhilek
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
随机试题
劳动定额在质量上的要求就是使定额水平()
废用性萎缩的原因为
张某向侦查人员说,他和李某在喝酒时.李某曾经无意中提起其曾经强奸过一个女孩的经过。张某向侦查机关提供的证据,属于证据分类中的哪一种?( )
不符合银行本票相关规定的是()。
需要预测某宗房地产2007年、2008年的价格。通过市场调研,获得该类房地产2002~2006年的价格并计算其逐年上涨额如表2—8所示。预测该宗房地产2008年的价格为()元/m2。
从()上看,素质教育是为了全面提高学生的素质也就是为了全面提高国民的素质,它反映了现代的、先进的教育思想。
病原体侵入人体后,临床上不显示出任何症状、体征,但可产生特异性免疫,被称为()。
注意(苏州大学2014、2011研)
下列关于宪法发展历程的说法,正确的是()
WindowsNTServer内置的网络协议有______。Ⅰ.TCP/IPⅡ.MWLinkⅢ.NetBEUIⅣ.数据链路控制协议
最新回复
(
0
)