下列程序的作用是求所有小于或等于30的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。
注：自然数对是指两个自然数的和与差都是平方数(如8与17)。
Private Sub Command1_Click()
Dim n As Long
Dim m As Long
Dim s As Single
Dim d As String
For n=1 To 30
For m=1 To【 】
s =n+ m
【 】
If Sqr (s)=Int(Sqr(s))【 】Sqr(D)=Int(Sqr(D))Then
Print n：m
End lf
Next m
Next n
End Sub