±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 576  |  »Ø¸´: 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µÄ»ØÌû

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µÄ»ØÌû
²é¿´È«²¿ 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µÄ»ØÌû

magic7004

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


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

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

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

ps£ºÂ¥Ö÷Èç¹û·¢ÌûÊÇΪÁ˹àË®£¬¾ÍºöÂÔÎÒÉÏÃæµÄ»°°É¡£
5Â¥2010-11-15 13:37:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 085602 »¯¹¤×¨Ë¶ 338·Ö Çóµ÷¼Á +11 ·³ÕСç÷ 2026-03-27 11/550 2026-03-28 15:07 by GouQ
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¹¤Òµ´óѧ£¬324·ÖÇóµ÷¼Á +4 Áã°Ë# 2026-03-28 4/200 2026-03-28 15:01 by 17865157980
[¿¼ÑÐ] 320·Ö£¬²ÄÁÏÓ뻯¹¤×¨Òµ£¬Çóµ÷¼Á +9 Ò»¶¨Éϰ¶aaa 2026-03-27 13/650 2026-03-28 15:00 by ÉñÂí¶¼²»¶®
[¿¼ÑÐ] 311Çóµ÷¼Á +9 lin0039 2026-03-26 9/450 2026-03-28 13:05 by ÌÆãå¶ù
[¿¼ÑÐ] 085701»·¾³¹¤³Ì£¬267Çóµ÷¼Á +16 minht 2026-03-26 16/800 2026-03-28 12:16 by zllcz
[¿¼ÑÐ] 286Çóµ÷¼Á +12 PolarBear11 2026-03-26 12/600 2026-03-28 12:14 by zllcz
[¿¼ÑÐ] ҩѧ105500Çóµ÷¼Á +3 Ssun¡£¡£ 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
[¿¼ÑÐ] 322Çóµ÷¼Á +6 ËÎÃ÷ÐÀ 2026-03-27 6/300 2026-03-28 07:08 by wangy0907
[¿¼ÑÐ] 308Çóµ÷¼Á +7 īīĮ 2026-03-25 7/350 2026-03-27 14:47 by ¿ñìÅÂóµ±µ±
[ÂÛÎÄͶ¸å] Journal of Mechanical Science and Technology +3 Russ_ss 2026-03-25 5/250 2026-03-27 10:49 by ½С¹û»­´ó±ý
[¿¼ÑÐ] 359Çóµ÷¼Á +4 ÍõÁ˸öéª 2026-03-25 4/200 2026-03-27 08:43 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 294·Ö080500²ÄÁÏ¿ÆÑ§Ó빤³ÌÇóµ÷¼Á +4 ÁøÏª±ß 2026-03-26 4/200 2026-03-26 21:14 by XPUÀîÇì
[¿¼ÑÐ] 327Çóµ÷¼Á +7 prayer13 2026-03-23 7/350 2026-03-26 20:48 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] Ò»Ö¾Ô¸ ÄϾ©Óʵç´óѧ 288·Ö ²ÄÁÏ¿¼ÑÐ Çóµ÷¼Á +3 jl0720 2026-03-26 3/150 2026-03-26 13:39 by zzll406
[¿¼ÑÐ] 263Çóµ÷¼Á +6 yqdszhdap£­ 2026-03-22 10/500 2026-03-26 13:11 by ¹«èªåÐÒ£
[¿¼ÑÐ] 085600 ²ÄÁÏÓ뻯¹¤ 329·ÖÇóµ÷¼Á +9 Mr. Z 2026-03-25 9/450 2026-03-26 10:36 by baoball
[¿¼ÑÐ] 347Çóµ÷¼Á +4 L when 2026-03-25 4/200 2026-03-25 13:37 by cocolv
[¿¼ÑÐ] һ־Ըɽ¶«´óѧҩѧѧ˶Çóµ÷¼Á +3 ¿ª¿ªÐÄÐÄû·³ÄÕ 2026-03-23 4/200 2026-03-24 00:06 by ¿ª¿ªÐÄÐÄû·³ÄÕ
[¿¼ÑÐ] 361Çóµ÷¼Á +3 Glack 2026-03-22 3/150 2026-03-23 22:03 by fuyu_
[¿¼ÑÐ] ½ÓÊÕ2026˶ʿµ÷¼Á(ѧ˶+ר˶) +4 allen-yin 2026-03-23 6/300 2026-03-23 15:04 by Íô£¡£¿£¡
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û