²é¿´: 1031  |  »Ø¸´: 5

zyj8119

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

[ÇóÖú] Ò»¸öVB¹¤³ÌµÄÎÊÌâ

CODE:
Option Explicit
Option Base 1


Private Sub Command1_Click()
   Dim i As Integer, a() As Integer, flag As Boolean, n As Integer
   Dim j As Integer, str As String
   For i = 153 To 9999
   flag = False
   Call ast(i, flag, a, n)
   str = " "
   If flag Then
      str = str & "="
      For j = 1 To UBound(a) - 1
        str = str & a(j) & "^" & n & "+"
      Next j
      str = str & a(j) & "^" & n
      List1.AddItem str
   End If
Next i
End Sub

Private Sub ast(ByVal k As Integer, flag As Boolen, b() As Integer, n As Integer)
   Dim i As Integer, s As Integer, m As Integer
   n = Len(CStr(k))
   m = k
   ReDim b(n)
   For i = n To i Step -1
      b(i) = k Mod 10
      k = k \ 10
   Next i
   For i = 1 To n
       s = s + b(i) ^ n
   Next i
   If s = m Then falg = True
End Sub

´Ë¶Î´úÂëÎÞ·¨ÔËÐУ¬Í¼»­ÊǽçÃæ£¬Çë¸ßÊÖÖ¸½Ì¡£¡£¡£
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

hellovirus

½ð³æ (СÓÐÃûÆø)

¡ï
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-10-13 01:04:18
ÔÚÁ½¶Î³ÌÐòÖÐi×öΪ¼ÆÊýÆ÷£¬
ÉèÖóöÏÖÎÊÌ⣬
ÒòΪ²»ÖªµÀÄãastÕâ¶Î³ÌÐòµÄÄ¿µÄ£¬ËùÒÔ²»ÄÜд³öÀ´ÄãÏëÒªµÄ³ÌÐò¡£

***************************
   For i = n To      i       Step -1
**************************
ÎÒ¹À¼ÆÕâ¾äÖеĵڶþ¸ö i  ÓÐÎÊÌ⣬ÊÇ1»òÕßk¾ÍÄÜÕý³£ÔËÐÐÁË¡£
©I¡º*Éî¶È¼¼ÊõÂÛ̳*¡»©I
2Â¥2011-10-12 23:06:51
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

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

ÒýÓûØÌû:
2Â¥: Originally posted by hellovirus at 2011-10-12 23:06:51:
ÔÚÁ½¶Î³ÌÐòÖÐi×öΪ¼ÆÊýÆ÷£¬
ÉèÖóöÏÖÎÊÌ⣬
ÒòΪ²»ÖªµÀÄãastÕâ¶Î³ÌÐòµÄÄ¿µÄ£¬ËùÒÔ²»ÄÜд³öÀ´ÄãÏëÒªµÄ³ÌÐò¡£

***************************
   For i = n To      i       Step -1
*********************** ...

Private Sub ast(ByVal k As Integer, flag As Boolen, b() As Integer, n As Integer)
ÕâÒ»¾äÏÔʾÓû§ÀàÐÍ䶨ÒåÊÇʲôÒâ˼£¿
ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
3Â¥2011-10-12 23:09:32
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

hellovirus

½ð³æ (СÓÐÃûÆø)

¡ï ¡ï
jjdg(½ð±Ò+2): ¸Ðл²ÎÓë 2011-10-13 01:04:30
ÎÒÔΣ¬ÄãµÄ³ÌÐòÖÐÓÐÁ½¸ö´íÎó£¬
ÎÒÒÔΪÄãÖªµÀÁË£¬ÊÇÄã´ò´í ÁË£¡£¡
********************
Private Sub ast(ByVal k As Integer, flag As Boole a  n, b() As Integer, n As Integer)
******************
ÉÙÁ˸öa £¬Äã×îºÃÓÃVBµÄ×Ô¶¯²¹È«£¬
ÏÂÃæ»¹Óиö´íÎó £¬
************************
   If s = m Then falg = True
End Sub
*************************
²»ÊÇfalg,Ó¦¸ÃÊÇflag
©I¡º*Éî¶È¼¼ÊõÂÛ̳*¡»©I
4Â¥2011-10-12 23:27:38
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

libralibra

ÖÁ×ðľ³æ (ÖøÃûдÊÖ)

æôÆï½«¾ü

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï
zyj8119(½ð±Ò+5): лл½¨Òé¡£ 2011-10-13 10:05:40
xzhdty(½ð±Ò+1): »¶Ó­³£À´ 2011-10-13 11:48:04
153 To 9999µÈÓÚ×ÔÉíËùÓÐÊý×ÖÃݴεĺÍ?
hellovirus ÅóÓÑ˵µÄ¶ÔµÄ,
for i = n to i step -1
ÄãµÄÑ­»·±äÁ¿ºÍÑ­»·½ØÖ¹Ìõ¼þ¶¼ÊÇi?²»ÐаÉ
matlab/VB/python/c++/Javaд³ÌÐòÇë·¢QQÓʼþ:790404545@qq.com
5Â¥2011-10-13 01:05:34
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

deephill

