首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
admin
2018-05-08
38
问题
在考生文件夹中有一个工程文件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,”未找到”,
设在窗体上有一个名称为Checkl的复选框数组,并有以下事件过程:PriVateSubCheckl_Click(IndexAsInteger)EndSub则下面叙述中错误的是
编写如下程序:PrivateSubCommandl_Click()Dima(3,3)AsInteger,b(3,3)AsIntegerFori=1To3For
有如下程序:Functionfun(ByValnumAsInteger)AsIntegerDimkAsIntegerk=1num=Abs(num)DoWhilen
下面控件中,没有Caption属性的是
在程序运行时,下面的叙述中正确的是
以下关于菜单的叙述中,错误的是
要将单选按钮Optl设为被选中,应设置的属性是
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若Y代表年份,下面判断闰年的正确表达式是()。
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
随机试题
制定《环境与资源保护法》的目的有()
寄生人体吸虫的繁殖方式是
A、 B、 C、 D、 E、 A
下列关于行政处罚中“一事不再罚原则”的表述正确的是()。
若函数f(x)=x(ax2+bx+c)(a≠0)在x=1和x=一1处有极值,则下列点一定在x轴上的是().
唐朝的有息借贷契约被称为()
证明:函数f(x)在x0处可导的充要条件是存在一个关于△x的线性函数L(△x)=α△x,使=0.
SQL是【】语言,其核心是【】。
RobertFrostwasborninSanFranciscoin1875.Whenhewasattheageoften,hewassenttoNewEngland,anareawhich【B1】____
CultureShockA)BecauseI’velivedinChinaforalongtime,localsoftensmileandgivemethehonorabletitleofbeing"a
最新回复
(
0
)