1樓：匿名使用者
private sub command1_click()dim i as integer, j as integer, k as integer
for i = 2 to 100
for j = 2 to i
if i mod j = 0 then
exit for
end if
next
if i = j then
k = k + i
end if
next
msgbox k
end sub
2樓：美麗可愛
private sub form_load()
show
dim n, i, k as integer '定義n , i , k為整數型
s = 0 '賦值s 為0
for n = 1 to 100 '列舉 for迴圈 n 從1到100
k = 0 '賦值k 為0
for i = 1 to n '巢狀for迴圈 i為除數
if n mod i = 0 then '如果 i 能整除n
k = k + 1 '（k為可以整除n的個數） 則k加1
end if
next i '結束for迴圈
if k = 2 then '如果 k等於2 （由於素數只有兩個能夠整除的除數，為素數的特性）
s = s + n 's相當於累加器，將滿足k=2條件的n加起來
end if
next n '結束for迴圈
print s '輸出s
end sub
以上是我的一種列舉的方法，還有多種解法，希望可以幫助你。
要理解這段**並不難，主要理解：
雙重迴圈有這幾特點:
一是:一旦進入內迴圈,要把內迴圈做完才能持行外迴圈**,除非你是用exit for 強制退出
二是:外迴圈做一次,內迴圈要做完,強制性退出(exit for)的除外
vb程式設計輸出100以內的所有素數
3樓：匿名使用者
我記得素數是隻能被1和它本身除的數，如是的話如下**能夠實現。
private sub command1_click()for i = 1 to 100
for j = 2 to i - 1
if i mod j = 0 then
exit for
end if
if j = i - 1 then
print i
end if
next j
next i
end sub
vb程式設計輸出100以內的素數
4樓：心感自然
具體是這樣子的：
從for i = 1 to 100到next i這是一個完整的for迴圈，而for j = 2 to i - 1到next j是一個內層迴圈，外層迴圈用來控制數字是幾，就是1到100麼，內層是x當作標記來看，給他附初值，0，然後開始內層迴圈就是那個 j 迴圈，開始判斷素數，什麼時素數？就是不能被1和他本身整除的數字，就是素數，這樣可以設定最大迴圈判斷的那個數字是比她小的，其實可以改為i/2，也是對的，甚至是sqr(i)也可以，x是一個標誌，如果可以被一個數字整除，那麼x就不是1了，再迴圈結束的時候進行判斷，如果還是0，那麼說明是素數，在窗體上輸出，如果不是0，就不是素數了唄，什麼也不做，進行下一個迴圈！
純手打……不含假……不懂追問我，謝謝
望採納，謝謝
5樓：匿名使用者
你知道什麼是素數嗎？
程式設計求個位數為5或7的200以內的素數
php實現具體 如下 created by phpstorm.user administrator date 2018 12 2 time 20 18 程式設計求個位數為5或7的200以內的素數 判斷是否為素數 質數 基本判斷思路 在一般領域，對正整數n，如果用2到 之間的所有整數去除，均無法整除，...
程式設計題求100 200之間的全部素數怎麼做呀
下面是一個vb 求100 200之間的全部素數的 public function issushu byval pa as integer as boolean dim pb as integer pa 1dim res as boolean truefor i 2 to pb if pa mod i...
求能顯示100以內所有素數的c語言程式，關鍵是把思想傳遞
其實，這個問題只需要兩層迴圈就可以了。具體如下 由於要求出100以內的所有素數，那麼有兩種方法 第一 知道計算一個數是不是素數的公式，第 二 就是按個判斷了。顯然，對於第一個我們還沒有解決方法。那麼就剩第二個了。既然挨個判斷了，那麼應該從最小的開始吧？最小的素數是2.這是眾所周知的。不解釋了。那麼就...