[½»Á÷] ¡¾ÇóÖú¡¿´Ë³ÌÐòÊÇÊé±¾Éϵģ¬µ«ÊÇÔËÐв»ÁË¡¾ÒÑÍê½á¡¿

Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, k As Single, n As Integer
  Dim a As Integer, b As Integer
  n = Text1
  a = 10 ^ (n - 1): b = 10 ^ (n - 1)
  For i = a To b Step 2
   If Pd(i) Then
      k = Sqr(i)
      If k = Int(k) Then
        If Pd1((k)) Then
         List1.AddItem i & "=" & k & "^2"
        End If
      End If
    End If
   Next i
End Sub
Private Function Pd(n As Integer) As Boolean
  Dim j As Integer, s As String, k As Integer
  s = CStr(n)
  For j = 1 To Len(s)
     k = Val(Mid(s, j, 1))
     If k Mod 2 <> 0 Then Exit For
  Next j
  If j > Len(s) Then Pd = True
End Function
Private Function Pd1(n As Integer) As Boolean
  Dim j As Integer, s As String, k As Integer
  s = CStr(n)
  For j = 1 To Len(s)
     k = Val(Mid(s, j, 1))
     If k Mod 2 <> 0 Then Exit For
  Next j
  If j > Len(s) Then Pd = True
End Function
Private Sub Command2_Click()
   Text1 = " ": List1.Clear: Text1.SetFocus
End Sub
Private Sub Command3_Click()
   Unload Me
End Sub

Originally posted by zyj8119 at 2010-11-15 11:20:56:

´úÂëÓ¦¸Ã¸ÄΪ£º
[code]Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, k As Single, n As Integer
  Dim a As Integer, b As Integer
  n = Val(Text1)///Ð޸ĵĵط½
  a = 10 ^ (n  ...

Originally posted by zyj8119 at 2010-11-15 10:34:05:

´úÂëÊÇÕâÑùµÄ£º

[code]Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, k As Single, n As Integer
  Dim a As Integer ...

Originally posted by zyj8119 at 2010-11-15 11:19:48:

´ËÌùÒѾ­½â¾ö£¬Ã²ËÆCSDNÉϵĻظ´³¬¼¶¿ì°¡¡£¡£¡£

Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, k As Single, n As Integer
  Dim a As Integer, b As Integer
  n = Val(Text1)///Ð޸ĵĵط½
  a = 10 ^ (n - 1): b = 10 ^ (n - 1)
  For i = a To b Step 2
   If Pd(i) Then
      k = Sqr(i)
      If k = Int(k) Then
        If Pd1((k)) Then
         List1.AddItem i & "=" & k & "^2"
        End If
      End If
    End If
   Next i
End Sub
Private Function Pd(n As Integer) As Boolean
  Dim j As Integer, s As String, k As Integer
  s = CStr(n)
  For j = 1 To Len(s)
     k = Val(Mid(s, j, 1))
     If k Mod 2 <> 0 Then Exit For
  Next j
  If j > Len(s) Then Pd = True
End Function
Private Function Pd1(n As Integer) As Boolean
  Dim j As Integer, s As String, k As Integer
  s = CStr(n)
  For j = 1 To Len(s)
     k = Val(Mid(s, j, 1))
     If k Mod 2 <> 0 Then Exit For
  Next j
  If j > Len(s) Then Pd = True
End Function
Private Sub Command2_Click()
   Text1 = " ": List1.Clear: Text1.SetFocus
End Sub
Private Sub Command3_Click()
   Unload Me
End Sub