本程序的功能是找出 10 到 60 之间所有不可以表示成两个平方数之和的数,并分多行输出在文本框中,请完善本程序。 Option Explicit Private Sub command1_Click() 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)) q = i - p If q <> 0 And judge(q) Then Exit For Next j If Then k = k + 1 Text1.Text = Text1.Text & i & " " If k Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf End If Next i End Sub Public Function judge(ByVal x As Integer) As Boolean If Then judge = True Else judge = False End If End Function