首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有
admin
2019-06-11
64
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有,则自动选中首个列表项(呈蓝色光条显示);如果有,且不是最后一个列表项,则自动选中后一个列表项,如果选中的是最末一项,则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有4个标签、1个文本框、1个计时器和1个标题为“开始”的命令按钮。程序的功能是:用户在文本框中输入一个计时时间(单位:分),并单击“开始”按钮后,系统将开始倒计时,每隔1秒显示1次剩余时间,当到达计时长度时,系统倒计时结束,并弹出信息框显示“时间到!”,程序运行界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub Command1_Click() If List1.ListCOLunt=0 Then Exit Sub End If If List1.ListIndex=-1 Then List1.ListIndex=0 Else If List1.List1 ndex<List1.ListCount-Then List1.ListIndex=List1.ListIndex+1 Else List1.ListIndex=0 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Dim t As Integer Private Sub Command1_Click() t=60 * Val(Text1.Text) Timer1.Enabled=True End Sub Private Sub Timer1_Timer() Dim m,s As Integer If t<=0 Then Timer1.Enabled=False MsgBox"时间到!" Else t=t-1 m=Int(t/60) s=t Mod 60 Labe14.Caption="剩余" & m & "分"& s &"秒" End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/stUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于框架控件的描述中,错误的是()。
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,文本框内容显示“*”),初始内容
(1)存名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹
下面程序运行时,若输入“VisualBasicProgramming”,则在窗体上输出的是()。PrivateSubCommand1_C1ick()DimNtim(25)AsInteger,ChrlAsStringChr1=U
下列循环能正常结束的是()。
使用()方法,可清除列表框中所有的列表项。
设a=10,b=4,c=5,d=7,表达式a>bAndNotc<d+6的值为
以下合法的VB变量名是
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
双精度浮点数的类型说明符为
随机试题
A.moredefinitions,examplesofusage,andinformationaboutpronunciation,andgrammarB.authenticpronunciationandamanage
患者,男性,25岁。头朝下跌下致四肢不全瘫。X线片显示齿状突骨折伴半脱位。首先采取的措施是
A.己烯雌酚B.黄体酮C.妇康片D.氯酚胺E.口服避孕药
项目决策阶段的主要任务是()。
金融工具的风险一般来源于()。
在职业理想上,符合职业道德要求的做法是()。
极点
最早的自助餐没有餐桌,大家站着【155】餐,慢慢地自助餐有了一个较【156】固定的形式,即食【157】们从置放着不同菜肴、点心、水果和饮料的长桌上选取自己喜欢的食品,然后分别到不同的餐桌上去吃。自助餐有着高下悬殊的不同层次,【158】食品和环境的好坏而定。
Inordertoearnstrongersupport,thecandidateclaimedthatthenewlawwouldallowmorewomenanddisabledpeopletoenterth
Betterthinktwicebeforechoosingapasswordforemails,onlinebankaccountsandairlinetickets.Passwordsthatshownoi
最新回复
(
0
)