首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
admin
2012-10-09
41
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/X3hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击命令按钮时,下列程序的运行结果为PrivateSubCommand1_Click() PrintMyBM(23,18)EndSubPublicFunctionMyBM(mAsInteger,nAsInteger)AsIntege
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
VisualBasic中的控件分为3类,它们是标准控件、【】和可插入对象。
数据库设计分为以下6个设计阶段:需求分析阶段、【】、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
在窗体上画三个单选按钮,组成—个名为chkOption的控件数组。用于标识各个控件数组元素的参数是
结构化程序设计的主要任务是确定每个模块的
只有将组合框的Style属性设置为何值时,才能触发DblClick事件?
下列事件过程的功能是:通过Form_Load事件给数组赋初值为35、48、15、22、67,Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容,将程序补充完整。 Dim Arr() Private Su
算法一般都可以用选择结构、循环结构和【】结构组合而成。
随机试题
简述管理幅度与管理层次的关系。
A.Ⅰ型变态反应B.Ⅱ型变态反应C.Ⅲ型变态反应D.Ⅳ型变态反应抗基底膜性肾小球肾炎属于
以下哪项最支持乙肝病毒相关性肾炎
了解胎儿宫内发育情况的人工监护方法为()。
下列指标中属于结构相对指标的是( )。
被称为“俄罗斯教育心理学的奠基人”的俄国著名教育家是________。
执行下面的程序段后i和j的结果为inti=1,j=10;do{if(i++>--j)continue;}while(i<5);
鼠标拖放控件要触发两个事件,这两个事件是( )。
A、 B、 C、 D、 A注意一位女士正在递纸给另一位女士的画面和周围事物的状态。
A、Toreturntheticket.B、Tobooktheticket.C、Tochecktheticket.D、Tochangetheticket.D
最新回复
(
0
)