首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
admin
2019-05-14
35
问题
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Text1中显示出来;“排序”按钮的功能足对这50个数按升序排序,并显示在Text2中;“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中,如图所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并编写代码。 参考代码(画下划线部分是需填入的内容) Dim a(50)As Integer Private Sub C1_Click() Dim k As Integer,ch As String Open"5in5.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 Text1.Text=
ch
’在Text1文本框中显示文件内容 End Sub Private Sub C2_Click() 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(j+1) a(j+1)=a(j) a(j)=t End If Next;j Next i For j=1 To 50’将排序后的数组重新赋给ch ch=ch+Str(a(j))+"" Next;j Text2.Text=ch End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/qHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999的整数读入到数组a中;②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框
在名称为Form1的窗体上添加一个名称为Image1的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。要求:
软件设计中模块划分应遵循的准则是
在名称为Form1的窗体上添加一个名称为Label1,标题为“口令”的标签;添加一个名称为Text1的文本框;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“显示口令”、“隐藏口令”、“重新输入”。程序运行
在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Text1的文本框,初始内容为空;添加一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Co
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性。该属性为
要使标签中的文本靠右显示,应将其Aligraent属性设置为
现有程序如下:OptionBase1PrivateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5Forj=1To6x(i,j)=Int(Rnd*9+1)
设有下面程序代码:PrivateSubCommand1_Cliek()DimaAsVairanta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=a(0)n=mFork=1
在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框,通过属性窗口输入4个列表项:“数学”、“语文”、“历史”、“地理”,列表项形式采用复选框形式,如图所示。列表框的宽为1100,高不限。注意:存盘时必须存放在考生文件夹下,工程文
随机试题
学生、教师或学校的合法权益受到侵害时,通过一定的手段或途径,请求政府实行强制性手段。这种方法或途径被称为__________。
简述电子商务影响下企业组织结构重组的变化趋势。
女性,60岁。2年前患脑梗死,此后常进食呛咳,1年来反复肺部感染,引起肺部感染的主要原因是
(2008年考试真题)投资者可将基金份额在上海证券交易所场内不同会员营业部之间进行转指定,也可在上海证券交易所场内系统和场外系统之间进行跨市场转托管。()
发行人()的,由中国人民银行按照《中华人民共和国中国人民银行法》第四十六条的规定予以处罚。
某公司实行了扩张的企业战略,计划招聘员工120名,但是公司高层犹豫是采用内招聘还是外部招聘。根据以上资料,回答下列问题:内部招聘的优点包括()。
教学进程是师生之间生命对接的过程。()
运输距离越短,价格越低。()
Thedifferencebetween"writer"and"reporter"or"journalist"isn’tthatthejournalistreports—she【C1】______sources,callspeo
Rainforestsarecalledthelungsoftheplanet,becausetheyabsorbcarbondioxide,greenhousegas,andproduceoxygen,whichis
最新回复
(
0
)