首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
admin
2016-09-06
40
问题
在考生文件夹中有一个工程文件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全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() c=1234 c1=Trim(Str(c)) Fori=1To4 Pri
要使工具栏控件的某按钮呈按钮菜单的样式,可以在其属性页中设置其______选项为5-tbrDropDown。
数据结构分为逻辑结构和存储结构,线性链表属于______。
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsInteger Open______As#1 Fori=1To
下列可以打开立即窗口的操作是()。
在VisualBasic环境下,当写一个新的VisualBasic程序时,所做的第一件事是()。
下面不属于需求分析阶段任务的是
软件生命周期中的活动不包括
下列软件系统结构图的宽度为__________________。
下面循环语句巾在任何情况下都至少执行一次循环体的是()。
随机试题
列宁认为,应该在俄国研究和传授泰罗制,有系统地试行这种制度并使之适应下来,他号召苏维埃政权当前的任务是必须采取和试行
我国证监会规定,企业计算净资产收益率时应采用()
不属单代号网络绘制步骤的是()。
国家实行()的学校教育制度。
2001年底,我国民营企业的总户数约比2000年底增长了:( )2001年底,我国民营企业户数超过20万户的省份有:( )
某投资者平价购入面额总计为10000元,期限为2年,年利率为10%(单利),到期一次性还本付息的债券,离到期日还有整两个月时向银行贴现,那么:该债券到期的本利和为多少?
首次规定“三个文明”协调发展内容的是()。
SocialHistoryoftheEastEndofLondon1.lst-4thcenturiesProducefromtheareawasusedto【T1】______thepeopleofLo
TheOlympicGamesoriginatedin776B.C.inOlympia,asmalltowninGreece.ParticipantsinthefirstOlympiadaresaidtohav
PresidentCoolidge’sstatement,"ThebusinessofAmericaisbusiness,"stillpointsanimportant【B1】______today—thatbusinessi
最新回复
(
0
)