首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
admin
2016-09-06
65
问题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
要求:工程文件中已给出部分程序,“读数据”命令按钮的事什过稗不完整,清去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事什过程中的部分程序代码。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。程序调试通过后,两个命令按钮的事什过程必须至少各执行一次。
选项
答案
【操作步骤】 步骤1:打开木题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 For i=1 To 10’循环比较大小实现排序 f=True’设置标签 For j=1 To 9 If a(j)>a(j+1)Then’相邻两数比较将最小值放前面 t=a(j) a(j)=a(j+1) a(j+1)=t f=False’当有交换就置标签为假 End If Next j If f Then’如果上次循环没有交换数据,则证明序列已排序好,则f为真退出循环 Exit For End If Next i 步骤3:凋试并运行程序,关闭程序后按题目要求存盘,如图3.34。 [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/GZLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
______(黑箱或白箱)测试方法完全不考虑程序的内部结构和内部特征。
设有如下程序:PrivateSubCommand1_Click() DimsumAsDouble,xAsDouble sum=0 n=0 Fori=1To5 x=n/i
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性
Sub过程与Function过程最根本的区别是
常见的软件工程方法有结构化方法和面向对象方法,类?继承以及多态性等概念属于【】。
设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。PrivateSubCommandl_Click()Dima(1To10)AsI
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是______。
符合结构化原则的三种基本控制结构是顺序结构、____________和循环结构。
下列运算符中,优先级别最低的是
随机试题
1871年《德意志帝国宪法》规定议会的组成是()
阅读《风波》中的一段文字,回答下列小题:现在的七斤,是七斤嫂和村人又都早给他相当的尊敬,相当的待遇了。到夏天,他们仍旧在自家门口的土场上吃饭;大家见了,都笑嘻嘻的招呼。九斤老太早做过八十大寿,仍然不平而且康健。六斤的双丫角,已经变成了一支大辫子了;
单纯性大疱性表皮松解症的水疱位于
国内某居民公司2010年从国外某企业(在中国未设立机构、场所)租入价值200万元的通讯设备,合同约定使用期限一年,支付使用费80万元。该公司应代扣代缴的所得税()万元。
国画是我国传统的美术形式,我国存世最早、最完整的国画作品是()。
(2016·河南)下列有关德育的说法中,正确的是()
有人评价,其一生就是“为中国教育寻觅曙光”。这个人物是
Oracle针对Internet/Intranet的产品是______。
若有以下定义:inta[]={1,2,3,4,5,6,7);charcl=’b’,c2=’2’;则数值不为2的表达式是()。
InflationBusinessandgovernmentleadersalsoconsidertheinflationratetobeanimportantgeneralindicator.Inflationi
最新回复
(
0
)