【正确答案】正确答案:【操作步骤】 步骤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+1'm为记录满足条件的个数 End If Next k Next j Next i Label.1=m/2=去掉相同的项 步骤3:调试并运行程序,关闭程序后按题目要求存盘。