首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sit5.vbp,窗口有2个名称分别为Commandl和Command2、标题分别为“读数据”和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1
在考生文件夹下有一个工程文件sit5.vbp,窗口有2个名称分别为Commandl和Command2、标题分别为“读数据”和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1
admin
2020-02-27
45
问题
在考生文件夹下有一个工程文件sit5.vbp,窗口有2个名称分别为Commandl和Command2、标题分别为“读数据”和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1和Text2、初始内容都为窄的文本框,并且可多行显示,有垂直滚动条,如图3.47所示。程序功能如下:
1)单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个正整数读入数组A,并将它们显示在Text1文本框中;
2)单击“排序”按钮,则首先将这100个数中的所有完全平方数放入数组B中,并将它们按降序排列显示在Text2文本框中。
提示:一个整数若是另一个整数的平方,那么它就是完全平方数。如144=122,所以144就是一个完全平方数。
要求:去掉注释符,把?改为正确内容,并添加代码使得“排序”命令按钮的Click事件过程可以实现上述功能。
提示:Sort过程可以把求出的完全平方数进行排序,可以直接调用。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“排序”,且须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sjt5.vbp,在码编辑窗口的指定位置输入以下代码: 参考代码: 考生编写的代码 n=0 For k=1 To 100 If a(k)>0 Then d=Sqr(a(k)) If Int(d) =d Then n=n+1 b(n)=a(k) EndIf EndIf Next 考生编写代码结束 步骤2:在代码编辑窗口中,去掉程序中的注释符“””,将问号“?”改为正确的内容。 参考代码: Call sort(b, n) 步骤3:按
键运行程序,单击“读数据”按钮,然后单击“排序”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/nWTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在定义通用过程时,可以通过两种方式传送参数,其中传值方式所使用的关键字是()。
以下()操作不能触发滚动条Change事件。
设形状控件的Width与Height属性的值相等。下面叙述中正确的是()。
以下叙述中正确的是()。
下列有语法错误的赋值语句是( )。
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Label3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click() StaticyAsIntege
下列程序执行后,变量x的值为()。Dima,b,C,dAsSingleDimxAsSinglea=10:b=30:c=400Ifb>aThend=a:a=b:b=dEndIfIfb>cThenx=bElseIfa
在数据库设计中,将E—R图转换成关系数据模型的过程属于()。
下面对“对象”概念描述正确的是()。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
A.脂肪坏死B.液化性坏死C.两者皆有D.两者皆无脾梗死常表现为
下列说法不正确的是
糖尿病患者大多数为
(2015年)在某合同纠纷中,中国当事方与甲国当事方协议选择适用乙国法,并诉至中国法院。关于该合同纠纷,下列哪些选项是正确的?()
常用的设计方案技术经济评价方法有多种,主要包括()。
关于施工现场对热熔连接焊接接头质量进行检验,下列说法正确的是()。
应用逻辑判断来确定每种可能的概率的方法适用于古典概率或先验概率。()
下列陈述中能体现货币政策作用的有()。
甲、乙、丙三人都把25克糖放人100克水中配成糖水。甲再加入0克浓度为20%的糖水;乙再加入20克糖和30克水;丙再加入糖与水的比为2:3的糖水100克。三人配成糖水中最甜的是:
Someimportantthingshavecome______,Ihavetotalkwiththemanager.
最新回复
(
0
)