首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有
admin
2020-07-22
47
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有,则自动选中首个列表项(呈蓝色光条显示);如果有,且不是最后一个列表项,则自动选中后一个列表项,如果选中的是最末一项,则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有4个标签、1个文本框、1个计时器和1个标题为“开始”的命令按钮。程序的功能是:用户在文本框中输入一个计时时间(单位:分),并单击“开始”按钮后,系统将开始倒计时,每隔1秒显示1次剩余时间,当到达计时长度时,系统倒计时结束,并弹出信息框显示“时间到!”,程序运行界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。
选项
答案
(1) 【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Commandl_Click() If List1.ListCount=0 Then Exit Sub End If If List1.ListIndex=一1 Then List1.ListIndex=0 Else If List1.ListIndex<List1.ListCount-1 Then List1.ListIndex=List1.ListIndex+1 Else List1.ListIndex=0 End lf 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 Timed_Trimer() 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 Label4.Caption=”剩余”&m&”分”&s&”秒” End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/ewHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,其名称为Text1,然后编写以下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubText1
假定有以下两个过程:SubS1(ByValxAsInterger,ByValyAsInterger)DimtAsIntergert=x:x=y:y=tEndSubSubS2(xAsInterger,yAsInter
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger) f=1 Fori=1Toxf=f*i Next s=fEndFunctionPrivateSubCommand1
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Labe11.1中;单击“找素数”按钮,则在大于Labe11的数据范围内找出最小的素数,并将其显示在标签Labe12中。
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPrivateSubText1_GotF
为了判断字符串变量ch中是否是一个大写字母,需要编写这样一个表达式:当ch中字符为大写字母时,表达式的值为True,否则为False。下面能正确实现这一目的的表达式是
下列关于栈的叙述正确的是()。
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
语句PrintString(3,"string")的功能是
执行下列语句:strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击"确定"按钮,则变量strInput的内容是( )。
随机试题
对“永远快乐”这句话,钱钟书说“不但渺茫得不能实现,并且荒谬得不能成立”是因为()
某刺绣厂女工李某因其绣工好,深受客户喜爱。许多爱刺绣的客户慕名前来向其定作绣品。某年,港商向其一次性订购10幅绣品,每幅1000元,言明1年后取货,并预付了5000元定金。李某因当年家中杂事太多,就把活儿分给本厂几名女工合干,言明到时货钱平分。1年后,货款
汉文帝曾下诏废除肉刑,进行刑制改革。下列关于汉文帝刑罚改革的说法中,()是正确的。
关于对格式条款的解释,以下错误的是()。
某市一录像放映厅在开业前,公安消防机构对其防火设施条件进行检查并通过。开业后不久,该录像厅负责人为了扩大营业面积,擅自对录像厅进行了改建,改建过程中将原有的紧急出口封闭。同时,由于该录像厅经常违法播放一些黄片,为了掩人耳目,在播放时经常从外面把门锁上。对该
根据事故具体情况,事故调查组成员由有关人民政府、安全生产监督管理部门和负有安全生产监督管理职责的有关部门以及()派人参加。
课堂心理气氛主要有三种类型:积极的、消极的与()
请设计一节课的教案,达到以下目的:(1)学生能够通过组织乐队进行演唱来听说读写某些词汇。(2)培养学生运用英语的能力。
下列关于地震自救表述正确的是()。
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是
最新回复
(
0
)