首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
admin
2020-04-08
67
问题
考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4
有下列程序代码:PrivateSubCommand1_Crick()RandomizeDimx(30)AsInteger,sAsIntegerFork%=1To30x(k)=Int(Rnd
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivateTypeRecord IDAsInteger NameAsString*20EndTypePrivateSubCommand1_Click()
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load()Shape1.Top=0Timer1.Inter
下列针对框架控件的叙述中,错误的是()。
(1)考生文件夹下的工程文件sjt3.vbp中有2个标题分别是“产生范文”和“结束”的命令按钮;2个名称分别为text1和Text2,初始值为空的文本框。请再画1个名称为Label3、标题为“正确率”的标签,画1个名称为Text3、初始内容为空的文本框。效
计算下面分段函数的正确语句是()。
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
随机试题
女性,29岁,诊断为肥厚型心肌病。下列哪项不符合其诊断
化妆品中含大量Bi、Al、Ca时,用原子吸收光谱法测定会干扰测铅的结果,这是因为
进行工程项目设计审查主要是从()等方面对工程设计方案进行审核。
我国城乡规划法规体系中的基本法是()
机场目视助航工程专业承包企业资质等级为一级的标准有()。
在MRPⅡ上能解决计划、物流、资金流等“如果怎样,将会怎样”的问题,这属于MRPⅡ结构()特点。
关于可转换债券,以下表述不正确的有()。
在激进型融资政策下,下列结论成立的是()。
TheactorwithwhomIplayedthescene______formebeautifully,whisperingtheopeningwordsofeachofmylines,asdidothers
ItisknowntousthatEnglishisnotasoldasChinese,butitiswidelyusedbymostpeopleallovertheworld.Englishspeake
最新回复
(
0
)