2. 计算机
  3. 在考生文件夹下有一个工程文件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被视为同一个组合，不应该重复计算)

admin2020-04-08  440
问题 在考生文件夹下有一个工程文件sjt5．vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2。例如，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://kaotiyun.com/show/jNTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)