ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¶ñ¼Æ¦rªº»yªk¡C

[µo°Ý] ¶ñ¼Æ¦rªº»yªk¡C

¥»©«³Ì«á¥Ñ papaya ©ó 2019-3-24 11:11 ½s¿è

¶ñ¼Æ¦rªº»yªk¡C.rar (10.93 KB)
¥¼©R¦W-1.png
2019-3-24 11:08

   
¥¼©R¦W.png
2019-3-24 11:09
      

                  For j = 1 To 49
                    Cells(1, j + 1) = j
                 Next

»Ý¨D_1¡J
±NB1¡JAX1ªº1~49¥Ñ¤p¦Ó¤j±Æ§Çªº»yªk§ï¬°§À¼Æ(§Y=­Ó¦ì¼Æ)=1,2,3,4,5,6,7,8,9,0ªº10­Ó±Æ¦C²Õ¦Xªº»yªk~
§YB1¡JAX1=1,11,21,31,41,2,12,22,32,42,3,13,23,33,43,4,14,24,34,44,5,15, 25,35,45,6,16,26,36,46,7,17,27,37,47,8,18,28,38,48,9,19,29,39,49,10,20,30,40

»Ý¨D_2¡J
±NB1¡JAX1ªº1~49¥Ñ¤p¦Ó¤j±Æ§Çªº»yªk§ï¬°¦X¼Æ(§Y=­Ó¦ì¼Æ¥[¤Q¦ì¼Æ)=1,2,3,4,5,6,7,8,9,0ªº10­Ó±Æ¦C²Õ¦Xªº»yªk~
§YB1¡JAX1=1,10,29,38,47,2,11,20,39,48,3,12,21,30,49,4,13,22,31,40,5,14, 23,32,41,6,15,24,33,42,7,16,25,34,43,8,17,26,35,44,9,18,27,36,45,19,28,37,46

¥H¤W»Ý¨D¡A¸Û½Ð¦U¦ì¤j¤jÀ°¦£©M½ç±Ð!

¦^´_ 1# papaya
­«·s¾ã²z½d¨ÒÀÉ~
»Ý¨D1&2.rar (21.1 KB)

»Ý¨D_1.png
2019-3-28 09:07


»Ý¨D_2.png
2019-3-28 09:08

TOP

»Ý¨D1
  1. Sub num1()
  2.     P = 2
  3.     For j = 1 To 10
  4.         For i = 0 To 4
  5.             Cells(2, P) = i & j Mod 10
  6.             P = P + 1
  7.         Next
  8.     Next
  9. End Sub
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 3# ML089
ª©¥D¤j¤j:
·PÁ¸ÑÃD~
¦]¬°­n©ñ¦b²Ä1¦C~©Ò¥H±NCells(2, P) = i & j Mod 10§ï¬°Cells(1, P) = i & j Mod 10
µª®×¦h¤@­Ó00¡A§Ú¤£ª¾«ç»ò­×¥¿^^"
·Ð½Ð«ü¥¿~ÁÂÁ±z!

»Ý¨D_1_Ans.png
2019-3-28 10:24

TOP

¦^´_ 4# papaya

if  i & j Mod 10 <> "00"
            Cells(2, P) = i & j Mod 10
            P = P + 1
endif
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 5# ML089
ª©¥D¤j¤j:±z¦n!
¤£¦n·N«ä¡AÁÙ¬O¤£¦æ~Åܦ¨³o¼Ë~
»Ý¨D_1_Ans2.png
2019-3-28 11:18

TOP

¦^´_ 6# papaya

P = P +1 ­n¦b IF ¥H¤º

Sub num1()
    P = 2
    For j = 1 To 10
        For i = 0 To 4
            If i & j Mod 10 <> "00" Then
                Cells(2, P) = i & j Mod 10
                P = P + 1
            End If
        Next
    Next
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

»Ý¨D2¡A¬Ý¤£À´¡A»Ý­nÁ|¨Ò­pºâ
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 8# ML089
01=(0+1)/10=1 =>¾l¼Æ
10=(1+0)/10=1
29=(2+9)/10=1
38=(3+8)/10=1
47=(4+7)/10=1

02=(0+2)/10=2
11=(1+1)/10=2
20=(2+0)/10=2
39=(3+9)/10=2
48=(4+8)/10=2

:
:
:   
:

09=(0+9)/10=9
18=(1+8)/10=9
27=(2+7)/10=9
36=(3+6)/10=9
45=(4+5)/10=9

19=(1+9)/10=0
28=(2+8)/10=0
37=(3+7)/10=0
46=(4+6)/10=0

TOP

»Ý¨D 2

Sub num2()
    p = 2
    For j = 1 To 10
        For i = 0 To 4
            If i & j Mod 10 <> "00" Then
                Cells(3, p) = i & (10 + j - i) Mod 10
                p = p + 1
            End If
        Next
    Next
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD