首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、 “排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、 “排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件
admin
2015-06-30
22
问题
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、 “排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Text1中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在Text2中;“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中,如图所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(50) As Integer Private Sub C1_Click() Dim k As Integer, ch As String Open "in5.dat" For Input As #1 ch = "" For k = 1 To 50 ’ Input #1, ? ch = ch + Str(a(k)) + " " Next k Close #1 ’ Text1.Text = ? End Sub Private Sub C2_Click() End Sub Private Sub C3_Click() Open "out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 第1个?处填入:a(k) 第2个?处填入:ch "排序"按钮的代码 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 步骤3:调试并运行程序,关闭程序后按题目要求存盘
解析
转载请注明原文地址:https://kaotiyun.com/show/ntQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下程序;Functionfun(ByValnumAsLong)AsLongDimkAsLongk=1num=Abs(num)DoWhilenumk=k*
编写如下事件过程;PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XASSingle,YAsSingle)IfShif=6AndBu
建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编,用文本框输入数据。单击“添加主记录”按钮Command1时,将文本框数据写入文件,单击“显示”按钮Command2时,将文件中所有记录内容显示在立即窗口。Priva
下列叙述中不正确的是()。
下列选项中不属于软件生命周期开发阶段任务的是()。
下列关于Sub过程的叙述正确的是()。
只有将组合框的Style属性值设置为()时,才能触发DblClick事件。
关于结构化程序设计原则和方法的描述错误的是()。
在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,如图所示。程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空。PrivateSubC
随机试题
领导了“霍桑试验”的管理学家是()
木独脚桅杆的最大起重量约为()。
在借贷记账法下,“累计折旧”账户的期末余额等于()。
债权人申报债权时,连带债权人只能由其中一人代表全体连带债权人申报债权。()
根据以下资料,回答下列问题。下列关于2007~2009年各产业、行业用人需求变化的说法与资料相符的是:
人大代表因为现行犯被拘留的,可不向人民代表大会主席团或常务委员会报告。( )
年全国园地约为()。2005年,全国总出让土地平均价款是招拍挂出让土地平均价款的()。
为了保护计算机软件著作权人的权益,国务院颁布实施了()。
根据“给定资料2”.对专家们所说的“技防”“人防”加以解释。要求:精确、简明。不超过150字。材料2.如果地铁站台或者行驶中的地铁列车失火了,大量乘客如何有效疏散?如果12级台风登陆上海.那些高层建筑上的玻璃幕墙顶得住吗?……
PsychologistsatQowl,aprivatefirmlinkedtotheUniversityofPortsmouthanalyzedthequalityofworkinglifeofabout5000
最新回复
(
0
)