質(zhì)數(shù)判斷函數(shù)vb.net

Sub?IsPrimenum(byval?a?As?Integer)

成都地區(qū)優(yōu)秀IDC服務(wù)器托管提供商(成都創(chuàng)新互聯(lián)公司).為客戶提供專業(yè)的成都服務(wù)器托管,四川各地服務(wù)器托管,成都服務(wù)器托管、多線服務(wù)器托管.托管咨詢專線：18982081108

Dim?b?As?Integer

For?b?=?2?To?(a?-?1)

If?a?Mod?b?=?0?Then

MsgBox(?"這不是質(zhì)數(shù)")

Else

MsgBox(?"這是質(zhì)數(shù)")

End?If

Next

End?Sub

顯示100以內(nèi)所有素?cái)?shù) VB.net語言

‘這個(gè)是可以選擇范圍的查找

Public?Class?Form1

'一個(gè)大于1的自然數(shù)，除了1和它本身外，不能被整除以其他自然數(shù)（質(zhì)數(shù)），換句話說就是該數(shù)除了1和它本身以外不再有其他的因數(shù)

'?章魚哥?3107073263

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?PD?As?Boolean?=?True

TextBox1.Clear()?'首先清空文本框，這里面將放置符合條件的素?cái)?shù)

If?NumericUpDown1.Value??NumericUpDown2.Value?Then?'從小到大

For?i?=?NumericUpDown1.Value?To?NumericUpDown2.Value?'循壞判斷所有數(shù)

For?j?=?2?To?i?-?1?'內(nèi)循環(huán)是除了1和它本身的

If?i?Mod?j?=?0?Then?'判斷是否能被除了1和自身以為的?比自身小的數(shù)整除

PD?=?False?'如果能被整除，將PD?設(shè)置為False

Exit?For?'退出里層For?循環(huán)

Else

PD?=?True

End?If

Next

If?PD?Then?'如果PD為True?，則為素?cái)?shù)

TextBox1.Text?=?i??"??"

End?If

Next

End?If

End?Sub

End?Class

vb 判斷一個(gè)數(shù)是否為素?cái)?shù)，若不是求出大于它的最小素?cái)?shù)

主要是以下語句有問題：

Exit Do: Text2 = Str(a) "是素?cái)?shù)"

Exit Do是退出Do-While循環(huán)，既然已經(jīng)退出了，就不會(huì)執(zhí)行后面的Text2 = Str(a) "是素?cái)?shù)"了。

Do While 1

a = a + 1

For n = 2 To Sqr(a)

If a Mod n = 0 Then Exit For

Next n

If n Sqr(a) Then

Exit Do:

End If

Loop

Text2 = Str(a) "是素?cái)?shù)"

這是我的參考代碼（用VB.NET編寫，改為VB，可能有小錯(cuò)誤，我這兒沒有VB 6環(huán)境）：

Private Sub Command1_Click()

Dim a As Integer

a = Val(TextBox1)

If IsPrimeNumber(a) = True Then

TextBox2 = Str(a) "是素?cái)?shù)"

Return

End If

Do While 1

a = a + 1

If IsPrimeNumber(a) = True Then

Exit Do

End If

Loop

TextBox2 = Str(a) "是素?cái)?shù)"

End Sub

'判斷一個(gè)整數(shù)是否是素?cái)?shù)，若是素?cái)?shù)返回true，否則返回false

Private Function IsPrimeNumber(ByVal num As Integer) As Boolean

Dim i, k As Integer

k = Sqr(num)

For i = 2 To k

If num Mod i = 0 Then

Exit For

End If

Next

If i k Then

Return True '是"素?cái)?shù)"

End If

Return False '是"非素?cái)?shù)"

End Function

網(wǎng)站名稱：vb.net判斷判斷素?cái)?shù) vba判斷素?cái)?shù)
標(biāo)題路徑：http://jinyejixie.com/article0/dohpioo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、響應(yīng)式網(wǎng)站、關(guān)鍵詞優(yōu)化、微信小程序、網(wǎng)站改版、云服務(wù)器

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)