首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt3.vbp,控件及其属性见窗体文件。 程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移,最后
考生文件夹下有工程文件sjt3.vbp,控件及其属性见窗体文件。 程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移,最后
admin
2019-08-21
41
问题
考生文件夹下有工程文件sjt3.vbp,控件及其属性见窗体文件。
程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移,最后将数组大小减1。
请将程序代码中的注释符去掉,把?改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 参考答案(画横线部分是需要填入的内容) Private Sub Form_Click() Dim art() Dim x As Single Dim i As Integer,j As Integer art=Array(23,6,9,12,5,8,20,35,65,2,46,56,200,10,7) For i=LBound(aiT)To UBound(nit) Text1.Text=Text1.Text+Str(arr(i)) Next i x=Val(InputBox("输入要删除的值:",,0)) For i=LBound(an.)To UBound(arr) If x=
arr(i)
Then For j=i+1 To UBound(nit) arr(j-1)=
arr(j)
Next j
ReDim Preserve
arr(LBound(arr)To UBound (arr)-1) For k=LBound(arr)To UBound(arr) Text2.Text=Text2.Text+Str(arr(k)) Next k MsgBox"已完成删除操作!"
Exit Sub
End If Next i MsgBox"找不到删除的元素!" End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过For循环把数组alT中的数值依次显示在textl中;Val函数把输入的字符串转化为数值类型;将输入的需要删除的数据与art数组中的每一个数进行比较,若相等,则把该数后面的每一个数依次向前移动一个位置,数组长度减1,此时需要重新分配数组的长度,如果不加Preserve选择项,会清除数组中的内容;找到所需删除的元素,进行相关的操作后,需要退出该事件。
转载请注明原文地址:https://kaotiyun.com/show/aOUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下的用户定义类型:TypeStudentNumberAsString:NameAsString:AgeAsIntegerEndType则以下正确引用该类型成员的代码是
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandl_Click()Dimx%,y%,z%x=InputBox("请输入第1个整数"):y=InputBox("请输入第2个整数")DoUnt
有以下通用过程:Functionfun(NAsInteger)s=0Fork=1ToNs=s+k*(k+1)Nextkfun=sEndFunction该过程的功能是
阅读程序:OptionBase1SubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubForm_Click()Dima(4)AsInte
以下关于通用对话框的叙述中,错误的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
定义学生、教师和课程的关系模式S(S#,Sn,Sd,Dc,SA)(其属性分别为学号、姓名、所在系、所在系的系主任、年龄);C(C#,Cn,P#)(其属性分别为课程号、课程名、先修课);SC(S#,C#,G)(其属性分别为学号、课程号和成绩),则该关系为(
用树型结构表示实体之间联系的模型是()。
(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处于选中状态,运行时的窗体如图3.147所示。请画控件并设置相应属性。
(1)考生文件夹下有一个工程文件sjt3.vbp,其窗体上有1个名称为Text1的控件数组;一个标题为”排序”的命令按钮。程序运行时,在文本框数组中输入8个整数,如图3—29(a)所示;然后单击“排序”按钮,则8个整数按降序排序,如图3—29(b)所示。
随机试题
[*]
患者,男性,80岁,有慢性支气管炎病史20年。1周前受凉后再次出现咳嗽、咳痰,痰白质黏,伴有呼吸困难、胸闷、乏力。以“慢性阻塞性肺疾病”入院治疗。入院后,患者出现口唇发绀,呈端坐呼吸,护理人员应重点监测
脾虚气陷型脱肛用:脾气亏虚型直肠息肉用:
男性,64岁,进行性无痛性黄疸1月,上腹胀痛,体重减轻。检查:巩膜及周身皮肤黄染,P90次/分,BP140/,70mmHg,血清总胆红素为70μmol/L,Courvoisier征阳性为进一步确诊应首先选用
检验检疫机构对法定检验以外的出口食品可以在生产、经营单位检验的基础上,定期或不定期地抽查检验。( )
经省、自治区、直辖市人民政府批准,经济落后地区的城镇土地使用税适用税额标准可以适当降低,但降低额不得超过规定的最低税额的()。
某百货公司(增值税一般纳税人)黄金饰品部2016年2月直接零售金首饰3000克,每克零售价200元;采用以旧换新方式向消费者个人销售金首饰600克.收回旧首饰200克,收取差价80000元,并收取旧首饰折价补偿20元/克。该黄金饰品部当月应缴纳消费税金额为
书法艺术始于春秋战国时期,据考证,发现于唐代的秦国作品()是我国早期书法作品的优秀代表。
情绪异常是一种非常复杂的现象,长期以来,各个领域的学者从自己的学科出发。对此现象纷纷做出各自的解释,但是始终未获解决。现在生物学家也开始涉足这个问题,并从生物学的角度加以探讨,他们的见解让人耳目一新。我们经常说人的情绪多变,其实我们往往不是自己情绪的真正主
明治政府的三大建国政策包括()。①殖产兴业②富国强兵③文明开化④废藩置县
最新回复
(
0
)