vb計算素數有範圍,Vb中求素數問題

2022-05-11 04:27:33 字數 3782 閱讀 6811

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年教育部考試中心...