首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
admin
2016-09-06
71
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
在用Open语句打开文件时,如果省略“For方式”,则打开的文件的存在方式是______。
假设变量bool_x是一个布尔型(逻辑型)的变量,则下面正确的赋值语句是()。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() c=1234 c1=Trim(Str(c)) Fori=1To4 Pri
以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。请填空。PrivateSubCommand1_Clcik() Randomize ForI=1To20 X=Int(Rnd*_____
Sub过程与Function过程最根本的区别是
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum+i
下列各组变量声明正确的是()。
当条件为5<x<10时,则x=x+1,则以下语句正确的是()。
设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。PrivateSubCommandl_Click()Dima(1To10)AsI
随机试题
人们习惯称“针形考克”的阀门,即()截止阀,常用作采输气场站仪表管路控制阀,其密封面为锥形阀瓣,高、低压密封性能都很好。
试述对外投资对国际市场经营活动的带动作用。
食积气滞应首选的药物是()
扁平苔癣与寻常型银屑病的病理特征性鉴别点是
泥浆护壁钻孔灌柱桩施工工艺流程中,“第二次清孔”的下一道工序是()。
个人教育贷款是银行向()发放的用于满足其就学资金需求的贷款。
东晋灭亡后,相继出现了()4个小王朝,称为南朝。
A、 B、 C、 D、 C
Fordecadesthemarketforexpensiveheadphoneswasmainlylimitedtohi-fifans.But【C1】________theboxystereosysteminthec
It’swellknownthatbiganimals,likepolarbears,aresensitivetoclimatechange.TheEarthwarms,polarice【B1】______,andt
最新回复
(
0
)