首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
admin
2012-10-09
65
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
有如下的程序:PrivateSubCommand1_Click() DimkAsInteger,mAsInteger DimPAsInteger k=4:m=1 P=Pid(k,m):PrintP; P=Pid(k,m):Pri
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
数据库保护分为:安全性控制、【】、并发性控制和数据的恢复。
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明TyPePersonnameASString*8majorASString
设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程:PrivateSubCommand1_Click()StaticbAsVariantb=Arra
在数据库管理系统提供的数据语言中,负责数据的模式定义与数据的物理存取构建的是
下面程序的功能是统计字符串中“广的个数,请填空。 SubCOU( ) a$="BeijingUniversityofTechnology" DimnASInteger n=Len(a$) Fori=1T
下列程序段的执行结果为 a=95 Ifa>60Thendegree=1 Ifa>70Thendegree=2 Ifa>80Thendegree=3 Ifa>90Thendegree=4 Print"deg
VisualBasic中的控件分为两类,―类是ActiveX控件,另一类是
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是_________。
随机试题
《中华人民共和国刑事诉讼法》第一百九十五条规定:“第二审人民法院审判上诉或者抗诉案件的程序,除本章已有规定的以外,参照第一审程序的规定进行”,这一规定属于()。
甲公司因购货于2012年1月1日应付乙公司账款100万元,货款偿还期限为3个月。2012年4月1日,甲公司发生财务困难,无法偿还到期债务,经与乙公司协商进行债务重组。双方同意:以甲公司一项专利抵偿债务,该专利原值为100万元,已累计摊销20万元,公允价值为
存款准备金率调整会影响商业银行可以自由运用的资金量,利率调整会影响商业银行的存款成本和贷款收益。()
A上市公司(以下简称A公司)与B公司发生的长期股权投资业务如下:(1)A公司于2009年1月1日以2070万元购入B公司股票400万股,每股面值1元,占B公司实际发行在外股数的30%,A公司采用权益法核算此项投资。投资合同约定,被投资方如果发生巨额
根据迁移发生的前后方向,可以把迁移分为__________和__________。
记载宋以前历代典章制度的所谓“三通”是()。
教育中我们强调的是人格的独特性。(湖北省)
行政诉讼案件移送必须具备的条件有()
“将书上某行帖上几个字,要被试者将所帖的字填写出来”体现的唐代科举考试的考试方法是
每个人在工作、学习、经济上都或多或少会有压力。有压力不一定是坏事,关键是要知道怎样做才能给自己减压。看电影、听音乐,甚至跟朋友一起聊天儿、散步等,都是非常有效的办法。根据这段话,压力:
最新回复
(
0
)