首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Textl中,同时调用1次In-sAndSort过
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Textl中,同时调用1次In-sAndSort过
admin
2020-04-08
66
问题
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Textl中,同时调用1次In-sAndSort过程,利用插入排序法自动将该整数插入到数组a中,并使数组a中已有的数据保持从小到大的顺序。待第10个整数插入结束后,将数组a中的全部数据按下标从小到大顺序显示到文本框Text2中(已从小到大排序),各数据问用空格分隔。
程序的运行结果示意图如下图所示。
程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 参考答案(划线部分是需要填入的内容) Option Base 1 Const N As Integer=10 Dim(
a()
As Integer Private Sub Commandl_Click() Dim i As Integer Dim d As Integer ReDim a(N)As Integer Textl.Text="" Text2.Text="" Randomize For i=l To N d=Int(Rnd*100+1) Textl.Text=Textl.Text&d&"" Call InsAndSort(i,d,
a()
) Next i For i=l To N Text2.Text=Text2.Text&
a(i)
&" Next i End Sub Private Sub InsAndSort(ByVal c As Integer,By- Val d As Integer,ByRef 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/iNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click() Dima&,s&,k& s=1 a=2 Fork=2To10
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
支持子程序调用的数据结构是( )。
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()CD1.ShowOpenOpen
设有如下Commandl的单击事件过程及fun过程:PrivateSubCommandl_Click()DimXAsIntegerX=Val(InputBox(“请输入一个整数”))
随机试题
根据自己对所要测量的概念的理解,判定工具是否适当的是()
根据劳动法的规定和劳动关系的性质,下列哪一项纠纷属于劳动争议?()
会阴切口部位肿胀疼痛最好采用
男性,70岁,慢性肾衰竭,心悸2天,查心电图发现T波高尖,QT间期延长。通过上述检查可能发现的异常是
由于煤矿井下存在瓦斯和煤尘。因此,煤矿井下只能采用()。
DIF是快速平滑移动平均线与慢速平滑移动平均线的和。()
理财计划按照是否保本,分为保证收益理财计划和非保证收益理财计划。()
下列选项中,可以适用《合同法》的是()。
一农技人员现有208千克含盐量为40%的盐水,若要配备含盐量为32%的盐水312千克,那么需加入的盐和水比例为多少?
ShouldMedicalSchoolsTurntoThree-yearPrograms?[A]ForTravisHill,itwasanoffertoogoodtorefuse.Lastyearwhen
最新回复
(
0
)