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

‘這個是可以選擇范圍的查找

創(chuàng)新互聯(lián)是一家集網(wǎng)站設(shè)計、做網(wǎng)站、網(wǎng)站頁面設(shè)計、網(wǎng)站優(yōu)化SEO優(yōu)化為一體的專業(yè)網(wǎng)絡(luò)公司，已為成都等多地近百家企業(yè)提供網(wǎng)站建設(shè)服務(wù)。追求良好的瀏覽體驗,以探求精品塑造與理念升華,設(shè)計最適合用戶的網(wǎng)站頁面。 合作只是第一步，服務(wù)才是根本,我們始終堅持講誠信，負(fù)責(zé)任的原則，為您進行細(xì)心、貼心、認(rèn)真的服務(wù),與眾多客戶在蓬勃發(fā)展的市場環(huán)境中,互促共生。

Public?Class?Form1

'一個大于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()?'首先清空文本框，這里面將放置符合條件的素數(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?，則為素數(shù)

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

End?If

Next

End?If

End?Sub

End?Class

vb語言，輸入兩個數(shù)，輸出這兩個數(shù)中間所有的素數(shù)

同意樓上的見解，

我在VB6.0中測試沒有問題，能看到輸出，VB.NET中也沒有問題。

不過是否還有點得注意：

Print j 這句是把找到的素數(shù)以窗體的前景色(ForeColor)顯示在窗體上，你指的沒有輸出，是指在窗體上看不到內(nèi)容，是吧？是否你的窗體的前景色(ForeColor)與背景色(BackColor)相同或近似相同，造成視覺錯誤呢？

VB:求出100以內(nèi)所有素數(shù)的和，并將結(jié)果輸出到窗體上，并存入所給變量SUM中

Private Sub Command1_Click()

Dim i As Integer

Dim sum As Integer

For i = 1 To 100

If Prime(i) Then

sum = sum + i

End If

Next

Print "100以內(nèi)所有素數(shù)的和是" sum

End Sub

Private Function Prime(ByVal n As Integer) As Boolean

Dim i As Integer

If n 2 Then

Prime = False

Exit Function

End If

For i = 2 To Sqr(n)

If n Mod i = 0 Then

Prime = False

Exit Function

End If

Next

Prime = True

End Function