首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时能自动调用Start过程,产生10个1~100的随机整数保存到数组a中,并将它们显示到文本框Text1中,成为原始数据序列,用户可在文本框T
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时能自动调用Start过程,产生10个1~100的随机整数保存到数组a中,并将它们显示到文本框Text1中,成为原始数据序列,用户可在文本框T
admin
2019-08-21
117
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下:PrivateSubCommandl_Click()Open"c:\f1.txt"ForInputAs#1:Open"c:\f2,txt"ForOutputAs#2
以下能对正实数d的第3位小数四舍五入的表达式是
以下表达式与Int(3.5)的值相同的是
窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框,窗体的单击事件过程如下:PrivateSubForm_Click()CD1.DialogTitle="改变颜色":CD1.Color=Form1.BackColorC
下面关于控件数组的叙述中正确的是
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为()。
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
(1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow)形状,如图3.56所示;在窗体中其他位置处,鼠标光标为十字(Cross)形
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
随机试题
某公司为上市公司,根据我国《公司法》,下列人员中,不得担任该公司独立董事的有()。
汽车市场常见的细分方法有_______。
“仲”“季”“叔”“伯”是我国古代对兄弟排行的次序,其中排行第四位的是()。
拟发行上市公司的高级管理人员可以在持有公司5%以上股权的股东单位及其下属企业担任()的职务。
以下各项不属于自动稳定的财政政策的表现的是()。
X工业企业下设供水、供电两个辅助生产车间,采用交互分配法进行辅助生产费用的分配。2017年4月,供电车间交互分配前实际发生的生产费用为10万元,应负担供水车间的水费为2万元;供电总量为50万千瓦时(其中:供水车间耗用10万千瓦时,基本生产车间耗用20万千瓦
建立社会主义市场经济体制主要是使市场()。
根据下列材料回答下列题。2009年末,云南省共有金融企业法人单位414个。其中,银行业占48.1%,证券业占1.7%,保险业占22.7%,其他金融活动业占27.5%。金融企业就业人员13.96万人。其中,银行业占62.4%,证券业占1.4%,保险业
残缺家庭是指家庭中配偶一方因离婚、死亡、出走、分居等原因使家庭成员不全的家庭。在现代西方国家,离婚率较高,造成残缺家庭数量增多。以美国为例,20世纪70年代以来,每两对登记结婚的夫妇中就有一对离婚.单亲家庭数量增加75%以上。离婚后,由于男子的再婚机会多于
Shefeltdizzyandhadto______somethingtosteadyherself.
最新回复
(
0
)