首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
admin
2019-05-14
39
问题
考生文件夹下有一个工程文件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"5in5.dat"For Input As#1 ch="" For k=1 To 50 Input:#1,
a(k)
’将取出的数据存入数组a中 ch=ch+Str(a(k))+""’将数据存入ch Next k Close #1 Text1.Text=
ch
’在Text1文本框中显示文件内容 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 需编写的“排序”按钮的代码 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=ch+Str(a(j))+"" Next;j Text2.Text=ch End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/qHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定计时器控件Timerl的Enabled属性为True,Interval属性为1000,并编写如下程序代码:PrirateSubTimer1_Timer()DimxAsIntegerFori=1To100x=x+1Nexti
下列过程定义正确的是()。
下面描述中不属于数据库系统特点的是
下面属于白盒测试方法的是
为了删除列表框中的一个列表项,应使用的列表框方法是
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性。该属性为
以下不可以作为“容器”的控件是
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。其功能是单击“输入数据”按钮,则可输入一个整数n(要求:8≤n≤12);单击“计算”按钮,则计算1!+2!+3!…+n!的值,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果保存到
在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再添加一个有边框的名称为Imagel的图像框(.Image)。并通过属性窗口把考生文件夹下的图标文件Point11(香蕉图标)装入图像框
在考生文件夹下有一个工程文件sjt4.vbpc.窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shape1,如图所示。当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝
随机试题
上层建筑是推动还是阻碍社会的发展取决于()
胆总管与胰管共同开口在()
下列哪项治疗对树枝状单疱病毒性角膜炎最不合适
A.子宫破裂B.先兆子宫破裂C.胎盘早剥D.忽略性肩先露E.脐带脱垂
下列各项中,体现会计职业道德“客观公正”要求的有()。
资本形成总额主要包括()。
在委托合同中,委托人可以随时解除委托合同,而受托人不能随时解除委托合同。()
某局域网接人互联网的网络连接如图9所示,位置①和位置②应使用的设备是()。
与幼儿园相比,家庭教育的特点是()。
In1935,MaryKaygotmarriedforthefirsttime.MaryKaystoppedrunninghercompanyin2000.
最新回复
(
0
)