我的天~~VB大神快出现！！跪求编三道题~~~1、程序用于找出1~100之间的两个数，使其和与差均为平方数。例如5和4，10和6，13和12的和与差均为平方数。在窗体上添加两个命令按钮。运行程序

Question

我的天~~VB大神快出现！！跪求编三道题~~~
1 、程序用于找出1~100之间的两个数，使其和与差均为平方数。例如5和4，10和6，13和12的和与差均为平方数。在窗体上添加两个命令按钮。运行程序时，单击“开始”命令按钮，在窗体输出1~100的所有组平方数。单击“结束”命令按钮，结束程序。
2 、如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和是28，因此28是一个完全数，编写程序，从键盘上输入整数M和N，求出M和N之间所有完全数。
3 、 求两个自然数m和n的最大公约数和最小公倍数。在窗体上添加两个命令按钮。运行程序时，单击“开始”命令按钮，顺序弹出两个输入对话框，要求输入2个整数m和n，程序计算并在窗体显示出他们的最大公约数和最小公倍数，单击“结束”命令按钮结束程序

Answer 1

Private Sub Command1_click()
    Dim i As Integer, j As Integer
    Print "1~100的所有组平方数包括有："
    For i = 1 To 100
        For j = i To 100
            If Int(Sqr(j - i)) = Sqr(j - i) And Int(Sqr(j + i)) = Sqr(j + i) Then Print i; j
        Next j
    Next i
End Sub
Private Sub Command2_Click()
    Dim m As Integer, n As Integer
    Dim x As Integer, sum As Integer
    m = InputBox("m")
    n = InputBox("n")
    Print "在" & m & "和" & n & "之间的完全数有："
    For x = m To n
        sum = 0
        For i = 1 To x - 1
            If x Mod i = 0 Then
            sum = sum + i
            End If
        Next i
        If sum = x Then
            Print x;
        End If
    Next x
End Sub
Private Sub Command3_click()
    Dim m As Integer, n As Integer
    Dim r As Integer, maxv As Integer, minv As Integer
    m = InputBox("m")
    n = InputBox("n")
    maxv = IIf(m > n, m, n)
    minv = IIf(m < n, m, n)
    Do
        r = maxv Mod minv
        maxv = minv
        minv = r
    Loop While (r <> 0)
    minv = m * n / maxv
    Print m & "和" & n & "的最大公约数 =" & Str(maxv) & Space(2) & "最小公倍数=" & Str(minv)
End Sub