1樓：棘棘芽
function prime(byval n as integer) as boolean
if n < 1 then prime = false : exit function
dim i as integer
prime = true
for i = 2 to n - 1
if n mod i = 0 then
prime = false
exit for
end if
next
end function
呼叫時dim j as integer, i as integerfor i = 200 to 300
if prime(i) then j = j + inext
text1.text=j
2樓：許一世安好
m都能被n整除了 n自然就不是素數了 怎麼還會是 則n為素數
3樓：匿名使用者
窗體上乙個文字框:
**如下:
option explicit
private sub form_click()dim i as integer
dim s as integer
s = 0
for i = 200 to 300
if prime(i) then
s = s + i
end if
next i
text1.text = s
end sub
'自定義函式，判斷乙個自然數是否素數
private function prime(byval n as integer) as boolean
dim i as integer
for i = 2 to n / 2
if n mod i = 0 then exit fornext i
if i > n / 2 then
prime = true
else
prime = false
end if
end function
vb中求素數問題
4樓：
那句話的意思是 如果迴圈變數i超越終值x－1的時候 就說明這個數是乙個素數
vb問題，vb高手請進 高分懸賞!!!
高分懸賞關於聲音裝置安裝的問題，高分懸賞乙個關於聲音裝置安裝的問題
你確認 你系統沒有裝還原卡？如果要是每次重新正常開機 不包括非法關機 都要重新裝驅動的話呢，有三個原因，一，音效卡驅動和你本身的音效卡不相容。二，硬碟的磁軌偏離。三，主機板電容有壞的。用驅動天使自動搜多最佳音效卡驅動 如果是獨立音效卡 就拔下來 換個插槽 或者清下音效卡和插槽灰塵 如果不是可能主機板...
高分懸賞！學生證磁條的問題，高分懸賞，關於學生證的真假，謝謝大家
特殊情況可以理解呵呵。首先可以告訴你的是，人大附近那些賣磁條的 也包括假證 可以用的，我同學學生證到期了辦了個假的還帶磁條，磁條好像是80吧。在車站可以用。磁條只是一種證明你是學生的憑證，沒有什麼學校資訊的。乘車區間要填寫學校所在地到家庭住址之間。是要蓋學校的章的，現在刻章的多了去了不多說這個了呵呵...
高分懸賞關於電腦公升級的問題
你好這位朋友 讓我來告訴你吧，我前幾天剛剛配的電腦，玩使命召喚6，一點也不卡，特效全開。首先你的記憶體是ddr的，不是ddr2的，是老機器了，沒有公升級的空間，因為你的主機板 記憶體的頻寬較低，會形成瓶頸，所以你想玩使命召喚的話，這塊主機板和cpu 顯示卡等等是要通通換掉的！這是我配的電腦 你可以參...
高分懸賞關於出國留學的問題
出國資金是和要去的國家掛勾的。比較便宜的一般都是六到八萬。像美加一般比較貴，一年幾十萬正常的。對高中的平時成績要求更大一點。高考只是其中一點。考試一般沒什麼的，主要是語言類相好點。讓人家覺得你確實是為了出國而做準備的 這個得看你去哪兒了。你可以去新加坡讀專科，新加坡的專科跟國內不一樣，質量還是很 的...
高分懸賞 關於父子間法律的問題，高分懸賞 乙個關於父子間法律的問題！
你好，按照我國相關法律之規定，父子關係是屬於自然血親關係，雙方的法律關係是不能解除的。父母親應該承擔未成年子女的撫養費，直至成年為止。如果父親不履行撫養義務的，你可以向人民法院提起訴訟，要求其承擔撫養費。每個公民都享有姓名權，包括姓名變更權，但是需要向戶籍所在地的派出所提出申請。如果是未成年人需要變...