首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的5
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的5
admin
2009-03-26
63
问题
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在T’eXt2中;“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中。如图9—5所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写”排序”按钮的Click事件过程。
注意:使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
本题考查Str()函数,“冒泡法”排序,For循环语句,If判断语句及文件操作。根据题意,打开本题工程文件,打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,编写如下代码: Dim a(50)As Integer Private Sub C1 Click() Dim k As Integer,ch As String Open App.Path&"/in5.dat"For Input As#1 ch="" For k=1 To 50 Input#1,
a(k)
ch=ch+Str(a(k))+"" Next k Close#1 Textl.Text=
ch
End Sub Private Sub C2 Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch="" For i=50 To 2 Step-1 For j=1 To 49 If a(j)>a(j+1)Then t=a(j+1) a(j+1)=a(j) a(j)=t End If Next j Next i For j=1 To 50 ch=ch+Str(a(j))+"" Next j Text2.Text=ch End Sub Private Sub C3 Click() Open App.Path&"/out5.dat"For Output As#1 Print#1,Text2.Text Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/wV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
给定下面的代码:byte[]arrayl,array2[];bytearray3[][];byte[][]array4;如果上面的每一个数组都初始化了,以下各项语句中错误的是()。
在文件类提供的方法中,用于创建文件夹的方法是()。
下列关于JDK目录结构的说法,错误的是
下列关于类、包和源文件的描述中,不正确的一项是()
如果对一个关系实施了一种关系运算后得到了一个新的关系,而且新的关系中属性个数少于原来关系中属性个数,这说明所实施的运算关系是()
J2SDK的基本命令中用于Java类文件归档的是【】。
Applet可以做下列哪些操作()
已知;1Stringinput=JoptionPane.showInputDialog("Whatsyourname?");2intage=Integer.parseIntln(input);语句2所起的
在面向对象方法中,允许作用于某个对象上的操作称为 【】 。
下列不属于表达式语句的是()。
随机试题
男性,48岁,吸烟20余年,每天约20支,间断咳嗽、咳痰10年,加重伴喘息2年,喘息每年冬春季加重。吸入过敏原血清抗体过筛试验阴性,为明确诊断宜行
患者,男,52岁。肝硬化病史10年。因肝性脑病入院治疗。实验室检查:血钾2.8mmoL/L,血钠135mmol/L,血氯110mmol/L,血氨230μmmol/L,pH7.36。首选的治疗药物是
下列不属于产钳助产适应证的是
保证工程质量是()的首要义务和责任。
承包商赵某施工的楼盘的下水道与城市主管道对接,施工中开挖的管道沟未设置保护措施和警示标志。当天黄昏,李某骑车回家途中经过该地段时掉入坑中,造成胳膊骨折。该楼盘承包商赵某应对李某承担的责任属于()。
焊接工艺评定应以可靠的()为依据,并在工程施焊前完成。
宏达期货公司共有10家营业部,现有净资产5000万元,资产调整值为100万元,负债调整值为200万元,有两家客户需要追加保证金,但经催告后仍然未足额追加,未足额追加的保证金数额达到1000万元,该期货公司客户权益总额为10亿元。根据以上数据,回答下列问题:
()明确“全国政治中心、文化中心、国际交往中心、科技创新中心”的城市战略定位,由此开启了前所未有的从“集聚资源求增长”到“疏散功能谋发展”的重大变化。
一批商品,期望获得50%的利润来定价,结果只销掉70%的商品,为尽早销售掉剩下的商品,商店决定按定价打折出售,这样所获得的全部利润是原来所期望利润的82%,问打了多少折扣?()
A、Itiswater-proof.B、Itcancalmdowncryingbabies.C、Itkeepsthebabiesabsolutelysafe.D、Ithasclownspaintedoutside.C
最新回复
(
0
)