首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个命令按钮、三个标签和三个文本框,均使用默认名称。程序的功能如下: ①如果单击“读数据”命令按钮,则将考生文件夹下in5.dat文件中两组已按升序方式排列的数(每组30个数)分别读人数组A和B,
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个命令按钮、三个标签和三个文本框,均使用默认名称。程序的功能如下: ①如果单击“读数据”命令按钮,则将考生文件夹下in5.dat文件中两组已按升序方式排列的数(每组30个数)分别读人数组A和B,
admin
2018-07-11
64
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个命令按钮、三个标签和三个文本框,均使用默认名称。程序的功能如下:
①如果单击“读数据”命令按钮,则将考生文件夹下in5.dat文件中两组已按升序方式排列的数(每组30个数)分别读人数组A和B,并分别在Text1、Text2中显示。
②如果单击“合并”命令按钮,则将A、B两个数组合并为另一个按从小到大排列的数组C,并将合并后数组C中的数据显示在Text3中。窗体中给出了所有控件(如图所示)以及“读数据”命令按钮的Click事件过程,请完善“合并”命令按钮的Click事件过程,使其实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行合并操作,且必须通过窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(30) As Integer, b(30) As Integer, c(60) As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in5.dat" For Input As #1 For k = 1 To 30 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k For k = 1 To 30 Input #1, b(k) Text2 = Text2 + Str(b(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() ’考生编写程序开始 ’======================= ’======================= ’考生编写程序结束 ’以下程序将合并后的数组C显示在Text3中 For k = 1 To 60 Text3 = Text3 + Str(c(k)) + Space(2) Next k End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text3.Text Close #1 End Sub 程序结束 参考答案 c(1) = a(1) For i = 2 To 30 c(i) = a(i) Next c(31) = b(1) For j = 32 To 60 c(j) = b(j - 30) Next For i = 1 To 60 f = True For j = 1 To 59 If c(j) > c(j + 1) Then t = c(j) c(j) = c(j + 1) c(j + 1) = t f = False End If Next If f Then Exit For End If Next 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/ZsFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click()X="VisualBasicProgramming"a=Right(x,11)b=Mid(x,7,5)C=MsgB
以下关于VB的叙述中,错误的是
以下关于VB的叙述中,错误的是
设窗体上有1个名称为HScrol11的水平滚动条,其Max、Min属性分别设置为100、1:有2个名称分别为Option1、Option2的单选按钮,其标题分别为“30”、“50”;还有下面程序代码:PrivateSubOption1_Clic
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerX=Val(InputBox("输入数据")):Text1=Str(
下面不属于软件测试实施步骤的是
(1)在名称为Form1,标题为“标签”的窗体上,添加一个名称为Label1,内容为“计算机等级考试”,字号为四号字的标签。请设置适当的属性以满足下述要求:①窗体不带有最大化、最小化及关闭按钮。②标签带有边框。③标签可依据标题指定的内容自
为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容,首先应执行的操作是
以下能够正常结束循环操作的程序段是
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。Priva
随机试题
根据《党政机关公文处理工作条例》相关要求,下列公文标题正确的是()。
朱砂入药的正确炮制方法是
A.脑栓塞B.脑血栓形成C.脑出血D.短暂性脑缺血发作E.蛛网膜下腔出血某中年男性,因在剧烈运动时,突然出现剧烈头痛、呕吐、口舌歪斜,首先应考虑的是
推土机作业方式通常是由切土、推土、堆卸、空返等四个环节组成。而影响作业效率的主要是()两个环节。
税务机关依法实施税务检查的行为属于()。
制定工资指导线时,应对经济形势进行分析,具体内容不包括()。
基于问题学习(PBL)是一种让学生通过解决不一定有正确答案的真实性问题来获取知识的教学,是由理解和解决问题的活动构成的一种学习方式。PBL的主要特征包括()
A、 B、 C、 D、 D前两个图形叠加得到第三个图形,叠加规律是:黑+黑=黑,黑+白=白+白:白,选D。
【白虎观会议】西北大学2018年中国史真题
Oneofthemostimportantsocialdevelopments【C1】______helpedtomakepossibleashiftinthinkingabouttheroleofpubliceduc
最新回复
(
0
)