首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时能自动调用Start过程,产生10个1~100的随机整数保存到数组a中,并将它们显示到文本框Text1中,成为原始数据序列,用户可在文本框T
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时能自动调用Start过程,产生10个1~100的随机整数保存到数组a中,并将它们显示到文本框Text1中,成为原始数据序列,用户可在文本框T
admin
2019-08-21
92
问题
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时能自动调用Start过程,产生10个1~100的随机整数保存到数组a中,并将它们显示到文本框Text1中,成为原始数据序列,用户可在文本框Text3中输入一个数据,按下回车键后,程序开始在数组a中查找该数据是否存在,如果不存在,则出现消息对话框显示“未找到该数据”;如果存在,则将该数据从数组a中删除(删除的方法是将该数据所在元素的后面所有元素依次前移一个位置),删除结束后,将数组元素的个数减1,最终将删除后的结果显示到文本框Text2中,并将文本框Text3设置为不可用。
单击“重新开始”按钮,则调用Start过程重新对数组a以及各控件的内容进行初始化,并形成新的一组数据序列,用户可以重复以上相关操作。
程序的运行结果示意图如下图所示。
程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 参考答案(画横线部分是需要填入的内容) Option Base 1 Const N As Integer=10
Dim a()As Integer
Private Sub Start() Dim i As Integer ReDim a(N)As.Integer Text1.Text=" " Text2.Text=" " Text3.Text=" " Text3.Enabled=True Randomize For i=1 To N a(i)=Int(Rnd*100+1) Text1.Text=Text1.Text&a(i)&" " Next i End Sub Private Sub Form_Load() Call Start End Sub Private Sub Command1_Click() Call Start End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) Dim m As Integer Dim i As Integer,j As Integer m=Val(
Text3.Text
) If KeyAscii=13 Then For i=1 To N If a(i)=m Then
Exit For
End If Next i If i=N+1 Then MsgBox("未找到该数据") Else For j=i+1 To N
a(j-1)
=a(j) Next j ReDim
Preserve
a(N-1) Forj=1 To N-1 Text2.Text.=Text2.Text&a(j)&" " Next j Text3.Enabled=False End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题主要考查对数组运用的熟练程度。数组一定要事先定义才能使用,Start过程是对数组的初始化,把随机生成的数据存入数组a中。文本框传入的数据都是字符型,使用时需要转化成相对应的类型。Text3_KeyPress过程利用for循环判断Text3中的数据是否在数组a中,若存在。退出for循环,然后把i+1以及后面的数依次向前移一个位置,最后数组长度减1;若不存在,则弹出“未找到该数据”消息框。重新分配动态数组时,数组的内容将被清除,但如果ReDim中使用了Preserve选择项,则不清除数组内容。
转载请注明原文地址:https://kaotiyun.com/show/edUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单机命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
在菜单编辑器中建立1个名称为Menu()的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程PrivateSubForm_MousDown(ButtonAsInteger,ShiftAsInteger,XAsS
在窗体画一名为CommonDialog1,则下列与CommonDialog1.ShowOpen方法等效的语句是
窗体上有1个名称为CD1的通用对话框,1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommandl_C1ick()CD1.FileName=""CD1.Filter="AllFiles|*.*|(*
下列选项中不属于面向对象程序设计特征的是
在考生文件夹下有一个工程文件sjt5.vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。程序功能如下:(1)考生文件
软件需求规格说明的内容不包括()。
下面不属于需求分析阶段任务的是()。
有三个关系R、S和T如下:其中关系T由关系R和S通过某种操作得到,该操作为()。
设数据结构B=(D,R),其中D={a,b,c,d,e,f}R={(f,a),(d,b),(e,d),(c,e),(a,c)}该数据结构为()。
随机试题
李秘书需要将《国家中长期人才发展规划纲要》一文编辑整理并下发各部门,利用考生文件夹下提供的相关素材、参考样例文档,按下列要求帮助他完成文档的编排,最终的稿件不应超过22页:打开考生文件夹下的Word文档“Word素材.docx”,将其另存为“Word.
简述出入境商品检验检疫的依据。
下列关于有价证券说法正确的有()
重力式码头墙后回填中粗砂,适用()进行加固密实。
下列有关对票据的表述中,不正确的是( )。
对于股东而言,普通股每股的价值可以被称为()
患者表现出幻觉、妄想或紧张综合征症状的躁狂发作,称之为()。
Oneofthemostsuccessfulcommercialproductseverlaunchedissaidtohavecomeaboutastheresultofamistake.In1896,by
TomanyAmericans,Obama’selectionasPresidentmarked______.
Fertilizerusehasexploded,overloadingplantsworldwide,likelyalteringecosystemsfordecadestocenturies,scientistsrepor
最新回复
(
0
)