首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3.169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3.169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
admin
2017-09-22
67
问题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3.169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求:工程文件中已给出部分程序,“读数据”命令按钮的事件过程不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。
选项
答案
步骤1:打开考生文件夹中的本题工程文件sjt5.vbla,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: 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:按
键运行程序,先单击“读数据”按钮,再单击“排序”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
设计思路:在“读数据”按钮的单击事件中,首先使用Do While当型循环结构从文件中读取全部数据,并以Not EOF(文件号)(非文件结尾)作为循环条件,通过Input #语句将打开文件中的数据逐一读出后赋值给a(i),然后将数组连接起来显示在标签中。
在“排序”按钮的单击事件过程中,源程序利用“冒泡法”对记录数组中的元素从小到大进行排序。
转载请注明原文地址:https://kaotiyun.com/show/3jGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1Click()n=5f=1s=0Fori=1Tonf
下列程序运行后的输出结果是【】。PrivateSubf(k,s)s=1Forj=1Toks=s*jNextEndSubPrivateSubCommand1_Click()Sum=0Fori=1
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7
为了清除列表框中的所有内容,应使用的方法是______。
编写如下事件过程:PrivateSubForm_keyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_Keypress(
下列语句的输出结果是【】。PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
要把一个命令按钮设置成无效,应设置属性______的值为False。
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
随机试题
下列药物的功效不正确的是
A、Toaskforadvice.B、Toblamethedoctor.C、Tochatwithafriend.D、Tomakeanappointment.A本题是对细节进行提问。根据对话中的“Couldyougive
成人食管异物最易停留的部位是
基金管理人、代销机构应当建立健全档案管理制度,妥善保管基金份额持有人的开户资料和与销售业务有关的其他资料,保存期不少于()年。
计算已获利息倍数时的利息费用,指的是计入财务费用的各项利息。()
下列关于租赁相关概念的表述中,正确的有()。
有5本不同的书,其中语文书2本,数学书2本,物理书1本,若将其随机的并排摆放到书架的同一层上,则同一科目的书都不相邻的概率为()
法律责任与法律制裁的关系中,表述正确的一项是
Shereadapoemwhichdepictsthesplendorofthesunset.
WhydoesJessiewanttochangeherhairstyle?
最新回复
(
0
)