首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为”取数”、”排序”、”存盘”。”取数”按钮的功能是把考生目录下的in5.dat文件中的5
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为”取数”、”排序”、”存盘”。”取数”按钮的功能是把考生目录下的in5.dat文件中的5
admin
2013-10-18
47
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为”取数”、”排序”、”存盘”。”取数”按钮的功能是把考生目录下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;”排序”按钮的功能是对这50个数按升序排序,并显示在Text2中;”存盘”按钮的功能是把排好序的50个数保存到考生目录下的out5.dat文件中。如图2-146所示。
在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写”排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码: 参考代码: Private Sub C1_Click( ) Dim k As Integer Dim 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 k As Integer,i As Integer,j As Integer Dim ch As String For i=1 To 4 9 k=i For j=i+1 To 50 If a(k)>a(j)Then k=j End If Next j j=a(k) a(k)=a(i) a(i)=j Next i ch=““ For k=1 To 50 ch=ch+Str(a(k))+” “ Next k Text2.Text=ch End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序,先单击”取数”按钮,再单击”排序”按钮,最后单击”存盘”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/AHQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。
对下列二叉树进行中序遍历的结果是【】。
为计算a“的值,某人编写了函数power如下:PrivateFunctionpower(aAsInteger,nAsInteger)AsLongDimPAsLongP=aFork=lT0nP=P*aNextkp
下列叙述中正确的是
在考生文件夹下有一个工程文件sj5.vbp,其窗体上有4个标签Labell、Lable2、Label3和Label4,标题分别为“用户名”、“密码”、“剩余次数”和“5”;一个命令按钮Commandl、标题为“登录”;两个文本框名称分别为Textl和Tex
在考生文件夹下有一个工程文件sj5.vbp,程序代码中已经写入部分代码,要求根据下面的描述在窗体模块中定义3个名称分别为readdatal、readdata2和writedata的Sub过程。请先装入工程文件sj5.vbp,然后完成以下操作:
以下关于菜单的叙述中,错误的是______。
下述关于数据库系统的叙述中正确的是
将数学表达式cos2(a+B)+5e2写成VisualBasic的表达式,其正确的形式是
下列选项中,不是一个算法的基本特征的是()。
随机试题
甲向首饰店买钻石戒指一枚,标签表明该钻石为“天然钻石”买回后被人告知实为人造钻石。甲遂多次与首饰店交涉,历时一年零六个月,未果。现甲欲诉请法院撤销该买卖关系,其主张能否得到支持( )。
领取《营业执照》的,设立登记费为多少元?()。
幕墙的四性检验报告包括那些项目()。
某沿海城市电力隧道内径为3.5m,全长4.9km,管顶覆土厚度大于5m,采用顶管法施工,合同工期1年,检查井兼作工作坑,采用现场制作沉井下沉的施工方案。电力隧道沿着交通干道走向,距交通干道侧石边最近处仅2m左右。离隧道轴线8m左右,有即将入地的高
2014年初,某公司短期借款、长期借款、应付债券科目均无余额。该公司2014年~2015年发生有关经济业务如下:(1)2014年3月31日,从中国银行借入2年期,年利率6%,到期一次还本付息不计复利的长期借款200万元,当日用于购买一台不需要安装
从业人员若在工作中违背职业纪律,正确的态度是()
杜威的教育思想的核心,一般被概括为()
广州、深圳、佛山三市的科技项目数约占广东省的:
各种感觉能力都开始减退是在()
简述诚实信用原则的含义和功能。(2011一专一53)
最新回复
(
0
)