首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Textl中,同时调用1次In-sAndSort过
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Textl中,同时调用1次In-sAndSort过
admin
2020-04-08
45
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubForm_Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Commandl的命令按钮,要求当执行
(1)在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为Listl的列表框和一个名称为Textl的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输
下面关于文件叙述中错误的是( )。
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框PrivateSubCommandl一Click()Text1.Text=“程序设计”Text1.SetFocusEndSubPriv
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10
随机试题
腹腔穿刺术可用于下列哪些情况
Asheappliedsunscreentohisyoungdaughter’sface,DaraO’Rourke,professorofenvironmentalandlabourpolicyattheUniver
中国第一部《公司法》颁布于()
根据《商业银行法》的规定,下列有关商业银行的表述中哪一项是正确的?()
对热拌沥青混凝土路面,在沥青混合料拌合时,混合料的出厂温度控制在()。
人脑在生命头几个月进程中的发育是生物学上自我构成的最为值得提及的形式之一。从诞生的那一刻起,人就来到了一个充满刺激的世界。猛烈的外界刺激潮水般涌人婴儿的睡一醒周期的时间节拍。他的睡一醒行为是受他的大脑神经元结构控制的。新生儿的大脑于是自己生成一个时间程序,
深圳市成海公司是一家依法成立的有限责任公司,在成海公司,()有权决定公司的经营方针。
“老于旅途的人,走在平坦的地方,固是高高兴兴地向前走,走在崎岖的境界,愈是妙趣横生,觉得在此奇绝壮绝的境界,愈能感到一种冒险的美趣。要知在艰难地国运中建造国家,亦是人生最有趣的事。”这句话说明了
设A,B皆为n阶矩阵,则下列结论正确的是().
下列特征中不是面向对象方法的主要特征的是。
最新回复
(
0
)