首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程
admin
2020-08-10
61
问题
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程,利用插入排序法自动将该整数插入到数组a中,并使数组a中已有的数据保持从小到大的顺序。待第10个整数插入结束后,将数组a中的全部数据按下标从小到大顺序显示到文本框Text2中(已从小到大排序),各数据间用空格分隔。
程序的运行结果示意图如下图所示。
程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
选项
答案
插入排序法是一种简单直观且稳定的排序算法。插入排序的基本操作就是将一个数据插入到已经排好序的有序数据中,从而得到一个新的、个数加一的有序数据。本题程序具体算法描述如下: ①从已排序的数组最后一个元素开始,与要插入数组的元素进行比较; ②如果该元素大于要插入数组的元素,则将该元素向后移到下一位置; ③重复步骤②,直到找到已排序的数组中元素小于或者等于要插入数组的元素的位置; ④将要插入数组的元素插入到该元素的下一位置中。 题目程序中已给出BeDim a(N)As Integer,故第1个?处应为a( );根据题目定义的函数可知,调用该函数需要三个参数,第三个参数为数组,故第2个?处应为a( );由于文本框Text2中各数据问用空格分隔,故第3个?处应为a(i);根据程序的算法,当要插入的元素小于数组中元素时,数组中该元素向后移动到下一位置,则第4个?处应为b(k+1)=b(k);当找到数组中元素小于或者等于要插入的元素时,将要插入数组的元素插入到该元素的下一位置中,则第5个?处应为b(k+1)=d。 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 Option Base 1 Const N As Integer=10 Dim a( ) As Integer Private Sub Command1_Click( ) Dim i AsInteger Dim d As Integer ReDim a(N)As Integer Text1.Text=“” Text2.Text=“” Randomize For i=1 To N d=Int(Rnd*100+1) Text1.Text=Text1.Text&d&”” Call InsAndSort(i,d,a( )) Next i For i=1 To N Text2.Text=Text2.Text&a(i)&”” Next i End Sub Private Sub InsAndSort(ByVal c As Integer,ByVal d As Integer,ByBef b( )As Integer) Dim k As Integer For k=c-1 To 1 Step-1 If d<b(k)Then b(k+1)=b(k) Else Exit For End If Next k b(k+1)=d End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/TvHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是
设有如图所示窗体和以下程序:PirintSubCommandl_Click()Text1.Text="VisualBasic"EndSubPrivateSubText_LostFocus()
设有如下事件过程:PrivateSubCommand1_Click()Dimaa=Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5)x=0n=UBound(a)Fori=0Tonm=0Forj=0T
为了使文本框显示滚动条,除要设置ScrollBars外,还必须设置的属性是
以下叙述中正确的是
以下不属于单选按钮的属性是
以下不可以作为“容器”的控件是
关于变量作用域,下列叙述中正确的是()。
窗体上有一个名称为HScrolll的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
下列描述中,不符合良好程序设计风格要求的是
随机试题
税务师受托对某公司增值税纳税情况进行审批,发现该公司下列税务处理错误的是()。
齿面的表面结构值要求较小,一般用()表示,也可用Ra表示。
人体内调节血钙和钙离子水平的主要器官是
颗粒剂的赋形剂常选用片剂的崩解剂常选用
不设置“预付账款”的企业,在发生预付款项业务时,可将其通过()科目核算。
税款征收应遵循哪些原则?
某房地产开发公司于2009年1月受让一宗土地使用权,根据转让合同支付转让方地价款6000万元,当月办好土地使用权权属证书。2009年2月至2010年3月中旬该房地产开发公司将受让土地70%(其余30%尚未使用)的面积开发建造一栋写字楼。在开发过程中,根据建
在13衰变中常伴有一种称为“中微子”的粒子放出。中微子的性质十分特别,因此在实验中很难探测。1953年,莱尼斯和柯文建造了一个由大水槽和探测器组成的实验系统,利用中微子与水中11H的核反应,间接地证实了中微子的存在。上述核反应产生的正电子与水中的电子相
“君子之谋也,始、衷、终皆举之,而后入焉。今我三不知而入之,不亦难乎!”出自《左传》,其中“三不知”具体指:
Itisnotpolitetoarriveatadinnerpartymorethan15to20minuteslate.Thehostorhostessusuallywaitsforallthegues
最新回复
(
0
)