在考生文件夹下有一个工程文件sj5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。

admin2010-07-13  41

问题 在考生文件夹下有一个工程文件sj5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计均在60以内的三个数满足上述关系的整数组合的个数,并显示在标签Labell中。
    注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。

选项

答案本题主要考查嵌套循环、文件编辑以及If判断语句。根据题意,编写如下代码: ===考生编写程序开始==== Dim i As Integer Dim j As Integer Dim k As Integer For i=1 To 60 For i=1 To 60 For k=1 To 60 If i^2=i^2+k^2 Then m=m+1 End If Next k Next i Next i Labell=m/2 ===考生编写程序结束==== 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/nyg0FFFM
0

最新回复(0)