首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,用来计算勾股定.理整数组合的个数,勾股定理中三个数的关系是:a2+b22=c2,例如3、4、5就是一个满足条件的整数组合(注意:a、b、c分别为4、3、5与分别为3、4、5被视为同一个组合,不应该重复计算)。编写
在考生目录下有一个工程文件sjt5.vbp,用来计算勾股定.理整数组合的个数,勾股定理中三个数的关系是:a2+b22=c2,例如3、4、5就是一个满足条件的整数组合(注意:a、b、c分别为4、3、5与分别为3、4、5被视为同一个组合,不应该重复计算)。编写
admin
2010-09-02
23
问题
在考生目录下有一个工程文件sjt5.vbp,用来计算勾股定.理整数组合的个数,勾股定理中三个数的关系是:a
2
+b2
2
=c
2
,例如3、4、5就是一个满足条件的整数组合(注意:a、b、c分别为4、3、5与分别为3、4、5被视为同一个组合,不应该重复计算)。编写程序,统计三个数均在60以内满足上述关系的整数组合的个数,并显示在标签Labd1中。
注意:不得修改原有程序控件的属性,在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩,最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开考生文件中的本题工程文件sjt5.vibp,在代码编辑窗口编写“计算”按钮的单击事件过程。 参考代码: n=0 For i=1 To 60 For j=1 To 60 For k=1 To 60 x=k*k If(x=i*i+j*j)And j> i Then Print i; j; k n=n+1 End If Next k Next j Next i Label1.Caption=n 步骤2:按要求将文件保存至考生文件夹中。
解析
本题可以使用一个三重循环来判断满足勾股定理的组合,由外至内依次使用循环变量i、j、k,其变化范围均为l~60。在内循环中。首先判断k*k是否等于i.i+j.j,若等于则证明满足勾股定理;由于满足勾股定理的两个数都是成对出现,为了不重复计算,还需要加上限定比如j>i。当找到满足条件的一对i、j、k的时候,输出这三个数,并且令计数器加l。
转载请注明原文地址:https://kaotiyun.com/show/jFmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Applet是能够嵌入到【】页面中,并能够在浏览器中运行的Java类。
在Java语言中的实数,如数字后没有任何字母,计算机默认其为【】类型。
给出下列关于一个使用适当的字符间距字体的TextField的表达式,则哪个选项的叙述是对的?( )TextFieldt=newTextField("theyaregood",40);
执行下列程序段之后,变量n的值为( )。publicclassTest{publicstaticvoidmain(String[]args){inty=2;i
给出下列代码,可放在类A的横线位置作为A合理的内部类的是( )。classA{protectedinti;A(inti){this.i=i;}
下列代码中,将引起编译错误的行是( )。①publicclasstest{②publicstaticvoidmain(Stringargs[]){③floatf=0.0;④f+=1.0;
下面代码的运行结果是publicclassTest{publicstaticvoidmain(Stringargs[]){for(inti=0;i<3;i++){if(i<2)
在Java源文件中,什么类最多只能有一个,而其他类的个数不限?
随机试题
干扰及房室分离属于病理性冲动传导异常。
血淋与尿血的共同症状有
肝癌最重要的化验是
高某因故意伤害罪和盗窃罪被人民检察院提起公诉。下列关于高某案附带民事诉讼的说法中,符合刑事诉讼法规定的有()
在采用间接法将净利润调节为经营活动产生的现金流量时,下列各调整项目中,属于调减项目的有()。
以下关于制度规范的表述不正确的是()。
把教学进程设计为:设置问题情境一确定问题或课题一拟订解决问题的方案一执行计划一总结与评价的教学模式是()。
Newbusinesscards______nextweekwiththeupdatedaddressandcontactinformation.
HowSafeIsYourCellPhone?A)IttakesalittleextraworktogetintouchwithAndreaBoland.TheMainestaterepresentativea
Onaclear,colddayinearlyMarch2019,JustinJordan,afifth-generationgrowerinLacona,Iowa,readsattentivelyoldmapss
最新回复
(
0
)