首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Textl中,同时调用1次In-sAndSort过
考生文件夹下有工程文件sjt4.vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是,单击“开始”按钮,自动产生10个1~100的随机整数,且每产生一个整数,就将该整数显示到文本框Textl中,同时调用1次In-sAndSort过
admin
2020-04-08
56
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时( )。PrivateSubClick_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
A、PrivateSubForm_Click()x=InputBox("输入界面","请输入数据",20)EndSubB、PrivateSubForm_Click()x=InputBox("请输入数据","输
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( )。
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
以下能够设置控件焦点的方法是( )。
某系统总体结构图如下图所示:该系统总体结构图的深度是( )。
(1)考生文件夹下的工程文件sjt3.vbp中有2个标题分别是“产生范文”和“结束”的命令按钮:2个名称分别为Text1和Text2,初始值为空的文本框。请再画1个名称为Label3、标题为“正确率”的标签,画1个名称为Text3、初始内容为空的文本框。效
随机试题
小学生由于在某门学科的学习过程中几次受到表扬,就表现出喜欢上这门课。反之,由于某门学科成绩总是很差,就可能不喜欢这门课。这种学习动机属于()。
曹某系A市中级人民法院法官,2006年从A市中级人民法院辞职。下列关于曹某的活动中,可以被允许的是哪一或哪些?()
加强以()、()为重点的堤防建设。
建设单位的下列行为中,违反《建设工程质量管理条例》规定的是()。
某两端固定的受压构件,其临界力为200kN,若将此构件改为两端铰支,则其临界力为()kN。
下列属于公司信贷理论的有()。
1994年7月19日中国联通公司正式成立,获准经营通信业务,标志着()。
运用说服教育法要注意哪些要求?
Whichofthefollowingsentencesexpresses"probability"?
Whichofthefollowingmightbethebesttitleforthepassage?Whichofthefollowingcanbeinferredfromthepassage?
最新回复
(
0
)