首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
admin
2012-10-09
66
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 SubPR() Randomize Dima(10) Forj=1To10 a(i)=Int
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger,pAsIntegerm=3:n=5:p=OCallY(m,n,p)
有如下的程序:PrivateSubCommand1_Click() DimkAsInteger,mAsInteger DimPAsInteger k=4:m=1 P=Pid(k,m):PrintP; P=Pid(k,m):Pri
在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮,要求单击命令按钮时,打开一个保存文件的对话框,该窗口的标题为“Save”,缺省文件名称为“SaveFile”,在“文件类型”栏中显示*txt,则能够满足上述要
有如下事件过程: PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) If(ButtonAnd3)=3Then Print"OK" EndIf EndSub
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。 PrivateSubForm_Click() DimiAsInteger Open"Num.txt"ForOutputAs#1 F
在关系模型中,把数据看成一个二维表,每一个二维表称为一个【】。
编写如下事件过程: PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode) EndSub PrivateSubForm_KeyP
下列说法有错误的是
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。去掉程序中的注释符,把程序中的?改为正确的内容,使其实现下述功能,但不能修改程序中的其他部分。在窗体上有三个菜单(名称分别为Read、Calc和Save,标题分别为“读入
随机试题
对学业成绩测验的有效性的分析。应使用()
左心室的入口是________,其周缘附有________;出口是________;其周缘附有________。
酶促反应达最大速度的80%时,km等于
两足并拢站立闭目,此项检查为
关于精液生理学的叙述,错误的是
扶正方法不包括
[背景资料]某大型桥梁工程,主跨为50m预应力钢筋混凝土简支T形梁,T形梁施工采用预制吊装,预应力采用后张法施工。施工单位项目部对该工程施工现场的生产要素管理作了详细的安排。施工的组织形式采取矩阵式管理组织形式。施工中所使用的钢
利润表是反映单位一定会计期间财务状况的报表。()
一个PC机的主板上设有256KB的高速缓存(cache),它的功能是( )。
A、Computersalesnegotiations.B、Apreliminaryinterview.C、AnInternetseminarmeeting.D、Computergames.B综合推断题。女士一开始就让男士介绍自己之
最新回复
(
0
)