首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有
admin
2020-02-27
33
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有,则自动选中首个列表项(呈蓝色光条显示);如果有,且不是最后一个列表项,则自动选中后一个列表项,如果选中的是最末一项,则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有4个标签、1个文本框、1个计时器和1个标题为“开始”的命令按钮。程序的功能是:用户在文本框中输入一个计时时间(单位:分),并单击“开始”按钮后,系统将开始倒计时,每隔1秒显示1次剩余时间,当到达计时长度时,系统倒计时结束,并弹出信息框显示“时间到!”,程序运行界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。
选项
答案
(1)步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub Command1_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 If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Dim t As Integer Prirate Sub Command1_Click() t=60*Val(Text1.Text) End Sub Private Sub Timerl_Timer() Dim m.s As Integer If t <=0 Then Timerl.Enabled=False MsgBox"时间到!" Else t=t-1 m=Int(t/60) s=t Mod 60 Label4.Caption="剩余"&m&"分"&s&"秒" End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题考查List控件的属性使用,ListCount为列表框中列表的项数;ListIndex为被选中的列表项的索引号,ListIndex值为一1表示没有列表项被选中;ListCount为列表项的总个数,最后一项表示为List1.ListCount一1。程序中使用三个if语句,判断三种不同情况。
(2)本题考查计时器控件的使用,窗体上计时器控件的Enabled属性初始值被设置为False,所以需要在单击按钮时,将Enabled属性设置为True,全局变量t是输入的时间(单位为:分)转换为秒数,在Timer事件代码中,判断t是否小于等于0,如果小于等于0,则弹出提示框,否则将t减1,将剩余秒数t换算成剩余分钟数m和剩余秒数s。
转载请注明原文地址:https://kaotiyun.com/show/TjTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框,窗体的单击事件过程如下:PrivateSubForm_Click()CD1.DialogTitle="改变颜色"CD1.Color=Form1.BackColorCD1.Act
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNextiCombo1.Text=SumEndSub程
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项足小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项.以乘积的个位数为数列的
(1)在名称为Form1,标题为“框架”的窗体上添加一个名称为Framel,且标题为空的框架。框架内含有两个单选按钮,名称分别为Optl和Opt2,其标题分别为“字体”、“大小”。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1。最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。再在滚动条下
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
已知图片框Picture1中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是( )。
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)()。
随机试题
迁延性腹泻和慢性腹泻多与________和腹泻急性期________有关。
以下具有法律拘束力的是()
A.珊瑚红色B.黄白色C.绿色D.蓝白色E.棕黄色红癣用Wood灯照射后呈
无差异曲线越陡,投资者对风险增加要求的收益补偿越高,投资者对风险的厌恶程度越强烈;无差异曲线越平坦,投资者的风险厌恶程度越弱。()
欺诈发行股票、债券罪应予立案追诉的标准包括()。Ⅰ.发行数额在500万元以上Ⅱ.伪造、变造国家公文、有效证明文件或者相关凭证、单据Ⅲ.利用募集的资金进行违法活动Ⅳ.转移或者隐瞒所募集资金
某日,某城市发生一起恐怖劫持袭击事件,请结合下面图片回答问题:下列选项不属于恐怖分子的动机的是()。
一把钥匙能打开天下所有的锁,这样的万能钥匙是不可能存在的。则下列结论中,最符合上述论断的是:
经济区域化就是指经济全球化。
Whatdoesthemanmean?
______nobodywasveryenthusiasticaboutit,theydecidedtocancelthetrip.
最新回复
(
0
)