首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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-04-08
423
问题
在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计均在60以内的三个数满足上述关系的整数组合的个数,并显示在标签I_abel l中。
注意:不得修改原有程序的控件属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤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 Labell=m/2′去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】注意通过嵌套循环得出的m值,为所求m值的2倍,例如5^2=4^2+3^2,同时5^2=3^2+4^2,因此最后的值应为m/2。
解析
通过循环嵌套实现遍历60以内的整数,通过勾股定理表达式判断是否为勾股数整数组合,并通过变量的累加实现勾股定理整数组合个数的统计。
转载请注明原文地址:https://jikaoti.com/ti/WEx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。程序如下:PrivateSubCommand1_Click(IndexAsInteger) IfIndex=1Then Print"计算机等级考试" En
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommandl_Click()Dima(10)AsIntegerDimiAsIntegezRandomize
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
下列属性中,决定单选按钮是否被选中的是()。
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是()。
数据字典(DD)所定义的对象都包含于
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
随机试题
心境障碍中,常见的情绪障碍有
下列各项中,哪项不是中毒的治疗原则
A.心悸气短,体倦乏力B.心悸胸闷,形寒肢冷C.心悸心烦,唇舌色淡D.心悸心烦,潮热盗汗E.心悸胸闷,心前区刺痛心气虚证常见
案情:犯罪嫌疑人王某涉嫌盗窃被某县公安机关立案侦查,以下是侦查人员李某对其单独进行的讯问笔录:李某:被告人王某,你知道你为什么被拘留吗?王某:不知道。李某:根据我们掌握的证据,你犯了盗窃罪,你如实交待一下你的问题。王
张某有200万元资金,打算在烟台投资设立一家注册资本为300万元左右的餐饮企业。关于如何设立与管理企业,请回答下列题目。(2009年试卷三第94~96题)如张某拟设立一家个人独资企业,下列表述正确的是:
下列各项中,常用于评价原始投资额不相同的互斥投资方案的方法有()。
资产负债表下列各项目中,应根据有关科目余额减去备抵科目余额后的净额填列的有()。
对无行为能力的未成年人的信件由()开拆外,任何组织或个人不得开拆。
辩证法既可以和唯物主义结合,也可以与唯心主义同流。()
搜索关于“通讯簿”的帮助信息,并打开“导出通讯簿”的帮助信息。
最新回复
(
0
)