1樓：匿名使用者
private sub form_click()dim i as long
for i = 2 to 1000
if i mod 13 <> 0 and i mod 11 <> 0 and i mod 7 <> 0 and i mod 5 <> 0 and i mod 3 <> 0 and i mod 2 <> 0 then print i
next i
end sub next i
end sub
用vb找出不大於1000的最大素數
2樓：笑年
private sub command1_click()dim i, j, n as integerdim yesnum as booleanfor j = 1000 to 2 step -1yesnum = true
n = int(sqr(j) + 0.5)for i = 2 to n
if j mod i = 0 then
yesnum = false
exit for
end if
next
if yesnum = true thendebug.print j
exit for
end if
next
end sub
3樓：匿名使用者
private sub command1_click()dim n
for i = 999 to 2 step -1for j = 2 to sqr(i)
if i mod j = 0 then exit fornext j
if j > sqr(i) then n = i: exit fornext i
print n
end sub
編寫vb程式:計算出小於1000的最大素數
4樓：大王我去巡山
private sub command1_click()dim i as integer
for i = 2000 to 1000 step -1if prime(i) then print " 1000-2000範圍內的最大素數: " & i: exit for
next
end sub
private function prime(byval n as long) as boolean '返回值=true是素數,false不是素數
dim k as long
if n < 2 then
prime = false
求助啊！用vb程式設計，求不超過1000的迴文素數！
用vb編寫一個程式，找出1~1000範圍內的所有素數，並將這些素數顯示在窗體上
5樓：匿名使用者
正確如下：
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後在面加分號可以在同一行輸出。
用c語求大於m的最小素數該怎麼寫？
vb 關於找出2到1000的素數程式設計
6樓：匿名使用者
兩點，一點，你的問題在於：
if m = 2 then print i在m=2時，顯示2,然後就沒有了。。。當然就是2,然後也沒有然後了。。。
二點，你和程式不對：顯示從2到1000的素數：
dim i%, j%, n%
for i = 2 to 1000
for j = 2 to i - 1
if i mod j = 0 then exit fornext
if j >= i - 1 then
print format(i, "@@@@");
n = n + 1
if n mod 6 = 0 then printend if
next
7樓：匿名使用者
private sub command1_click()dim i as integer, j as integer, k as integer
for i = 2 to 1000
for j = 2 to int(sqr(i))if i mod j = 0 then
exit for
end if
next
if j > int(sqr(i)) thenif k mod 10 = 0 then printprint format(i, "@@@@");
k = k + 1
end if
next
end sub
鍵盤鍵入一個正整數，求不大於該數的最大素數 j**a
vb程式設計找出1000到3000之內的素數
8樓：數學與計算機程式設計
private sub command1_click()dim i as integer, j as integer, k as integer, bolflag as boolean
for i = 1000 to 3000
bolflag = true
for j = 2 to sqr(i)
if i mod j = 0 then
bolflag = false
exit for
end if
next j
if bolflag = true thenk = k + 1
print i;
if k mod 10 = 0 then printend if
next i
print " 共" & k & "個"
end sub
用0，1，2，3，4，5這數字可以組成多少個不大於
解由43開頭的有 4310，4302 由42開頭的有 4250，4230,4210 由41開頭的有 4152,4150，4132,4130,4102，4120 由40開頭的有 4052,4032,4012 由35開頭的有 3542,3540,3524，3520,3512，3514,3510,3504...
有不大於500的數他被234567除的餘數都是1這個
有一個不大於500的數他被234567除的餘數都是1這個數是多少2 3 4 5 6 7的最小公倍數是 2 2 3 5 7 420 420 1 421 這個數是421 9除一個數，商是4，餘數是3，這個數是多少？這個數為39。解 設這個數為x。那麼根據題意可列方程為，x 9 4.3 即x 4 9 3 ...
PS中出現「警告 任何畫素都不大於50的選擇。選區邊界將不可見」是什麼原理？好心人解答啊
既然你問到原理的東西，就請看下面，本回答原創，不能儲存證回答1000 的正確性。如果出現此警告 任何畫素都不大於50 的選擇，選區邊界將不可見 說明你已做好了選區，只是選區螞蟻線的邊界用肉眼看不到而已。那麼這個 50 是什麼值？就是該畫素選擇範圍的 50 如果全選一個畫素 不羽化，不消除鋸齒 是 1...