Ìú¸Ëľ³æ (Ö°Òµ×÷¼Ò)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï
zyj8119(½ð±Ò+5): лл½¨Òé¡£¡£ 2011-10-13 10:05:27
xzhdty(½ð±Ò+1): »¶Ó­ÌÖÂÛ 2011-10-13 11:47:48
ÎÊÌâ½Ï¶à£¬ÎÄ×Ö´íÎóÓкü¸´¦¡£Â¥ÉϵÄ˵µÄÒ²¶Ô¡£
ºóÃæµÄ¹ý³Ì¸Ä³É£º
Private Sub ast(ByVal k As Integer, flag As Boolean, b() As Integer, n As Integer)
   Dim i As Integer, s As Integer, m As Integer
   
   n = Len(CStr(k))
   m = k
   ReDim b(n)
   For i = n To 1 Step -1
      b(i) = k Mod 10
      k = k \ 10
   Next i
   For i = 1 To n
       s = s + b(i) ^ n
   Next i
   If s = m Then flag = True
End Sub
==================
ÔËÐм´¿É³ö½á¹û¡£
6Â¥2011-10-13 09:31:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ zyj8119 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +5 usprnugpzw 2026-02-21 11/550 2026-02-23 09:24 by w4l55oybr1
[ÂÛÎÄͶ¸å] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 w89i99eaeh 2026-02-22 5/250 2026-02-23 08:04 by w4l55oybr1
[²©ºóÖ®¼Ò] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +4 khieu8v8m0 2026-02-22 6/300 2026-02-23 07:59 by w4l55oybr1
[¿¼ÑÐ] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 khieu8v8m0 2026-02-22 7/350 2026-02-23 07:54 by w4l55oybr1
[ÂÛÎÄͶ¸å] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +4 khieu8v8m0 2026-02-22 7/350 2026-02-23 07:51 by w4l55oybr1
[²©ºóÖ®¼Ò] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +6 3dfhjxgsh7 2026-02-22 9/450 2026-02-23 07:49 by w4l55oybr1
[¿¼²©] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +4 khieu8v8m0 2026-02-22 4/200 2026-02-23 06:46 by jsjzfl
[˶²©¼ÒÔ°] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 8rmuugja8q 2026-02-22 6/300 2026-02-23 06:39 by w4l55oybr1
[¹«Åɳö¹ú] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 khieu8v8m0 2026-02-22 5/250 2026-02-23 06:29 by w4l55oybr1
[¿¼²©] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +5 3dfhjxgsh7 2026-02-22 6/300 2026-02-23 02:04 by 5jlh3qtdvx
[½Ìʦ֮¼Ò] °æÃæ·Ñ¸Ã½»Âð +7 Æ»¹ûÔÚÄÄÀï 2026-02-22 8/400 2026-02-22 22:37 by otani
[»ù½ðÉêÇë] »ù½ðÕýÎÄ30Ò³Ö¸µÄÊDZ¨¸æÕýÎÄ»¹ÊÇÕû¸öÉêÇëÊé +5 successhe 2026-02-16 6/300 2026-02-22 21:38 by ɽÎ÷Ðü¿ÕË¿ÕÐüÎ
[»ù½ðÉêÇë] ÃæÉÏ¿ÉÒÔ³¬¹ý30Ò³°É£¿ +4 °¢À­¹±aragon 2026-02-22 4/200 2026-02-22 21:22 by ɽÎ÷Ðü¿ÕË¿ÕÐüÎ
[ÂÛÎÄͶ¸å] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +4 usprnugpzw 2026-02-21 6/300 2026-02-22 19:48 by w89i99eaeh
[¿¼ÑÐ] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 3dfhjxgsh7 2026-02-22 4/200 2026-02-22 16:52 by khieu8v8m0
[ÕÒ¹¤×÷] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 usprnugpzw 2026-02-22 3/150 2026-02-22 16:37 by khieu8v8m0
[¹«Åɳö¹ú] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 usprnugpzw 2026-02-21 4/200 2026-02-22 16:27 by khieu8v8m0
[»ù½ðÉêÇë] ¡°ÈËÎÄÉç¿Æ¶øÂÛ£¬Ðí¶àѧÊõÑо¿»¹Ã»ÓдﵽÃñ¹úʱÆÚµÄˮƽ¡± +4 ËÕ¶«ÆÂ¶þÊÀ 2026-02-18 5/250 2026-02-22 16:07 by liangep1573
[»ù½ðÉêÇë] ʲôÊÇÈËÒ»Éú×îÖØÒªµÄ£¿ +4 ˲ϢÓîÖæ 2026-02-21 4/200 2026-02-22 11:44 by huagongfeihu
[»ù½ðÉêÇë] ÌåÖÆÄÚ³¤±²ËµÌåÖÆÄÚ¾ø´ó²¿·ÖÒ»±²×ÓÔڵײ㣬ÈçͬÄãÃÇÒ»Ñù´ó²¿·ÖÆÕͨ½ÌʦæÇÒÊÕÈëµÍ +9 ˲ϢÓîÖæ 2026-02-20 12/600 2026-02-21 10:39 by »¶ÀÖËÌÒ¶Ýè
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û