[VBA ] 印出 1~100 質數

看板Visual_Basic作者Powpowpp (pp)時間7年前 (2017/04/14 12:45)推噓-1(1推 2噓 8→)

留言11則, 6人參與討論串1/1

Public Sub test() Dim c As Range, i As Integer, a As Integer Range("A1").Value2 = 2 Range("A2").Value2 = 3 i = 5 For Each c In Range("A3:A100") ccc: For a = 3 To 100 While (a < i) If i Mod a = 0 Then GoTo ccc a = a + 2 Next a c.Value = i i = i + 2 Next i End Sub 請問問題出在那??? 請幫忙 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.52.130.231 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1492145106.A.322.html

噓

MOONRAKER

04/14 14:42, , 1^F

04/14 14:42, 1^F

噓

karta269

04/14 21:27, , 2^F

04/14 21:27, 2^F

→

Powpowpp

04/14 21:48, , 3^F

04/14 21:48, 3^F