首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有工程文件sjt3.vbp,其中的窗体如图3.162所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值"(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中
(1)在考生文件夹中有工程文件sjt3.vbp,其中的窗体如图3.162所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值"(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中
admin
2019-06-20
62
问题
(1)在考生文件夹中有工程文件sjt3.vbp,其中的窗体如图3.162所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值"(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。
请去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图3.163所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求:双击List1中的某一项时,该项目被添加到List2中,同时在List1中清除该项目。若单击“>>”按钮,List1中所有的项目显示在。List2中(Ifist2中已有项目不变),List1中韵内容不变。
要求:按照题目要求设置控件属性,去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开考生文件夹下的工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: If optionl.Value=True Then If a(i)>=x Then x=a(i) End If Else If a(i)
解析
(1)根据题目要求,在“查找”按钮的单击事件过程中,预设两个变量x和y,分别是数组的最大值和最小值;接下来判断单选按钮数组中哪个单选按钮被选中,如果选中了最大值按钮,则用循环依次比较a(i)和x的值,如果a(i)>x则将a(i)的值放入x。以此类推选中最小值按钮时的处理过程与之类似。
(2)实现本题从列表框Ifistl到List2的移出功能,其实就是利用列表框的Addltem方法和Removeltem方法添加或删除列表框中的项目。由题中源代码可知,当双击列表框Ifistl中的某项时,则调用Moveltem过程(参数应为控件List1和List2)将列表框L,istl中当前项的内容(索引号为ListIndex)用Addltem方法添加到列表框List2中,同时用Removeltem方法从列表框List1中删除该项。当单击“>>“按钮时,则调用MoveAll过程通过For循环(循环变量终值为List1.ListCount-1)将列表框List1中的各项逐一添加到列表框List2中。
转载请注明原文地址:https://kaotiyun.com/show/N5Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序,希望能把Text1文本框中的内容写到Temp.txt文件中PrivateSubCommand1_Click()Open"Temp.txt"ForOutputAs#2Print"Text1"
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr="":strL=Len(xStr)i=strL/2DoW
在标准模块中,将a定义为全局整型变量的语句是
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另一个不能正确判断的是
设有以下程序:PrivateSubForm_Click()x=50Fori=1To4y=InputBox("请输入一个整数")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNext
执行下列语句strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是
假定有如下程序:PrivateSubForm_Click()Dima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请输入一个整数:"))b(3-k)=a(k+1)
在考生文件夹下有一个工程文件sit5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签,名称分别为Labell和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再画两个名称分别为Text1和Text2、初始值
对下列二叉树进行前序遍历的结果为()。
随机试题
代表战国时期儒家领导思想最高成就的是()
IQstandsforIntelligenceQuotientwhichisameasureofaperson’sintelligencefoundbymeansofanintelligencetest.Tokno
关于新生儿败血症的实验室检查正确的是
肿瘤细胞增殖周期可分为以下几期
做击实试验,击实筒可以放在任何地面上。()
项目经济评价所采用的数据大部分来自预测和估算,具有一定的不确定性。为分析不确定性因素变化对评价指标的影响,应进行()。
证明股份有限公司股东身份的有效法律文件是()。
长江在安徽省北岸主要支流不包括()。
学校教育实现个体个性化的主要途径是()。
阅读资料,回答下列问题。2013—2018年间,企业法人单位数量年均增量约是社会团体和其他法人数量年均增量的_______倍。
最新回复
(
0
)