首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Text1中,同时调用1次InsAndSort过程
admin
2020-08-10
72
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
设有下面程序代码:PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"n=fun(ch,st)Prints
在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程:PrivateSubCommandl_Click()n=0Fori=0To10X=2*i-1
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click()Dimarr_x(5,5)AsIntegerFori=1To3Forj=2To4arr_x(i,j)=i*jNextj
窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOption1_Click(IndexAsInteger)…EndSub下面关于此过程的参数Index的叙述中正确的
以下变量名中合法的是
从工程管理角度看,软件设计一般分为两步完成,它们是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"TeXtl.SetFocusEndSubPriv
现有语句:y=IIf(x>0,XMod3,0)设x=10,则y的值是
在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下:窗体中有一个文本框和两个命令按钮。程序运行后,如果单击“读入并显示记录”按钮,则从考生文件夹下
随机试题
给定程序MODI1.C中函数fun的功能是:为一个偶数寻找两个素数,这两个素数之和等于该偶数,并将这两个素数通过形参指针传回主函数。请改正函数fun中指定部位的错误,使它能得出正确的结果。注意:不要改动main函数,不得增行或删行,也不得更改程序
发动机的总体构造包括哪几个部分?
长期负债与营运资金比率可以用来衡量公司的()
某患者,男,55岁,农民。反复发作性腹痛、腹泻2年余,发作时每天大便4~5次,有黏液,伴全身轻度乏力、失眠。查体:轻度贫血貌,左下腹可扪及条索状物。大便镜检:红细胞3~5/HP,白细胞25~30/HP。该患者最可能的诊断是()
可摘局部义齿前牙排列时注意对称美的各个因素中,应首先以下列哪项为重要依据
健康成年男性静息状态下,心输出量约为
下列关于“大医精诚”,表述错误的是
设备承包商对项目管理的主要任务包括()。
下列属于计算输入设备的有()。
基金托管费是指从基金资产中扣除的用于支付销售机构佣金以及基金管理人的基金营销广告费、促销活动费、持有人服务费等方面的费用。()
最新回复
(
0
)