首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的5
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的5
admin
2009-03-26
43
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/PLq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Appiet类中用于返回包含Applet的HTML文件URL的方法是【】。
需求分析最终结果是产生()。
用synchronized标识的共享数据必须是【】。
Java语言支持【】协议,从而使得Java程序在分布式环境中能够很方便地访问处于不同地点的对象。
查找随机文件的记录时,应使用的方法是()。
在软件开发中,下面任务不属于设计阶段的是()。
在关系数据库中,把数据表示成二维表,每一个二维表称为【】。
在面向对象的程序设计中,下列叙述中错误的是
按运算符操作数的数目划分,运算符?:的类型是()。
下列命令中,哪个命令能为远程对象生成stub和skeleton?()
随机试题
患者女,58岁,回吸鼻涕带血,痰多1年余,鼻腔检查见右侧中道黏脓,并有少许肉芽。鼻窦CT示:右上颌窦密度增高,并有钙化斑。该患者可能的诊断为
患者,男性,25岁,体重60kg。不慎被开水烫伤,自觉剧痛,头面部、颈部及双上肢均有水疱。若对该患者实施补液治疗,伤后第一个8小时应输入的电解质溶液量为
关于以划拨方式取得土地使用权的房地产转让时适用的《房地产管理法》特殊规定,下列哪些表述是正确的?()
某套利者在9月1日买入10月份的白砂糖期货合约,同时卖出12月份白砂糖期货合约,以上两份期货合约的价格分别是3420元/吨和3520元/吨,到了9月15日,10月份和12月份白砂糖的期货价格分别为3690元/吨和3750元/吨,则9月15日的价差为(
幼儿看书距离过近,时间长了容易产生()。
社区文化建设系统性原则的表现为()。
2015年,某市非公有制经济实现增加值348.12亿元,比上年净增加23.69亿元,非公有制经济增加值占地区生产总值的比重为57.5%。其中,民营经济增加值335.24亿元,外商经济增加值11.84亿元,港澳台经济增加值1.04亿元,分别比“十一五”末(2
“证照分离”改革有效降低了企业制度性交易成本,优化了营商环境,激发了市场活力和社会创造力。国务院决定,在全国各自由贸易试验区率先开展“证照分离”改革全覆盖试点。关于“证照分离”改革,下列说法正确的是()。
Writeanessayof160~200wordsbasedonthefollowingdrawing.Inyouressay,youshould1)describethedrawingbriefly,2)
Whatisthemaninterestedinatthebeginningoftheconversation?
最新回复
(
0
)