首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt3.vbp,控件及其属性见窗体文件。 程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移,最后
考生文件夹下有工程文件sjt3.vbp,控件及其属性见窗体文件。 程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移,最后
admin
2019-08-21
66
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandlClick()DimiAsInteger,nAsIntegerFori=0To50
以下关于控件数组的叙述中,正确的是
假定一个工程由一个窗体文件Form1和两个标准模块文件Mode11和Mode12组成Mode11的代码如下:PublicxAsInteger:PublicyAsIntegerSubS1()
使用语句DimA(1To10)AsInteger声明数组A后,以下叙述正确的是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为CD1的通用对话框,通过属性窗口设置CD1的初始路径为C:\,默认的文件名为None,标题为“保存等级考试”,如图2所示。注意:存
数据管理技术发展的三个阶段中,()没有专门的软件对数据进行管理。I.人工管理阶段II.文件系统阶段III.数据库阶段
设一棵树的度为4,其中度为4,3,2,1的结点个数分别为2,3,3,0。则该棵树中的叶子结点数为()。
在考生目录下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,显示“*”),无初始内容;Text
某棵树中共有25个结点,且只有度为3的结点和叶子结点,其中叶子结点有7个,则该树中度为3的结点数为()。
支持子程序调用的数据结构是()。
随机试题
#include<stdio.h>voidfun(intm,intn,intar[][4],int*bar){inti,j,x;for(i=0;i<3;i++){x=ar[i][0];f
患者男,24岁,长期佩戴角膜接触镜。10天前开始左眼轻度流泪、异物感、视力下降,近3天出现剧烈疼痛。裂隙灯下见角膜放射状浸润。应高度怀疑何种疾病()
患者,男,78岁,近日来出门后不识回家的路,把衣服当裤子穿,把裤子当衣服穿,丢三落四,经常忘记当前发生的事情。与该疾病治疗相关的药物中,哪项除外()。
下列关于税金的叙述不正确的是()
描述性调研帮助企业理清营销过程中相互关联的事物之间的因果关系;预测性调研可帮助企业发现和评估新的市场机会,有利于企业把握机遇、拓展业务;描述性调研帮助企业对决策可能产生的结果进行预测。()
下列关于个人耐用消费品贷款的说法正确的有()。
被辞退人员应当在接到《辞退国家公务员通知书》()内,办理公务就交接手续。
复议申请人为省部级单位的,复议机关是国务院。()
WilsonUniversitySecurityOfficeStartingonApril1,securitybarswillbeinstalledattheentrancestoalluniversityfacult
Kitchendutiesmayhavetraditionallybeenviewedaswomen’swork,butnotattheWhiteHouse.Untilnow:CristetaComerfordhas
最新回复
(
0
)