首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程
admin
2020-08-10
74
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
下列叙述中正确的是()。
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为
对手某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"TeXtl.SetFocusEndSubPriv
在考生文件夹下有一个工程文件sjt5.vbp,在该工程文件中已经定义了一个学生记录类型数据StudType。(1)在考生文件夹下有一个工程文件sjt3.vbp,其功有三个标题分别为“学号”、“姓名”和“平均分”的标签;三个初始内容为空,用于接收学
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图2-58所示。运行程序,单击”读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击”排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求:
在考生文件夹下,“samp1.accdb”数据库文件中已建立了3个关联表对象(名为“职工表”、“物品表”和“销售业绩表”)和一个窗体对象(名为“fTest”)。请按以下要求,完成表和窗体的各种操作。(1)分析表对象“销售业绩表”的字段构成、判断并
结构化程序的三种基本控制结构是
随机试题
PASSAGEONE(1)WhenAndycametoShawshankin1948,hewasthirtyyearsold.Hewasashortneatlittlemanwithsandyhairan
HP网站网络管理应用案例随着亚太地区业务发展和公司规模的扩张,HP希望可以全面了解亚太各主要城市用户访问其网站的应用现状。HP采用SiteView网站性能监测系统,主要用来监测其网站在亚太地区主要城市的应用状况。主要从以下几个方面进行:
Therearemanywaystolearnaboutthepeopleofotherlands.Someofthesewayscanbeveryinteresting.Onewayistostudyth
特发性血小板减少性紫癜最主要的发病机制是血友病的发病机制是
中性点非直接接地系统中35/10kV变电站,选择变压器中性点的阀型避雷器的参数。工频放电电压下限(内过电压水平2.67Uxg)大于()。
黏液质的人冷静、沉着、自制、踏实,但缺乏适当的教育就会导致()。
修剪果树枝干,第1天由第1位园丁先修剪1棵,再修剪剩下的1/10,第2天由第2位园丁先修剪2棵,再修剪剩下的1/10……第n天由第n位园丁修剪n棵,结果n天就完成,问如果每个园丁修剪的棵数相等,共修剪了多少棵果树?()
WhenthePacificWarbrokeout,Edwardwasdraftedbythenavyandservedfourfullyearsonabigaircraftcarrier.
(Gallery)Cafě
A、BecauseIlikedtohaveawalk.B、Becausemymotherfeltsick.C、BecauseIwenttothepartyalone.D、Becausethepartywasve
最新回复
(
0
)