填空题 本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数,请完善本程序? Option Explicit Private Sub CmdFind_Click1 Dim i As Integer,j As Integer,k As Integer Dim p As Integer,q As Integer For i=10 To 60 For j=1 To Int(Sqr(i)) 2(19) 3 q=i-P If q<>0 And judge(q) Then Exit For Next j If 4(20) 5 Then k=k+1 Text1.Text=Text1.Text & i & " " If k Mod 5=0 Then Text1.Text=Text1.Text & vbCrlf End If Next i EndSub Public Function judge(ByVal x As Integer)As Boolean If 6(21) 7 Then judge=True Else judge=False End If End Function