作者Powpowpp (pp)
看板Visual_Basic
标题[VBA ] 印出 1~100 质数
时间Fri Apr 14 12:45:04 2017
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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1492145106.A.322.html
1F：嘘 MOONRAKER: 那你得到什麽错误 04/14 14:42
2F：嘘 karta269: ... 04/14 21:27
3F：→ Powpowpp: 标起第一个Next,然後说编译错误,说有Next,却没有For 04/14 21:48
4F：→ Powpowpp: 我跑i回圈是OK的,可是a的if跟Goto不太会写,a回圈亦不知 04/14 21:53
5F：→ Powpowpp: 错 04/14 21:53
6F：→ holybug: For Each c --> Next c 04/17 07:58
7F：→ newton41: While後面也没有结束的地方。 04/19 22:23
8F：推 LPH66: Visual Basic 的 While 是以 End While 结束, 不是 Next 04/21 13:56
9F：→ LPH66: 唔嗯, 没注意到是 VBA, 那个 While 要用 Wend 结束 04/21 14:01
10F：→ LPH66: 总之不是 Next, 所以你的 Next a 是错的 04/21 14:01
11F：→ LPH66: Next 只会跟 For / For Each 在用, 而且不一定要附变数名 04/21 14:05