问答题
在考生目录下有一个工程文件vbsj5．vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a
2
＋b
2
＝c
2
。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签Lb11中，运行时程序界面如图3—146所示。
【正确答案】正确答案：【操作步骤】 步骤1：打开考生文件夹下的工程文件vbsj5．vbp，在码编辑窗口的指定位置输入代码。参考代码： Private Sub Command1_Click() '＝＝＝考生编写程序开始＝＝＝＝ Dim i As Integer，j As Integer Dim n As Integer For i＝1 To 59 For j＝i To 60 If Sqr(i*i＋j*J)＝Int(Sqr_ (i*i＋j*j))And Sqr (i*i＋j*j)＜＝60 Then n＝n＋1 End If Next Next Lb11．Caption＝n '＝＝＝考生编写程序结束＝＝＝＝ '不要改动以下内容 Save Labe11 End Sub 步骤2：按＜F5＞键运行程序，单击“计算”按钮。 步骤3：按要求将文件保存至考生文件夹中。
【答案解析】