首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
admin
2018-05-08
52
问题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
要求:工程文件中已给出部分程序,“读数据”命令按钮的事件过程不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(10) As Integer Public Sub Save() Open App.Path & "\out5.txt" For Output As #1 Print #1, Label4.Caption Close #1 End Sub Private Sub Command1_Click() Open App.Path & "\Data5.txt" For Input As #1 ’ Do While Not ? For i = 1 To 10 Input #1, a(i) ’ s = s & ? Next i Loop Close #1 Label2.Caption = s End Sub Private Sub Command2_Click() ’=====以下考生编写程序开始======== ’=====考生编写程序结束========== For i = 1 To 10 s = s & Str(a(i)) Next i Label4.Caption = s Save End Sub 程序结束 参考答案 第1个?处填入:EOF(1) 第2个?处填入:a(i) 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 Exit For End If Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/deGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommandl_Click()DimaAsStringa=”COMPUTER”n=search(a,”T”):PrintIIf(n=0,”未找到”,
在窗体上画一个命令按钮(名称为Commandl),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsInteger
设有下面程序代码:OptionBase1PrivateSubCommandl_Click()Dimx(6)a=Array(4,2,5,1,6,3)b=Array(6
在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Labell,然后编写如下事件过程:PrivateSubCommandl_Click()Counter=0Fori=1To4
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
某人为计算n!(0<n<=12)编写了下面的函数过程:PrivateFunctionfun(nAsInteger)AsLongDimPAsLongp=1
下面控件中,没有Caption属性的是
下面叙述中错误的是
在程序运行时,下面的叙述中正确的是
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndcc
随机试题
准据法表达公式
合伙协议是个人合伙成立的基础。()
患者,男性,59岁。半月前体检中无意发现骶尾部肿物,伴有溶骨性破坏,大、小便习惯未见明显改变。查体:骶尾部局部轻度叩击痛,局部可见轻度隆起。影像学提示:S3以下骨质破坏。下列有诊断意义的辅助检查有
心脏停搏时间是指从循环停止到
糖尿病的基本生化特点是
医疗法律关系是指医务人员受患者委托或其他原因,对患者实施诊断、治疗等医疗行为所形成的法律关系。根据上述定义,下列不属于医疗法律关系的是()。
课程实施是将课程方案付诸实践的过程,对课程实施起决定作用的因素是()
下列叙述中,不属于结构化分析方法的是______。
Five-year-oldEliaarrivedatschoolwithabigboxofcoloredpencils.Herfriend,Anna,offeredtoexchangehersetofmarkers
ThinkorSwim:CanWeHoldBacktheOceans?[A]Astheworldgetswarmer,sealevelsarerising.Ithasbeenhappeningatasnai
最新回复
(
0
)