首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
2020-06-30
43
问题
在考生文件夹下有一个工程文件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^2 Then m=m+1’m为记录满足条件的个数 End If Next k Next 3 Next i Label1=m/2’去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过循环嵌套实现遍历60以内的整数,通过勾股定理表达式判断是否为勾股数整数组合,并通过变量的累加实现勾股定理整数组合个数的统计。
转载请注明原文地址:https://kaotiyun.com/show/iQHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在编辑VB应用程序时,如果不小心关闭了属性窗口,则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口,这个按钮的图标是
设窗体上有一个名称为Check1的复选框,并有下面程序代码:PrivateSubChecki_MouseDown(ButtonAsInteger,XAsSingle,YAsSingle)Check1.Value=1
下列程序执行后,其输出结果为()。Dima(5)Fori=0To4a(i)=i+1:m=i+1Ifm=3Thena(m-1)=a(i-2)Elsea(m)=a(i)Ifi=2Thena(
如果进栈序列为A,B,C,D,则可能的出栈序列是()。
在考生目录下有一个工程文件sit5.vbpo其功能是产生并显示一个数列的前一项。数列产生的规律是:数列的前2项是小于10的正整数,将此2数相乘,若乘积
为了使标签中的内容居中显示,应把Alignment属性设置为()。
窗体上有一个名称为Combol的组合框,为了引用Combol中最后一个列表项,应使用的表达式是
下列与队列结构有关联的是()。
设数据集合为D={1,3,5,7,9},D上的关系为R,下列数据结构B=(D,R)中为非线性结构的是
随机试题
下列抗菌药物中最常引起再生障碍性贫血是
下列关于慢性支气管炎中医的病变脏腑的叙述,正确的是
下列关于路基干湿类型的说法,错误的是()。
社会保障筹集资金的渠道不包括以下哪个()
不属于企业实收资本(股本)增加的途径是()。
根据《银行业监督管理法》,对于银行业金融机构重组失败的,国务院银行业监督管理机构可以决定终止重组,由()按照法律规定的程序依法宣告破产。
根据契税法律制度的规定,下列各项中,应征收契税的有()。
《义务教育语文课程标准(2011年版)》课程总目标中规定认字数和阅读总量分别是()。
由于被保险人的故意或者重大过失致使保险人不能行使代位求偿权的后果是()。
隋代,大贵族杨素在“诸方都会处,邸店水硙并利,田宅以千百数”。这反映了()。
最新回复
(
0
)