Question

求解一道VB题！

Answer 1

下面的程序，只要穷举100个数就能得出答案：
Private Sub Form_Click()
  For a = 0 To 9
    For b = 0 To 9
      If a + b > 0 Then
        t = 1100 * a + 11 * b
        t1 = Round(Sqr(t))
        If t1 * t1 = t Then
          Print t; "="; a * 10 + b; "^2"
          Print "这个4位数是："; t
        End If
      End If
    Next b
  Next a
End Sub

Answer 2

Private Sub Form_Click()
 Dim i As Integer
 Dim qw As Integer, bw As Integer
 Dim sw As Integer, gw As Integer
 
 For i = 30 To 100
  If i ^ 2 >= 1000 And i ^ 2 <= 9999 Then
     qw = i ^ 2 \ 1000
     bw = (i ^ 2 - qw * 1000) \ 100
     sw = (i ^ 2 - qw * 1000 - bw * 100) \ 10
     gw = i ^ 2 Mod 10
     If qw = bw And sw = gw Then
        Print i ^ 2; "= "; i & " ^ 2"
        Print "zhe ge shu shi:" & i ^ 2
        Exit For
     End If
  End If
 Next

End Sub

'如果你会字符串处理的话会更简洁一些：
Private Sub Form_Click()
 Dim i As Integer
 
 For i = 30 To 100
  If i ^ 2 >= 1000 And i ^ 2 <= 9999 Then
     If Mid(i ^ 2, 1, 1) = Mid(i ^ 2, 2, 1) And _
        Mid(i ^ 2, 3, 1) = Mid(i ^ 2, 4, 1) Then
          Print i ^ 2; "= "; i & " ^ 2"
          Print "zhe ge shu shi:" & i ^ 2
          Exit For
     End If
  End If
 Next

End Sub