首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3-169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3-169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
admin
2018-10-29
41
问题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3-169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求:工程文件中己给出部分程序,“读数据”命令按钮的事件过程不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码! Do While Not EOF(1) s=s & Str(a(i)) 步骤2:在代码编辑窗口指定位置编写以下代码。 参考代码: num=UBound(a) For i=1 To num-1 For j=i To num If a(i)>a(j) Then t=a(i) a(i)=a(j) a(j)=t End If Next Next 步骤3:按<F5>键运行程序,先单击“读数据”按钮,再单击“排序”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/atFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
能够用于标识对象名称的属性是( )。
设运行程序时弹出的菜单如图所示.关于该菜单,以下叙述中错误的是( )。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx;yEnd
面向对象方法中,继承是指( )。
下面不能作为结构化方法软件需求分析工具的是
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
设循环队列存储空间为Q(1:50)。初始状态为front=rear=50。经过一系列入队和退队操作后,front=14,rear=19,则该循环队列中的元素个数为
随机试题
Thereis______trafficonthestreetsaftertherushhour.
下列哪种细胞为再次免疫应答中的抗原提呈细胞
下列哪些情形下上一级人民法院可以根据申请执行人的申请,责令执行法院限期执行或者变更执行法院:()
某电子公司现有从业人员251人,公司已经同有资质的中介公司签订了安全生产管理服务委托合同,中介公司委派安全工程技术人员提供安全生产管理服务。电子公司安全生产的责任应由()负责。
“进口口岸”栏应填:“贸易方式”栏应填:
首次公开发行股票的累计投标询价阶段,主承销商可通过申购平台实时查询申报情况,并于T日(累计投标询价截止日)15时后,查询并下载申报结果。( )
行李和邮递物品进口税简称行邮税,其中,包含了在进口环节征收的()。
甲公司20×8年度与投资相关的交易或事项如下:(2009年)(1)1月1日,从市场购入2000万股乙公司发行在外的普通股,准备随时出售,每股成本为8元。甲公司不具有控制、共同控制或重大影响。12月31日,乙公司股票的市场价格为每股7元。(2)1月1日,
素丝说
Ifyoudon’tlook______,you’llgetthatheavyboxonyourhead.
最新回复
(
0
)