首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
admin
2018-09-19
69
问题
在考生文件夹中有一个工程文件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’当有交换就置标签为假 EndIf Next j If f Then’如果上次循环没有交换数据,则证明序列已排序好,则f为真退出循环 Exit For EndIf Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘,如图3.34。 [*]
解析
在“读数据”按钮的单击事件过程中,用Open语句以Input:方式打开数据文件in5.txt,在For循环语句和Do While语句中用Input#语句依次读出10个值并赋值给数组元素a(i)。在“排序”按钮的单击事件过程中,利用“冒泡法”对数组中的元素按从小到大进行排序。在“排序”按钮的单击事件过程中,利用For循环语句逐一将数组中各元素按顺序显示在文本框中,最后通过调用过程Save将文本框中的内容写入数据文件out5.txt。
转载请注明原文地址:https://kaotiyun.com/show/62Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有两个文件框,名称分别为Text1、Text2;还有一个命令按钮,名称为C1,标题为“确定”;请添加两个单选按钮,名称分别为Op1、Op2,标题分别为“男生”、“女生”,再添加两个复选框,名称分
以下是窗体的Click事件过程:PrivateSubForm_Click()DimaAsIntegera=1Doa=a+5LoopUntila>18PrintaEndSub程
下列叙述中正确的是
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:PrivateSubCommand1_Click() n%=List1.ListIndex Ifn>0Then ch$=List1.Lis
有下面的程序段:Fori=14To5Step-3PrintNexti执行此程序段后,i的值为
表达式Int(5.3)+Int(-5.8)>Fix(5.3)+Fix(-5.8)的值是
当窗体上有多个控件时,为了在程序运行后使得焦点位于某个控件上,应对该控件进行的设置是
下面描述不属于软件特点的是
有如下数据定义语句:DimX,YAsInteger以上语句表明( )。
下面对类-对象主要特征描述正确的是
随机试题
A.cGMP依赖的蛋白激酶B.酪氨酸蛋白激酶C.cAMP依赖的蛋白激酶D.Ca2+磷脂依赖的蛋白激酶蛋白激酶C是
A.胆总管扩张呈囊状、柱状或纺锤状B.局限于肝内胆管的多发囊状扩张(Caroli病)C.胆总管十二指肠壁内段囊状膨出D.胆总管单发憩室样扩张E.多发性胆管囊肿,位于肝内外或肝外胆总管囊性扩张症Ⅱ型是指
用于解救甲氨蝶呤引起的巨幼细胞贫血的是
A.中国药典B.企业标准C.药品注册标准D.行业标准E.炮制规范由国家食品药品监督管理局批准给申请人的特定药品标准是()。
某公司经营规模迅速扩张,但由于人员储备不足,造成很多重要岗位无人填补,这说明该公司的()工作没有做好。
广播电视具有怎样的特点和功能?
根据是否具有统一法典形式,可以把宪法分为()。(2012年真题)
下列语句中错误的是()。
为“运动员”表增加一个字段“得分”的SQL语句是
Itcanbetemptingtomakeahastydecisionwhenakilleropportunitycomesalongorthethoughtofspendinganotherdayonthe
最新回复
(
0
)