找出50以内的所有不可表示成两个平方数之和的数vb的程序设计！急！

综合）
1、 单击“开始”按钮，则开始运行程序，“找出50以内的所有不可表示成两个平方数之和的数”，按图示格式将符合条件的数显示在多行文本框中，每行显示5个数，且“清除”按钮方可使用；
2、单击“清除”按钮，则将文本框清空， “退出”按钮方可使用；单击“退出”按钮则
，结束程序运行。
3、程序至少要有一个通用过程，该过程的功能是判断某一个数是否为平方数。
4.要求一个文本，每行显示5个。三个控制按钮。

Rem 创建窗体，在上面放Command1、Command2、Command3三个按钮，一个Text1文本框，文本框的MultiLine属性设置为True，ScrollBars设置为2

Rem 0也是平方数哈
Private Sub Command1_Click()
Dim i%, j%, k%, flag As Boolean
Text1.Text = ""
k = 0
For i = 0 To 50
flag = False
For j = 0 To i
If IsPf(j) And IsPf(i - j) Then flag = True: Exit For
Next

If flag = False Then

k = k + 1
Text1.Text = Text1.Text & " " & i
If k Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf

End If
Next

Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "清除"
Command3.Caption = "退出"
Command2.Enabled = False
Command3.Enabled = False
End Sub