首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中; ②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全
在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中; ②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全
admin
2016-09-18
41
问题
在考生文件夹下有一个工程文件sjt3.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中;
②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全平方数。例如,36=62,所以36就是一个完全平方数),并将这些完全平方数的最大值与个数分别显示在文本框Text1、Text2中。
在给出的窗体文件中有了全部控件(如图6所示),但程序不完整,请将程序中的注释符去掉,把?号改为正确的内容,实现上述功能。
注意:考生不得修改窗体文件已存在的控件和程序,最后将程序原文件名存盘。
选项
答案
步骤1:打开考生文件夹下的本题工程文件sjt3.vbp,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: If x=m^2Then:is_square=flag If a(k)>max Then Text1.Text=max:Text2.Text=num 步骤2:按要求将文件保存至考生文件夹中。
解析
Sqr(N)求平方根函数,用于返回N的算术平方根。
is square()函数用于判断参数x是否为完全平方数,方法是从l到x的平方根进行循环,依次判断x是否能等于循环变量的平方,若等于则退出循环,返回True,若循环结束后都没有等于某个循环变量的平方则返回False。
求完全平方数的最大值,只需要先预设最大值为0,然后在循环中每次找到一个完全平方数就将其与最大值比较,若大于预设最大值则令其为新的最大值.同时令计数器加l,循环结束后可得最大值与个数。
转载请注明原文地址:https://kaotiyun.com/show/GpLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下函数过程:FunctionFun(ByValxAsIngeger,ByValyAsInteger)AsInteger DoWhile…Y<>0 reminder=xModY x=y
数据结构分为逻辑结构和存储结构,线性链表属于______。
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,然后编写如下程序:DimS1AsString.S2AsStringPrivateSubForm_Load0 Text1.Tex
下列可以打开立即窗口的操作是()。
变量未赋值时,数值型变量的值为______,字符串变量的值为空串。
使用驱动器列表框Drivel?目录列表框Dirl?文件列表框Filel时,需要设置控件的同步。以下能够正确设置两个控件同步的命令是
在表达式2+3*4^5-Sin(x+1)/2中,首先进行的运算是()。
下列运算符中,优先级别最高的是
随机试题
哮病发病的宿根是
固定义齿修复的最佳时间一般是
关于古代司法诉讼制度的表述,说法小正确的是:
()能评估基金的业绩优于基准的程度。
非货币性资产交换以公允价值计量并且涉及补价的,支付补价方在确定计入当期损益的金额时,应当考虑的因素有()。
建设工程目标控制在施工招标阶段的任务不包括()。
某宗物业预计未来每年的净收益为8万元,收益期限可视为无限年,该类物业的报酬率为8.5%,则该宗物业的收益价格为()万元。
Peoplecanbuyallkindsofthingsthere.Peoplecanputthingsinit.
HospitalityAnAmericanfriendhas【T1】______youtovisithisfamily.Butif【T2】______anAmerican’shomebefore,maybeyou’
Anyonewhoseesaspecialtypeofairplanewithitsturningwingsknowsitisahelicopter’s.Oneofthehelicopter’smostimpor
最新回复
(
0
)