Åã¥Ü¼Æ­È¤£¸õ®æ

fangsc

½Ð±Ð, ­n¦p¦ó­×§ï, ¿é¥Xªº¼Æ­È¤~¤£·|¸õ®æÅã¥Ü.

Sub hw1()
'3-X¶¡ªº½è¼Æ.
n = Range("E1")
For i = 3 To n
    For j = 2 To n - 1
    p = i Mod j
    If p = 0 Then Exit For
Next j

Cells(j, "a").Value = j
Next i

End Sub

¬¡­¶Ã¯1.zip (11.08 KB)

¤U¸ü¦¸¼Æ: 4

2020-10-13 13:17

fangsc

¦^´_ 2# jcchiang

ÁÂÁ§Aªº¦^ÂÐ.
¦ý¬Orun ¥X¨Óªº¼Æ¦r«Ü©_©Ç
a1: 3
a2: 2
a3: 5
a4: 2
a5: 7
a6: 2
a7: 3
a8: 2
a9: 11
.
.
.

fangsc

·PÁ¤j®aªº«ü¾É.

fangsc

¦^´_ 5# ­ã´£³¡ªL
¤£¦n·N«ä, ¦A¦¸´£°Ý.
If P > 0 Then r = r + 1: Cells(r, 1) = i
    : «_¸¹ ¬O¦ó§@¥Î? §Ú¦³goole, «_¸¹¬O¥Î¨Ó³s±µ2µ{¦¡½X, ¥H²¤Æµ{¦¡
¦ý¬O¦pªG§â³o¤@¦æª½±µ¤À¦¨2¦æ, ±o¥Xªºµ²ªG¬O¤£¦Pªº.
¦pªG¤£¥Î«_¸¹, ½Ð°Ýµ{¦¡¸Ó¦p¦ó¼g?

fangsc

¦^´_ 9# ­ã´£³¡ªL
ÁÂÁ§Aªº«ü¾É.