首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
在考生文件夹下有一个工程文件Sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生
admin
2012-10-09
43
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下列程序是判断一个整数(>=3)是否为素数,请补充完整。 DimnAsInteger n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i=2 swit=0 Whilei
下列叙述中正确的是
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSubCommand1_Click(
表示滚动条控件取值范围最大值的属性是
在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后,在列表中添加若干列表项。当双击列表框中的某个项目时,在标签Labe1中显示所选中的项如图所示。请在空白处填入适当的内容,将程序补充完整。 PrivateSubForm
在VisualBasic中,要将一个窗体加载到内存进行预处理但不显示,应使用的语句是
只有将组合框的Style属性设置为何值时,才能触发DblClick事件?
在列表框中当前被选中的列表项的序号是由下列哪个属性表示_________。
下列可作为VisualBasic变量名的是_________。
随机试题
一定量气体反抗一定的压力进行绝热膨胀时,其热力学能总是减少的。
简述社区文化互动的历史价值。
患者,女,49岁,有高血压病史,每日一片服用某药物2年余。患者无明显诱因下出现四肢乏力伴胸闷,症状呈进行性加重,继发出现双上肢抽搐,双手僵硬呈爪型。急诊检查血压146/92mmHg,血钾2.9mmol/L,予积极补钾治疗,症状明显好转。数日后再次出现四肢乏
预期收益原则可以在()中得以应用。
(2005年)一般来说,某反应在其他条件一定时,温度升高其反应速率会明显增加,主要原因是()。
根据股价未来变化的方向,股价运行的形态划分为()。
关于再社会化,下列说法中正确的是()。
中国建立并实施的第一个现代学制是()
下列属于人民检察院执行监督的是()。
张中行老人辞世已有好多天了,一直想写点什么纪念一下,可是又不知道如何下笔。不是我不知道写什么,而是老人给我们留下的需要我们思索的东西太多了。翻看老人留下的文章,(I)老人坎坷的一生,不能不掩卷叹息,原来人生就是这个样子。张中行,身后给予他的评价,已经至高至
最新回复
(
0
)