首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程
admin
2020-08-10
62
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若Y代表年份,下面判断闰年的正确表达式是
下列叙述中正确的是()。
以下关于窗体的叙述中错误的是
以下自定义数据类型的语句中,正确的是
窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOption1_Click(IndexAsInteger)…EndSub下面关于此过程的参数Index的叙述中正确的
下列关于栈的叙述正确的是
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
软件生命周期是指
以下打开VisualBasic菜单编辑器的操作中,错误的是
随机试题
传统的集合运算包括()。
A.头低足高位B.去枕仰卧位C.端坐位D.半坐卧位E.俯卧位急性肺水肿患者应采取
A.匹鲁卡品(Pilocarpine)B.毒扁豆碱(Physostigmine)C.氢溴酸加兰他敏(GalantamineHv-drobromide)D.他克林(Tacrine)E.溴化新斯的明(Neostigmine)
背景资料:某施工单位承担的一项机电安装工程进入单体试运行阶段。项目部计划对一台解体出厂、现场组装的大型裂解石油气压缩机进行试运行,该压缩机转速为5850r/min。试运行前行检查,确认试运行范围内的工程,压缩机出口管道系统设计压力为11.2MPa
设置工资项目。项目名称数据类型数据长度小数位数奖金数字122
事业单位利用国有资产进行下列行为,须经主管部门审核同意后.报同级财政部门审批的是()。
美国教育家杜威认为,教育就是儿童现在生活的过程,而不是将来生活的预备。他说:“生活就是发展,而不断发展,不断成长,就是生活。”因此,最好的教育就是“从生活中学习”、“从经验中学习”。教育就是要给儿童提供保证成长或充分生活的条件。这段话要表达的中心思想是(
下列关于Word“文档窗口”的叙述中,错误的是()。
Theprojectmaintainsacurrentandapprovedsetofrequirementsoverthelifeoftheprojectbydoingthefollowing:(43)allch
Exceptionalchildrenaredifferentinsomesignificantwaysfromothersofthesameage.Forthesechildrento【C1】______tothei
最新回复
(
0
)