首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Labe12标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Labe14控件中显示。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Labe12标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Labe14控件中显示。
admin
2018-12-20
69
问题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Labe12标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Labe14控件中显示。
要求:工程文件中已给出部分程序,“读数据”命令按钮的事件过程不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。
选项
答案
步骤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。 [*]
解析
在“读数据”按钮的单击事件过程中,用Open语句以Input方式打开数据文件in5.txt,在For循环语句和Do While语句中用Input#语句依次读出10个值并赋值给数组元素a(i)。在“排序”按钮的单击事件过程中,利用“冒泡法”对数组中的元素按从小到大进行排序。在“排序”按钮的单击事件过程中,利用For循环语句逐一将数组中各元素按顺序显示在文奉框中,最后通过调用过程Save将文本框中的内容写入数据文什out5.txt。
转载请注明原文地址:https://kaotiyun.com/show/kfFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据字典(DD)所定义的对象都包含于
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIntege
下面描述中错误的是( )。
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combo1,Command1和Text1,然后编写如下事件过程:PrivateSubForm_Load() Combo1.AddItem"AAAAA" Combo1.AddI
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger) …EndSub则下面叙述中错误的是( )。
随机试题
实现进给运动的传动链,是主传动链()
评定患者营养状况的最可靠指标是
石淋的代表方剂是
上呼吸道最狭窄处为
《国务院关于落实科学发展观加强环境保护的决定》提出:在生态环境脆弱的地区和重要生态功能保护区实行( ),在坚持保护优先的前提下,合理选择发展方向,发展特色优势产业,确保生态功能的恢复与保育,逐步恢复生态平衡。
下列关于作业成本法的说法,正确的有()。
某单位每逢年底会针对全体员工进行评优,评优奖项有5个,分别是最佳敬业奖、最佳创意奖、最佳协作奖、最佳写作奖、年度明星奖。其中如果评选了年度明星奖则不能再评选最佳创意将和最佳敬业奖;如果评选了协作奖,就不能再获得写作奖;如果评选了敬业奖,则不能再获得协作奖。
根据下面的文字资料回答下面问题北大校办企业产值从1990年的10亿元人民币增加到2000年底的120亿元人民币,每年增幅超过30%,上缴国家利税20亿元,给学校回报近4亿元。
计算机网络OSI参考模型中的7个层次从高层至低层分别是:应用层、表示层、会话层、运输层、网络层、【 】层和物理层。
下列属于Java流程控制结构的语句是
最新回复
(
0
)