首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
admin
2016-06-23
57
问题
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计均在60以内的三个数满足上述关系的整数组合的个数,并显示在标签Label1中。
注意:不得修改原有程序的控件属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考代码 Dim i As Integer Dim j As Integer Dim k As Integer For i=1 To 60 For j=1 To 60 For k=1 To 60 ’判断三个数是否满足勾股定律 If i^2=j^2+k^2Then m=m+1’m为记录满足条件的个数 End If Next k Next j Next i Label1=m/2’去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/KcLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下事件过程:PrivateSubForm_MouseDown(BuaonAsInteger,ShiftAsInteger,xAsSingle,y_AsSingle) IfButton=2Then
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dima s=0:j=1 a=Array(1,2,
Sub过程与Function过程最根本的区别是
在文本框中,当用户键入一个字符,能同时引发的事件是
以下叙述中错误的是()。
表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值为()。
在VisualBasic中,组合框是文本框和下列哪一项的特性的组合
在下列关于二叉树的叙述中,正确的一项是
在VisualBasic中,下列优先级最高的运算符是
下列运算符中,优先级别最高的是
随机试题
关于抗菌药物的给药剂量,下列说法错误的是
装箱单据缮制时,一般不应显示货物的()。
大部分交易所的交割率最高都不超过3%。( )
以概念及其关系的方式储存和积累下来的经验系统称为()。
因素分析法的基本做法是,假定影响指标变化的诸因素之中,在分析某一因素变动对总指标变动的影响时,假定只有这一个因素在变动,而其余因素都必须是同度量因素(固定因素),然后逐个进行替代某一项因素单独变化,从而得到每项因素对该指标的影响程度。()
研究人员对四川地区出生的一批恐龙骨骼化石进行分析后发现,骨骼化石内的砷、钡、铬、铀、稀土元素等含量超高,与现代陆生动物相比,其体内的有毒元素要高出几百甚至上千倍。于是一些古生物学家推测这些恐龙死于慢性中毒:如果以下各项为真,不能质疑上述推测的是:
(2010年真题)近期,几位法学教授撰文指出,对于城市房屋拆迁,依据我国宪法和法律关于宪法监督的规定,拆迁管理条例的部分内容与我国现行宪法相抵触。他们可以
在Windows2003系统下DHCP服务器中添加排除时,应输入的信息是()
I’msotiredthatIcan’ttake______whatyou’resaying.
Whosponsoredtheconferenceonpopulation?
最新回复
(
0
)