首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
admin
2012-10-09
68
问题
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生文件夹下的in5.dat文件中读取40个整数到数组中,并在Textl中显示出来;“降序排列”按钮的功能是对这40个数降序排序,并显示在Textl中;“保存”按钮的功能是把排好序的40个数存到考生文件夹下的out5.dat文件中。程序运行界面如图38—5所示。
注意:在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
本题在排序中,使用双重循环,外循环每循环一次,确定内循环的次数,内循环就是把本次循环中最小的数,放在数组的最后面,这样就可以实现对40个数的降序排序。原代码补充后如下: Dim a(40)As Long Dim str(40)As String Dim tex As String Dim i As Integer Private Sub Commandl Click() ’读取数据 tex="" Open"App.Path&\in5.dat"For Input As#1 For i=1 To 40 Input#1,
a(i)
’逐个读取40个数据 str(i)=a(i) tex:tex+str(i)+"" ’将数组放到一个字符串中 Next i Close#1 Textl.Text=
tex
’在Textl中显示字符串 End Sub Private Sub Command3 Click() ’保存数据 Open"App.Path&\out5.dat"For Output As#1 Print#1,Textl.Text Close#1 End Sub 并在Command2的Click事件中编写以下代码: Private Sub Command2 Click() For i=1 To 40 ’降序排列 temp=a(i) For j=1 To i If a(j)
解析
转载请注明原文地址:https://www.kaotiyun.com/show/X3hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段,在运行时最早输出的内容是 a=2 c=1 AAA: c=c+a Ifc<10Then Printc GoToAAA Else Print"10以内的奇数显示完毕。" EndIf
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsIntege
在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签,然后编写如下代码:PrivatexASIntegerPrivateSubCommand1_Click(
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。 PrivateSubForm_Click() DimiAsInteger Open"Num.txt"ForOutputAs#1 F
编写如下事件过程: PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode) EndSub PrivateSubForm_KeyP
单击命令按钮时,下列程序的执行结果是 PrivateSubCommand1_Click() DimaAsInteger,bAsInteger,CAsInteger a=3 b=4 c=5 PrintSec
下列关系模型中,能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是
在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Commandl和Label1,通过属性窗口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮,
下列说法有错误的是
算法的计算量的大小称为计算的()。
随机试题
《哭小弟》一文的写作特色有()
A、绒毛膜癌B、子宫内膜癌C、外阴癌D、宫颈癌E、卵巢癌上述肿瘤中重点普查的是()
下列哪种行为属于刑法意义上的危害行为?( )
房屋租赁合同中,引起租赁纠纷的主要原因是()。
下列选项中,劳动者可以单方解除劳动合同的情形包括()。
在海运货物保险中,依照我国《海商法》的规定,下列选项中不正确的是( )。
根据物权法律制度的规定,下列关于建筑物区分所有权的表述中,正确的有()。
某电子企业积极参与所属社区的公益事业,为该社区的社会服务机构捐款,该企业负责人认为,通过支持社区的工作,可以间接造福在当地分公司的员工,使工作环境变得更好,促使员工满意度增加,该企业的捐款动机属于()。
什么是固定资产的加速折旧法?它对企业的财务状况会有哪些影响?
•Readtheadvicebelowaboutdeliveringalecture.•Inmostofthelines34-45thereisoneextraword.Itiseithergramma
最新回复
(
0
)