首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。 在考生文件夹下有一个工程文件sjt5.vbp,窗体上二有两个文本框,名称分别为Text1和Text2,都可以多行显示。还有3个命令按钮,名称分别为C1、C2和C3,标题分别为“取
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。 在考生文件夹下有一个工程文件sjt5.vbp,窗体上二有两个文本框,名称分别为Text1和Text2,都可以多行显示。还有3个命令按钮,名称分别为C1、C2和C3,标题分别为“取
admin
2009-02-25
21
问题
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。
在考生文件夹下有一个工程文件sjt5.vbp,窗体上二有两个文本框,名称分别为Text1和Text2,都可以多行显示。还有3个命令按钮,名称分别为C1、C2和C3,标题分别为“取数”、“排序”和“存盘”。“取数”按钮的功能是把考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Text1中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在Text2中;“存盘”按钮的功能是把排好序的50个数存到考生文件夹下的out5.dat文件中。程序运行界面如图23-5所示。
在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
首先理清程序提供代码的思路,然后修改程序并编写代码。 从程序提供的代码中可以看出,整型数组a的使用范围是本窗体中的所有事件过程,用来存放从文件中读取的数据。在排序中,使用双重循环,外循环每踞环一次,确定内循环循环的次数,内循环就是把本次循环中最大的数,放在数组的最后面,这样就可以实现对这50个数的升序排序。解题步骤: 第一步:分析题目提供的代码。 Dim a(50) As Integer Private Sub C1_Click() Dim k As Integer,ch As String Open "in5.dat" For Input AS #1 ch=" " For k=1 To 50 ’Input #1, ? ch=ch+Str(a(k) ) +" " Next k Close #1 ’Text1.Text= ? End Sub Private Sub C3_Click() Open "out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 第二步:编写程序代码。 参考代码: Dim a(50) As Integer Private Sub C1_Click() Dim k As Integer, ch As String Open "in5.dat" For Input As #1 ch="" For k=1 To 50 Input #1, a(k) ch=ch+Str(a(k) ) +" " Next k Close #1 Text1.Text=ch End Sub Private Sub C2_Click() Dim t As Integer, i As Integer, j As Integer Dim ch As String ch="" For i=50 To 2 Step -1 For j=1 To 49 If a(j)>a(j+1) Then t=a (j+1) a(j+1)=a(j) a(j)=t End If Next j Next i For j=1 To 50 ch=ch+Str(a(j) ) +" " Next j Text2.Text=ch End Sub Private Sub C3_Click() Open "out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/fh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一元算术运算符中,运算符+的功能是()。
执行以下程序段后:a=________,b=__________。inta=5,b;b=++a*3;
在Java语言中,将后缀名为_________的源代码文件编译后形成后缀名为.class的字节码文件。
在JavaApplet程序中,如果对发生的事件做出响应和处理的时候,应该使用下列哪个语句
下面程序段的输出结果是classBase{inti;Base(){add(1);}voidadd(intv){
程序设计方法要求在程序设计过程中
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={67
E-R数据模型一般在数据库设计的______阶段使用。
随机试题
下列文章中,体现民本思想的是()
悲剧作为审美形态,与其发展紧密相关的西方艺术形式是()
______,liquidscanbechangedintogases.
2007年8月,神州塑料制品股份有限公司就公司某些主要职务的任职人选作出以下决议,其中哪些不符合法律规定?()
甲为出售一台挖掘机分别与乙、丙、丁、戊签订买卖合同,具体情形如下:2016年3月1日,甲胁迫乙订立合同,约定货到付款;4月1日,甲与丙签订合同,丙支付20%的货款;5月1日,甲与丁签订合同,丁支付全部货款;6月1日,甲与戊签订合同,甲将挖掘机交付给戊。上述
预应力筋切断不得采用()切割。
现行合同法采取的违约责任归责原则是()。
销毁国家秘密文件,应当到()。
Readthetextbelowabouttheuseofpaperinoffices.Inmostofthelines(34-45),thereisoneextraword.Iteitherisgramma
Wedidn’tfinishtheworkintime.You______ussinceyouwerethere.
最新回复
(
0
)