首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1
在考生文件夹下有一个工程文件sjt5.vbp,窗口有2个名称分别为Command1和Command2、标题分别为“读数据"和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”;再画2个名称分别为Text1
admin
2020-07-22
36
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/e8Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于软件开发阶段任务的是
以下程序的功能是:把父目录下顺序文件smtextl.txt的内容读入内存,并在文本框Text3中显示出来。请选择适合横线处的语句()。PfivmeSubCommand1_Click()DiminDataAsString
已知A$="Welcome",下列语句操作能够正确执行的是()。
下列数据结构中,能够按照“先进后出”原则存取数据的是( )。
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
下列表达式的值为2123的是()。
下面不属于软件设计阶段任务的是
下列关于通用对话框CommonDialog1的叙述中,错误的是( )。
为使文本框具有初始值"VB",在设计阶段正确的操作是
随机试题
设α1,α2,…,αm,β1,β2,…,βn线性无关,而向量组α1,α2,…,αm,γ线性相关.证明:向量γ可由向量组α1,α2,…,αm,β1,β2,…,βn线性表示.
常可以引起急性肾小管坏死的药物是
《动物检疫管理办法》规定,动物、动物产品出售或调运离开产地前必须由动物检疫员实施产地检疫,动物产品、供屠宰或者育肥的动物提前________天报检()。
A、健脾养心B、健脾养胃C、健脾温胃D、健脾益阴E、健脾温阳归脾汤除益气补血外,还具有的功用是
绝缘导线及悬挂绝缘导线的绞线的设计安全系数均不应小于多少?
高土壤电阻率地区的降低接地电阻的措施有()。
全美范围内标准化的期权合约是从1973年()的看涨期权交易开始的。
幼儿园全面发展教育的含义是什么?幼儿园应如何实施全面发展教育?
【2014河南洛阳】下列状态中,属于注意分配的有()。
以下论断,正确的有()
最新回复
(
0
)