首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1
在考生文件夹下有一个工程文件sjt5.vbp,窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1
admin
2020-07-22
27
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1和Text2、初始内容都为空的文本框,并且可多行显示,有垂直滚动条,如图3.55所示。程序功能如下:
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) End If End If Next 步骤2:在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Call sort(b,n) 步骤3:按
键运行程序,单击“读数据”按钮,然后单击“排序”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。
解析
程序设计思路:通过For循环逐一取出数组a中的100个元素,依次判断每个元素是否是完全平方数。判断完全平方数的过程只需要将该数组元素开平方根以后取整,若其和数组元素开平方根的结果相等,则意味着该数组元素的平方根是一个整数,该数为完全平方数,将该数放入数组b中。sort过程的作用是将数组进行排序,该过程有两个参数,第一个参数为待排序的数组,第二个参数为要排序的元素个数,根据题意为数组b排序的语句为Call sort(1),n)。
转载请注明原文地址:https://jikaoti.com/ti/uAS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有以下程序:PrivateSubForm_Click() x=50 Fori=1To4 y=InputBox("请输入一个整数") y=Val(y) IfyMod5=0Then a=a+y
设窗体上有一个名称为Text1的文本框,并有下面的程序代码:PrivateSubForm_Load()KeyPreview=TrueEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Pr
下面不属于软件设计阶段任务的是
算法的空间复杂度是指()。
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Cornmand3,标题分别为“读数”、“统计”和“存盘”,如图3.67所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
设置定时器控件的Interval属性为2000,Enabled属性为True,并且有下面的事件过程,程序运行时计算机将发出()次Beep声。SubTimer1_Timer()BeepEndSub
以下关于控件数组的叙述中,正确的是( )。
下面不属于软件设计阶段任务的是
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
下列不一定是传值的虚实结合方式的选项是()。
随机试题
A、>20μg/mlB、>12μg/mlC、50~80μg/mlD、>100μg/mlE、>150μg/ml苯妥英钠的中毒血浓度为
下列哪项不是炮制的目的
开放性气胸患者呼吸困难最主要的急救措施是
溶于挥发性有机溶剂中的乙烯聚合物清漆(其中:按重量计含乙烯聚合物40%、有机溶剂60%)
下列金融市场中,属于货币市场的有()。
通过竞争对比分析,广告策划者可与竞争对手对抗的砝码不包括()。
初中生情绪变化的两极性的具体表现是()。
下图中甲、乙、丙反映了三类工厂的投入构成情况,据此回答下列问题。按主导因素划分,甲类工厂代表的工业类型是()。
IfyouhavereallybeenstudyingEnglishforsolong,it’sabouttimeyou______abletowritelettersinEnglish.(1999年考试真题)
KeepOptimisticandStayAwayfromDepression[A]Cynic,AmbroseBierceremarkedinhis"Devil’sDictionary",is"ablac
最新回复
(
0
)