首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt3.vbp,控件及其属性见窗体文件。 程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移,最后
考生文件夹下有工程文件sjt3.vbp,控件及其属性见窗体文件。 程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移,最后
admin
2019-08-21
43
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
在某个事件过程中定义的变量是
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码前叙述中,错误的是
窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框,窗体的单击事件过程如下:PrivateSubForm_Click()CD1.DialogTitle="改变颜色":CD1.Color=Form1.BackColorC
编写如下程序:PrivateSubCommandl_Click()DimnAsLong,SAsStringn=InputBox("输入一个数")DoWhilen<>0S=S&nMod10:s=s&n\
在窗体上画一个组合框,其名称为Combol,然后编写如下事件过程:PrivateSubForm_Load()Combol.Text=”1”Fori=1To10Sum=Sum+iNextiCombol.Text=Sum
以下关于控件数组的叙述中,正确的是
在窗体模块的声明部分声明变量时,不能使用的关键字是
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为()。
设一棵满二叉树共有15个结点,则在该满二叉树中的叶子结点数为()。
设子程序过程定义的首部为:PublicSubS(XAsInteger,YAsSingle)则以下正确的调用形式为
随机试题
斜向沟通
有关新生儿破伤风的治疗原则,不正确的是
男,18岁,上前牙受伤,但未折断。半年后,该牙逐渐变色,变色的原因是()
甲为乙运送三十吨水泥,乙拒不付款,假定应付运输费用为一千元,每吨水泥250元,则()。
宏达公司2014年年初的资产总额为90000元,负债为50000元。2014年1月份发生的经济业务事项如下:(1)公司行政办公室职工因公出差,预借差旅费100元,以现金支付。(2)收到投资方投入银行存款5000元。(3)
根据《上海证券交易所债券交易实施细则》的规定,债券质押式回购交易实行企业债回购交易按()进行申报。
科学发展观的核心是()。
阅读下列材料回答后面的问题。中国古代饮茶之风始于唐,盛于宋。到宋代,茶叶已成为中原及周边各族人民“一日不可以无”的日常消费品,对宋代的社会生活产生了重大影响。材料一西戎茶马之市,自宋已然。盖土蕃潼酪腥膻,非茶不解其毒……(中原)藉之可
长时间以来,英国的医生认为戴墨镜的病人更易于消沉并患上忧郁症。对因诸如心脏疼痛和消化不良等身体不适而住院的病人进行的心理测试证实了这一联系。或许觉得周围的一切使得心理上痛苦的人选择这样的墨镜去减少视觉刺激,视觉刺激被认为是令人易发怒的。不管怎么说,人们可以
A、Inonlyonesemester.B、Injusttwosemesters.C、Inatmostthreesemesters.D、Inatleastfoursemesters.C选项中重复出现的semesters表
最新回复
(
0
)