首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的5
在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl、Text2,都可以多行显示;三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的5
admin
2009-03-26
32
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
Appiet类中用于返回包含Applet的HTML文件URL的方法是【】。
通过参数定制Applet,请在下划线处编写适当语句工【】,使程序能正确运行。para_duke.html<HTML><HEAD><TITLE>ASimpleProgram</TITLE></HEAD>
结构化程序设计所规定的3种基本控制结构是循环结构、选择结构和【】。
和AWT有关的所有事件类都是从类()派生而来。
下列叙述中正确的是()。
当数据的物理结构(存储结构、存取方式等)改变时,不影响数据库的逻辑结构,从而不致引起应用程序的变化,这是指数据的【】。
Applet可以做下列哪些操作______。
下列命令中,哪个命令能为远程对象生成stub和skeleton?()
在事件处理过程中,涉及的3类对象是事件、事件源和【】。
已知:1Stringinput=JoptionPane.showlnputDialog("Whatsyourname?");2Intage=Integer.parseIntln(input);语句2所起的作用是()。
随机试题
跨国公司的决策体系是()。
“感冒”之名,始见于何书
下列哪种消化性溃疡最易发生出血
急性肺水肿病人吸氧的氧流量应是()
甲为持有某有限责任公司全部股东表决权10%以上的股东,根据公司法律制度的规定,在某些事由下,若公司继续存续会使股东利益受到重大损失,且通过其他途径又不能解决的,甲提起解散公司诉讼时,人民法院应予受理,下列选项中,属于上述“某些事由”的有()。
(2016·河北)基础教育课程改革将综合实践活动课程确定为选修课程。(常考)()
Itcanbeaspecialexperiencetogoonafamilytripduringtheholidayseason,butonereasonthatmanyparents【C6】______tost
B英国文学之作家概况。DanielDefoe是英国现实主义小说家,被誉为“英国及欧洲小说之父”,其代表作为RobinsonCrusoe(《鲁滨逊漂流记》)。
NamesinAmericaMostparentsintheUnitedStatesgivetheir【T1】______afirst,middleandlastnamewhentheyareborn.The
Iamsorryto______(give)yousomuchtrouble.
最新回复
(
0
)