首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时能自动调用Start过程,产生10个1~100的随机整数保存到数组a中,并将它们显示到文本框Text1中,成为原始数据序列,用户可在文本框T
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时能自动调用Start过程,产生10个1~100的随机整数保存到数组a中,并将它们显示到文本框Text1中,成为原始数据序列,用户可在文本框T
admin
2019-08-21
95
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作韵事件过程是
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是
列表框中的项目保存在一个数组中,这个数组的名字是
占构化程序所要求的基本结构不包括
关系数据库管理系统能实现的专门关系运算包括()。
针对VisualBasic的菜单设计操作,下面叙述中错误的是()。
定义学生、教师和课程的关系模式S(S#,Sn,Sd,Dc,SA)(其属性分别为学号、姓名、所在系、所在系的系主任、年龄);C(C#,Cn,P#)(其属性分别为课程号、课程名、先修课);SC(S#,C#,G)(其属性分别为学号、课程号和成绩),则该关系为(
表达式2*3^2+4*2/2+3^2的值是()。
循环队列的存储空间为Q(1:100),初始状态为front=rear=100。经过一系列正常的入队与退队操作后,front=rear=99,则循环队列中的元素个数为()。
某图书集团数据库中有关系模式R(书店编号,书籍编号,库存数量,部门编号,部门负责人),其中要求(1)每个书店的每种书籍只在该书店的一个部门销售;(2)每个书店的每个部门只有一个负责人;(3)每个书店的每种书籍只有一个库存数量。则关系模式R最高是()
随机试题
下列有关义务教育的说法,正确的是()。
Ifyouhavethreeyears’workexperience,youwillbetheright______forthisjob.
核型为47,XX,21的唐氏综合征(又称21三体)儿,其双亲核型正常,则发病原因是下列哪项
A.上颌牙槽嵴B.磨牙后垫C.切牙乳突D.颊侧前庭E.粘液腺导管开口属于缓冲区
使用化痰药治疗癫痫惊厥者,最常配伍的是
猪囊尾蚴病的传染源为
建筑局部夹层有人员正常活动的最低处的净高不应小于()m。
下列选项认购国债,通常不会扩大货币供应量的有()。
在公益广告文案的诉求方式中,以正面引导的方式直接灌输公益观念的是()。
Theperiodofadolescence,i.e.,theperiodbetweenchildhoodandadulthood,maybelongorshort,dependingonsocialexpectati
最新回复
(
0
)