问答题在考生文件夹下有一个工程文件sjt5.vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a²+b²=c²。例如，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+l'm为记录满足条件的个数
End If
Next k
Next j
Next i
Label1=m/2 '去掉相同的项
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【答案解析】[考点] 本题考点有：嵌套循环、文件编辑以及If判断语句。
通过循环嵌套实现遍历60以内的整数，通过勾股定理表达式判断是否为勾股数整数组合，并通过变量的累加实现勾股定理整数组合个数的统计。
注意通过嵌套循环得出的m值，为所求m值的2倍，例如5^2=4^2+3^2，同时5^2=3^2+4^2，因此最后的值应为m/2。