1樓：慶年工坊
sub s()
dim i%, j%, k%, f as booleanfor i = 101 to 200 step 2f = true
for j = 3 to sqr(i) step 2if i mod j = 0 then f = false: exit for
next
if f then
debug.print i;
k = k + 1
if k mod 10 = 0 then debug.printend if
next
end sub
2樓：紅山人
private sub form_click()dim f as boolean
for i = 100 to 200
for j = 2 to sqr(i)
if i mod j = 0 then
f = true
exit for
end if
next j
if not f then
print i
else
f = false
end if
next i
end sub
3樓：任人笑我太瘋癲我依行我道
可以計算從到num的所有素數
for n = 1 to 你要的最大值
for i = 2 to n - 1
if (n mod i) = 0 then exit fornext
if i = n then print n; " ";
next
有範圍是一定的 如果是integer的話範圍就是到32767long double的話就更長了
不過還是有個頭
用vb編寫一個程式，找出1~1000範圍內的所有素數，並將這些素數顯示在窗體上
4樓：匿名使用者
正確如下：
private sub command1_click()for n = 2 to 1000
for i = 2 to int(sqr(n))if n mod i = 0 then
exit for
end if
next i
if i > int(sqr(n)) then print n;
next n
end sub
說明：1、next i前一行加 end if是為了與前面的if構成完整的if....end if 語句，從而結束if語句並執行下一語句 。
2、另外print n後在面加分號可以在同一行輸出。
vb中求素數問題
5樓：
那句話的意思是 如果迴圈變數i超越終值x－1的時候 就說明這個數是一個素數
大一vb中如何求素數？求**
用vb設計程式能求出給定範圍內的素數
6樓：匿名使用者
private sub command1_click()dim isnum as boolean
dim count as integer
dim i as integer
dim j as integer
for i = val(text1.text) to val(text2.text) '下限到上限的數
isnum = true '先暫為質數
for j = 2 to i / 2
if i mod j = 0 then '如果能被 1或 數本身 整除
isnum = false '此數不是質數exit for '退出迴圈
end if
next j
if count = 5 then '計數 5個質數 一次換行count = 0
print '這裡就是換行了
end if
if isnum then ' 如果是質數print i; '列印出來
count = count + 1 '並累加 到5個質數後 準備換行
end if
next i
end sub
vb題：程式設計計算100以內素數的和
7樓：匿名使用者
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
8樓：美麗可愛
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 如何在一串陣列中算出素數個數
9樓：匿名使用者
private sub command1_click()dim x(10) as integer, count as integer
count = 0
for i = 1 to 10
x(i) = int(rnd * 81 + 10)text1.text = text1 & x(i) & " "
for m = 2 to val(x(i) - 1)if x(i) mod m = 0 thenexit for
end if
next m
if (m = x(i)) then count = count + 1
next i
text2 = count
end sub請採納
用vb程式設計輸出3 200之間的所有素數
private sub command1 click for i 3 to 200 for j 2 to sqr i if i mod j 0 then exit fornext if j int sqr i then print inext end sub vb編寫程式找出3 100間所有素數並輸...
vb輸入正整數,若該數不是素數,則找出大於它的最小素數
建立一個名為text1的文字框輸入正整數，一個command1的按鈕用以開始計算，結果顯示在label1裡 程式如下 private sub command1 click dim numin as long,num as longnumin val text1 if not isprime numi...
國家計算機二級VB筆試都考哪些範圍啊
去買書吧,等級考試當然跟學校學的東西不一樣啦.買一本筆試一本機試再買一本二級公共基礎知識做完了看完了一定過的.vb相對來說還是比較簡單的 那二級公共基礎知識可別小看.在筆試裡面佔三十分哦 反正不太難吧 全國計算機等級考試二級vb考試大綱 全國計算機二級vb考試具體考什麼內容？2004年教育部考試中心...