首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.Vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读人文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
在考生文件夹中有一个工程文件sjt5.Vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读人文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
admin
2020-07-22
30
问题
在考生文件夹中有一个工程文件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://jikaoti.com/ti/uDS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
向文本框中输入字符时,下面能够被触发的事件是
设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1,及下面的事件过程:PrivateSubForm_Load()PrivateSubCommand1_Click()HScroll1.Min=0
编写如下程序:PrivateSubCommand1_Click()Dima(3,3)AsIntegerDim8AsIntegerFori=1To3Fo
数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和
下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
软件测试的目的是
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
下面描述中不属于数据库系统特点的是
已知a=6,b=15,c=23,则语句PrintSgn(a+bMod6-c\a)&a+b的输出结果为( )。
执行语句DimX,YAsInteger后( )。
随机试题
关于细胞毒性脑水肿描述,错误的是
关于葡萄胎的清宫术,下列哪项不正确
HLA-I类分子重链的α1和α2形成的槽状结构HLA-I类分子重链的胞质区
反映疾病严重程度的指标是
订立合同的当事人一方向另一方发出的希望和他订立合同的意思表示是()。
近因效应也称新颖效应,是指在多种刺激一次出现的时候,印象的形成主要取决于后来出现的刺激,即在认知和交往过程中,当人们识记一系列事物时对末尾部分项目的记忆效果优于中间部分项目的现象。根据上述定义,下列选项中不属于近因效应的是()。
DepressionCarrieMcintyreandDamonThompsonwereeagerlyplanningtheirfuturetogether.TheyoungFloridacouplehadgoo
Whenthemanaskedffhecouldpaybycheck,theassistant______.Whywasthemaninvitedintothemanager’soffice?
Accordingtothestatement,theUNSecurityCouncilresolutionconcerningIsraelandYasserArafatwaspresentedbytheUnitedS
Manyoftoday’scollegestudentsaresufferingfromaformofshock.Lisaisagoodexampleofastudentinshock.Sheisan
最新回复
(
0
)