±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 575  |  »Ø¸´: 5
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)


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


´úÂëÊÇÕâÑùµÄ£º
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 = 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

µ«ÊÇÔËÐв»³öÀ´£¬²»ÖªµÀΪʲô£¿

[ Last edited by nono2009 on 2010-11-17 at 10:11 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

magic7004

½ð³æ (Ö°Òµ×÷¼Ò)


zyj8119(½ð±Ò+10):żҲÊÇÏëѧϰµÄ£¬Ö»ÊÇÐÔ×ÓÓе㼱¶øÒÑ£¬¶àлÌáÐÑ¡£¡£¡£ 2010-11-15 13:45:07
×î½üÂ¥Ö÷ºÜ»îÔ¾°¡¡£

ÎÒÏë˵µÄÊÇ£¬Â¥Ö÷ÇڷܺÃѧÊǺõ쬵«ÊÇҪעÒâ·½·¨£¬ÒªÑø³É˼¿¼ºÍ×êÑеÄϰ¹ß¡£

Óöµ½ÎÊÌ⣬ÎÒ½¨Òé×Ô¼ºÖÁÉÙÏÈÑо¿¸ö´ó°ëÌìÒÔÉÏ£¬È»ºóÔÙµ½ÂÛ̳ÉÏ·¢ÌûÌáÎÊ£¬×êÑеÄϰ¹ß¶ÔÄã½øÒ»²½Ìá¸ßÊǷdz£±ØÒªµÄ¡£

ps£ºÂ¥Ö÷Èç¹û·¢ÌûÊÇΪÁ˹àË®£¬¾ÍºöÂÔÎÒÉÏÃæµÄ»°°É¡£
5Â¥2010-11-15 13:37:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 6 ¸ö»Ø´ð

zyj8119

ľ³æ (ÖøÃûдÊÖ)


ajian04:лл²ÎÓë½»Á÷~ 2010-11-15 16:26:27
ÒýÓûØÌû:
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 ...

´ËÌùÒѾ­½â¾ö£¬Ã²ËÆCSDNÉϵĻظ´³¬¼¶¿ì°¡¡£¡£¡£
2Â¥2010-11-15 11:19:48
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)


¡ï
ajian04(½ð±Ò+1):лл²ÎÓë½»Á÷~ 2010-11-15 16:26:34
ÒýÓûØÌû:
Originally posted by zyj8119 at 2010-11-15 11:19:48:

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

´úÂëÓ¦¸Ã¸ÄΪ£º
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 - 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

3Â¥2010-11-15 11:20:56
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
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  ...

´ËÌù½áÌù¡£
4Â¥2010-11-15 11:21:28
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0703»¯Ñ§Çóµ÷¼Á +7 ÄÌÓͲÝÝ®. 2026-03-22 8/400 2026-03-28 09:59 by ÉñÂí¶¼²»¶®
[¿¼ÑÐ] ѹ¹ú¼ÒÒ»ÇøÏߣ¬Çóµ¼Ê¦ÊÕÁô£¬Óж÷±ØÐ»£¡ +4 ÃÔÈ˵Ĺþ¹þ 2026-03-28 4/200 2026-03-28 09:48 by zhshch
[¿¼ÑÐ] 0856²ÄÁÏ»¯¹¤µ÷¼Á ×Ü·Ö330 +10 zhubinhao 2026-03-27 10/500 2026-03-28 03:34 by fmesaito
[¿¼ÑÐ] 275Çóµ÷¼Á +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[¿¼ÑÐ] Ò»Ö¾Ô¸±±»¯085600²ÄÁÏר˶275|ÓÐÎÄÕÂרÀû£üÇóµ÷¼Á +3 Micky11223 2026-03-25 3/150 2026-03-27 14:52 by ×íÔÚ·çÀï
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤´óѧ²ÄÁÏÓ뻯¹¤ 264·Ö¸÷¿Æ¹ýAÇø¹ú¼ÒÏß +10 ¹þ¹þ157349 2026-03-21 10/500 2026-03-27 13:06 by zzll406
[¿¼ÑÐ] 085601 ²ÄÁϹ¤³Ì 313·Ö Çóµ÷¼Á +5 Ong3 2026-03-27 5/250 2026-03-27 12:24 by goldfish51
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤306 +10 z1z2z3879 2026-03-21 11/550 2026-03-27 11:31 by wangjy2002
[¿¼ÑÐ] 324Çóµ÷¼Á +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
[¿¼ÑÐ] Çóµ÷¼Á323²ÄÁÏÓ뻯¹¤ +7 1124361 2026-03-24 7/350 2026-03-27 10:22 by wangjy2002
[¿¼ÑÐ] 359Çóµ÷¼Á +4 ÍõÁ˸öéª 2026-03-25 4/200 2026-03-27 08:43 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] Ò»Ö¾Ô¸Î人Àí¹¤£¬×Ü·Ö321£¬Ó¢Ò»Êý¶þ£¬ÇóÀÏʦÊÕÁô¡£ +5 nnnnnnn5 2026-03-25 5/250 2026-03-27 04:42 by wxiongid
[¿¼ÑÐ] 325Çóµ÷¼Á +3 Aoyijiang 2026-03-23 3/150 2026-03-26 20:46 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] µ÷¼Á +4 èÖèÖyoyo 2026-03-26 4/200 2026-03-26 20:43 by fmesaito
[¿¼ÑÐ] 26¿¼ÑÐ-291·Ö-ÏÃÃÅ´óѧ£¨085601£©-ÈáÐÔµç×ÓѧԺ²ÄÁϹ¤³ÌרҵÇóµ÷¼Á +3 min3 2026-03-24 4/200 2026-03-25 18:22 by xcjcqu
[¿¼ÑÐ] 282Çóµ÷¼Á +3 wcq131415 2026-03-24 3/150 2026-03-25 12:16 by userper
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á£¬Çóµ¼Ê¦ÊÕ +7 ÌìÌìºÃÔËÀ´Éϰ¶° 2026-03-24 7/350 2026-03-24 20:26 by peike
[¿¼ÑÐ] 307Çóµ÷¼Á +3 ÓàÒâÇä 2026-03-21 6/300 2026-03-24 15:03 by ÓàÒâÇä
[¿¼ÑÐ] »·¾³Ñ§Ë¶288Çóµ÷¼Á +8 ƤƤƤ123456 2026-03-22 8/400 2026-03-23 23:47 by ÈÈÇéɳĮ
[¿¼ÑÐ] ÇóÀÏʦÊÕÎÒ +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û