首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
admin
2020-04-08
92
问题
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在Text7.中;“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中,如图所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容,并编写代码。 参考答案(阴影部分是需考生填入的内容) 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)
’将取出的数据存入数组a中 ch=ch+Str(a(k))+""’将数 据存入ch Next k Close#1 Textl.Text=
ch
′在Textl文本框中显示文件内容 End Sub Private Sub C2_C1ick() End Sub Private Sub C3 Click() Open"out5.dat"For Output As#1 Print#1,Text2.Text Close#1 End Sub 需编写的“排序”按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim 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(3+i) a(j+1)=a(j) a(j)=t End If Next j Next i For j=l To 50′将排序后的数组重新赋给ch ch=ch+Str(a(j))+"" Next j Text2.Text=ch End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】注意冒泡排序的用法,理解位置交换的含义和方法,在交换时要有一个中间变量来起到传递的作用,否则会使其中一个值丢失而产生错误。
解析
str函数用于数值转化为字符串,语法为:Str(number)。
转载请注明原文地址:https://kaotiyun.com/show/lATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框PrivateSubCommandl一Click()Text1.Text=“程序设计”Text1.SetFocusEndSubPriv
(1)考生文件夹下的工程文件sjt3.vbp中有2个标题分别是“产生范文”和“结束”的命令按钮:2个名称分别为Text1和Text2,初始值为空的文本框。请再画1个名称为Label3、标题为“正确率”的标签,画1个名称为Text3、初始内容为空的文本框。效
有如下数据定义语句:DimX,YAsInteger 以上语句表明()。
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
己知在菜单编辑器中设计了窗体的快捷菜单,其主菜单为a1,且取消其“可见”属性,如图2所示。运行时,以下()事件过程可以使快捷菜单的菜单项响应鼠标右键单击。
下面关于数据库三级模式结构的叙述中,正确的是()。
以下关于注释语句的叙述中,错误的是
为了判断字符串变量strName中的姓名是否姓"李",应采用的表达式是
下列关于菜单项的描述中,错误的是()。
为了使通用对话框弹出的窗口标题显示为“文件操作”,应对通用对话框控件设置的属性是()。
随机试题
工程项目公开招标的第一个环节是()。
施工招标过程中,招标人在进行资格预审时的工作内容不包括()。
下列各项中,应计人产品成本的是()。
根据下列资料。回答下列问题。2015年福布斯全球企业前十强中,美国企业的市值总和为:
自然系统是一个整体,自然系统的可持续生存与进化离不开系统内部子系统之间的协同作用。自然系统复杂的内部结构和不同层级多样的组分往往会通过突现作用产生更高层级的功能属性。高层级功能属性的产生是低层级子系统之间非线性相互作用的结果,而非子系统功能的简单加和。维持
OscarWildesaidhefeltsorryforthosewhonevergottheirheart’sdesire,butsorrierstillforthosewhodid.Itseemstobe
美国国家航空航天局宣布开普勒太空望远镜的一项新发现,编号为Kepler452b的行星成为人类几千年来梦寐以求的“另一颗地球”,也是目前发现的“最像地球”的一颗类地行星。但是开普勒太空望远镜只能观测到行星的大小,以及距离恒星有多远,无法判定Kepler—45
Childrenlearnalmostnothingfromtelevision,andthemoretheywatchthelesstheyremember.Theyregardtelevisionpurely【C1】
TV,ifproperlyused,can______achild’simagination.
A、BrentwoodinAmerica.B、London.C、EssexinEngland.D、Scotland.C
最新回复
(
0
)