首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图2.134所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图2.134所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
admin
2020-06-30
51
问题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图2.134所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求:工程文件中已给出部分程序,“读数据”命令按钮的事件过程不完整,淆去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sit5.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(3)=t End If Next Next 步骤3:按
键运行程序,先单击“读数据”按钮,再单击“排序”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/xUHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图所示,对应的事件过程是()。
窗体上有一个名称为Commandl的命令按钮,并有如下程序代码:PrivateSubCommand1—Click()Staticaa=1:b=2:c=3Callf(a,b,c)Printa;b;CEndSubSubf(ByVal
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubFormLoad()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pic
下列叙述中正确的是()。
以下能在窗体Forml的标题栏中显示“VisualBasic窗体”的语句是
以下关于VB文件的叙述中,正确的是
能够用于标识对象名称的属性是
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
随机试题
图中是机动车车道标志。
构成蛋白质一级结构的化学键是()
患者,女性,23岁,学习游泳误入深水区,溺水。抢救出水时,心搏、呼吸已停。下一步处理是
关于从业禁止的论述,下列哪一选项是错误的?()
防火规范将建筑材料的燃烧性能分为三大类,下列哪类不属于其中?[2006年第007题]
关于基本表和存储文件,下列说法中正确的是()。
某公司为了提高轮胎的质量,应用排列图分析造成轮胎不合格品的各种原因,发现“耐磨度”占第一位。为了解决“耐磨度”问题,再次应用排列图分析造成“耐磨度”的原因,结果发现主要是由于原材料质量不稳定造成的。为此厂方决定应用控制图对“耐磨度”进行过程控制。应该采
个人或单位为谋取不正当利益,给予国家机关、国有公司、企业、事业单位、人民团体以财物,或者在经济往来中,违反国家规定,给予各种名义的回扣、手续费的行为,应判为()。
使用VC6打开考生文件夹下的源程序文件modi2.cpp。请完成函数fun(char*s),该函数完成以下功能:(1)把S中的大写字母转换成小写字母,把其中的小写字母转换成大写字母。并且在函数中调用写函数WriteFile()将结果输出到modi
Completethesummarybelow.ChooseNOMORETHANTWOWORDSfromthepassageforeachanswer.Writeyouranswersinboxes11-14on
最新回复
(
0
)