※ 引述《kayelijah (懶貓)》之銘言：
: 今天我們老師說可以用6行寫出除何驗證並找出1-100的質數...
: 請問這....有可能嗎...
: 我寫了10行多呢...
: 各位大哥..假如真的有這方法可以指教一下嗎...
: 我想破頭了都覺得怪...
哎...只能濃縮到七行
For m As Integer = 2 To 100
Dim Flag As Boolean = True
For n As Integer = 2 To m
If (m Mod n) = 0 And m <> n Then Flag = False
Next n
If Flag = True Then ListBox1.Items.Add(m)
Next m
--
我不是大哥...也不要叫我大姊..
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.192.5.198