首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用;2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1,且能根据标题内容自动调整大小的标签,其标题为“Visual
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用;2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1,且能根据标题内容自动调整大小的标签,其标题为“Visual
admin
2016-06-23
28
问题
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用;2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1,且能根据标题内容自动调整大小的标签,其标题为“Visual Basic程序设计”,标题字体为黑体小四号字,如图所示,程序功能如下:
①单击标题为“演示”的命令按钮时,则该按钮的标题自动变换为“暂停”,且标签在窗体上从左向右循环滚动,当完全滚动出窗体右侧时,从窗体左侧重新进人。
②单击标题为“暂停”的命令按钮时,则该按钮的标题自动变换为“演示”,并暂停标签的滚动。
③单击“退出”按钮,则结束程序运行。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序,最后将修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件,添加一个标签,按表3.54设置标签的属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private sub Command1_Click() If Command1.caption=
"演示"
Then
Timer1.Enabled
=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.With
>Form1.Width Then’判断标签是否已滚动出窗体 Label1.Left=-Label1.Width’将标签位置重置,使它从窗体左边滑出 Else Label1.Left=
Label1.Left
+100’标签移出 End If End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/BQJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:PrivateSubCommandl_Click()DimnAsIntegern=Val(InputBox(”请输入一个整数:
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()x=1Result=1Whilex
以下关于顺序文件的叙述中,正确的是
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下代码:SubS(xAsInteger,YAsInteger)StaticzAsIntegery=x*x+
在窗体上画一个名称为List1的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是
有如下一个函数过程:FunctionFun(aAsInteger)StaticC b=0:b=b+1:c=c+1 Fun=a+b+cEndFunction在窗体上添加一个命令按钮,事件过程如下:
在窗体上画一个列表框、一个文体框及一个按钮,然后编写如下事件过程:PrivateSubFormLoab() List.AddItem"357" List.AddItem"246"List.AddItem"123"
随机试题
(2012年)根据成本推进型通货膨胀理论,导致利润推进型通货膨胀的因素是()。
下列函数在区间(一∞,+∞)上单调减少的是
下颌舌骨嵴前方,口底上升时的最高点下颌颊系带后部与嚼肌下段前缘之间,可承受较大力
A.牙源性颌骨囊肿B.发育性囊肿C.阻塞性囊肿D.牙源性肿瘤E.孤立性囊肿第二鳃裂囊肿属于
患者,男,56岁。近1个月来始有左侧舌根、软腭及咽部阵发性剧烈疼痛,并向外耳道放射。吞咽、说话均可引起疼痛,甚至夜间有疼醒现象,临床检查以上部位未见明显肿胀.黏膜色正常无溃疡,服用卡马西平有效。最有可能的原因是
风险管理的最基本要求是()。
下列关于量本利分析基本假设的表述中,不正确的是()。
协调外交
Sincethetwosculpturesare______,onemustbeareplicaoftheother.
Everyotherweekitseemsanewstudycomesoutthataddstoouralready-formidablestoreofparentalworries.Butevenbythose
最新回复
(
0
)