首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat 文件中的
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat 文件中的
admin
2019-05-14
75
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat 文件中的50 个整数读到数组中,并在Text1 中显示出来;“排序”按钮的功能是对这50 个数按升序排序,并显示在 Text2 中;“存盘”按钮的功能是把排好序的50 个数保存到考生目录下的out5.dat 文件中。如图1-120 所示。
在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的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 Text1.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 49 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/PUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当窗体最小化时缩小为一个图标,设置这个图标的属性是()。
以下能正确定义数据类型Systemlnfo的代码是()。
下列程序段的执行结果为()。Forml.Clsa=“ABBACDDCBA”Fori=6To2Step-2x=Mid(a,i,i)y=Left(a,i)z=Right(a,i)
设计窗体时双击窗体的任何位置,将打开()。
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(
设在工程中有一个标准模块,并定义了如下类型:TypeStutypeinoAsIntegerstmameAsString*20strsexAsString*2smarkAsSingle
考生文件夹下的工程文件sit5.vbp中的窗体如图3.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:①
随机试题
图中标志的含义是______。
尤某和吴某是一个单位的职工。尤某是科长,吴某是科员,二人利用职务之便,共同贪污公款12万元。起诉书认定,尤某得赃款8万元,吴某得赃款4万元。法院开庭审理前,尤某和吴某均推翻原供,并均要求辩护律师按照自己的意见辩护。尤某称赃款大部分由吴某拿走,自己只从中拿走
各类休克的共同点是()
社会主义物质文明发展了,精神文明也就自然而然上去了。
就多数传染病而论,下列哪种传染过程最常见
当事人申请调查处理土地权属争议,应当提交书面申请书和有关证据材料,并按照被申请人数提交副本。其中申请书应当载明的事项包括()。
()不能用作城镇道路路床填料。因条件限制而必须采用上述土作填料时,掺加石灰或水泥等结合料进行改善。
卫生部和国家标准化管理委员会发布的新版《献血者健康检查要求》指出,国家提倡献血年龄为:
设Y为整型变量,A=1,A的地址为EF01;B=2,B的地址为EF02;执行语句B=&A;Y=&B;后Y的值()。
Ifthesalesmenarenotgiventangiblebenefitsforahighvolumeofsales,theywillloosetheirmotivation.
最新回复
(
0
)