首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
2018-06-29
41
问题
在考生文件夹下有一个工程文件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 j Next i Label1=m/2’去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过循环嵌套实现遍历60以内的整数,通过勾股定理表达式判断是否为勾股数整数组合,并通过变量的累加实现勾股定理整数组合个数的统计。
转载请注明原文地址:https://kaotiyun.com/show/edGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger)DimsAsInteger.fAsInteger
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下:PrivateSubCommandl_Click()DimPAsIntegerP=m(1)+m(2)+m(3)
用来设置文字字体是否为粗体的属性是()。
以下叙述中错误的是()。
假定有以下函数过程:FunctionFun(SAsString)AsStringDimslAsStringFori=lToLen(S)sl=LCase(Mid(S,i,1))+s1Next
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)()。
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndcc
产生100以内(不含100)2位随机整数的VisualBasic表达式是
已知列表框控件List1中已放入若干表项,下列关于List1的叙述中错误的是
下面是一个判断并输出获得奖学金信息的程序:PrivateSubCommand1_Click()a%=InputBox("请输入主课成绩1")b%=InputBox("请输入主课成绩2")c%=InputBox
随机试题
女性,55岁,经绝7年。因阴道流血淋漓不尽10多天就诊。妇检:外阴、阴道正常,宫颈光滑,子宫正常大小,双附件无异常。该患者3年前行乳腺癌手术,术后曾化疗及口服Tamoxifen2年。为明确诊断,首先应进行何种辅助检查
表证和里证的鉴别要点为()
报纸的优点是弹性大、及时,对当地市场的覆盖率高,易被接受和被信任;其缺点是时效短、转阅读者少。()
纠正投资偏差的措施有()。
下列各项中,外购应税消费品已纳消费税税款准予扣除的有()。
按经营决策问题是否重复出现,决策可划分为()。
2×16年9月末,甲公司董事会通过一项决议,拟将持有的一项闲置管理用设备对外出售。该设备为甲公司于2×14年7月购入,原价为6000万元,预计使用10年,预计净残值为零,采用年限平均法计提折旧,至董事会决议出售时已计提折旧1350万元,未计提减值准备。甲公
社会政策明显地不同于以促进经济发展为目标的经济政策,是因为社会政策坚持了( )原则。
Thehighestanxietymomentintheholidayseasonmustbethemomentjustbeforeyourlovedonesunwraptheirgifts.Theribbonc
RIP适用于相对较小的自治系统,它们的“直径跳数”一般小于——。
最新回复
(
0
)