Private Sub Command1_Click()For i = 3 To 100For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNextIf j > Int(Sqr(i)) Then s = s & i & " "NextMsgBox sEnd Submod 函數(shù)作用是求余數(shù)
判斷i是否為質(zhì)素，就是判斷從2開始到i,除i自身外有沒有數(shù)能和i整除 余數(shù)為0 就是能整除
為了減少不必要的判斷 循環(huán)到 i 平方根 就可以了 再上面就根本不會(huì)有滿足整除的數(shù)
如果求余數(shù)為0 則退出循環(huán) 此時(shí)的j變量值 一定是小于或等于 循環(huán)的終止值 sqr(i)
如果在j循環(huán)里 找不到 If i Mod j = 0 Then Exit For 滿足這個(gè)條件的數(shù) 當(dāng)退出j循環(huán)時(shí)
j值等于 srq(i)+1會(huì)大于 srq(i) 故判斷j 值大小 就知道 這個(gè)i 是否為質(zhì)素
vb編程題 輸出3到100之間所有的質(zhì)數(shù) （質(zhì)數(shù)：只能被1和它本身整除的數(shù)）
vb編程題 輸出3到100之間所有的質(zhì)數(shù) （質(zhì)數(shù)：只能被1和它本身整除的數(shù)）
其他人氣：704 ℃時(shí)間：2019-08-21 19:34:48
優(yōu)質(zhì)解答
我來回答
類似推薦
- VB題：編程輸出1-100之間的所有可能被3整除的數(shù)
- 求VB編程代碼:判斷一個(gè)數(shù)是否是素?cái)?shù)?
- 中國共產(chǎn)黨全體代表大會(huì) 和全國人民代表大會(huì)各自的簡稱是什么?比如幾大.幾屆幾中全會(huì).
- 算式,某人乘船由A地順溜而下到B地,然后又乘船逆流而上至C地,共乘船3小時(shí).已知船在近水中速度為8KM一小時(shí),水流速度為2KM小時(shí),若AC兩地得距離為2KM則AB兩地距離為?
- 魯濱遜的遜是讀《xun還是sun》?
- 摩爾比怎么算
- 八下英語改錯(cuò)
- 實(shí)驗(yàn)室加熱約2mL液體,可以使用的儀器是
- 黑板在墻上英語用in還是on
- 下列四種物質(zhì)中有一種在適當(dāng)條件下能與其他三種反應(yīng)，這種物質(zhì)是（ ?。?A.氧氣 B.鐵 C.鹽酸 D.硫酸銅
- ∫(1/sin³xcos³x)dx 怎么解
- 散入春風(fēng)滿洛城的上一句是什么
猜你喜歡
- 1若直線l過拋物線y=ax2（a＞0）的焦點(diǎn)，并且與y軸垂直，若l被拋物線截得的線段長為4，則a=_．
- 2“地”有幾個(gè)讀音?
- 3我忘不了你的鼓勵(lì),作文600字
- 4（1）已知：f(x)＝4x2?12x?32x+1，x∈[0，1]，求函數(shù)f（x）的單調(diào)區(qū)間和值域； （2）a≥1，函數(shù)g（x）=x3-3a2x-2a，x∈[0，1]，判斷函數(shù)g（x）的單調(diào)性并予以證明； （3）當(dāng)a≥1時(shí)，上述（1）、（
- 52x-(25-x)=8,x=
- 6Mary-----(see) her uncle the day after tomorrow.
- 7It is +時(shí)間段+since=?
- 8帶過字的二字詞語：過于激烈叫（ ）超過期望叫（ ）超過限度叫（ ）事情經(jīng)過叫（ ）
- 9甲乙倆人同時(shí)從相距100km的兩地相向而行,甲乙的速度分別是6KM/h和4KM/h,
- 10甲數(shù)的五分之一等于乙數(shù)的八分之一,甲數(shù)是乙數(shù)的百分之幾.
- 11已知f（x）=Inx^2,(x>0)的值域?yàn)閇-1,1],則其反函數(shù)的值域?yàn)?
- 12which city do you like best in China?