vb.net利用doloop until 計(jì)算從1開始的素?cái)?shù)之和直到和不大于989為止

Module?Module1

公司主營業(yè)務(wù)：網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出織金免費(fèi)做網(wǎng)站回饋大家。

Sub?Main()

Dim?sum?As?Integer?=?0

Dim?Bound?As?Integer?=?989

Dim?num?As?Integer?=?0

Dim?cprime?As?Integer?=?0

Do

num?+=?1

If?IsPrame(num)?Then

sum?+=?num

cprime?=?num

End?If

Loop?Until?sum??Bound

Console.WriteLine(sum?-?cprime)

Console.ReadKey()

End?Sub

'判斷一個(gè)數(shù)是不是素?cái)?shù)

Public?Function?IsPrame(ByVal?num?As?Integer)?As?Boolean

If?num?=?1?Then?Return?False?'素?cái)?shù)的定義是大于1

For?i?=?2?To?CType(Int(Math.Sqrt(num)),?Integer)

If?num?Mod?i?=?0?Then?Return?False

Next

Return?True

End?Function

End?Module

VB:求出100以內(nèi)所有素?cá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)所有素?cá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

vb判斷素?cái)?shù)需要添加哪些控件

vb判斷素?cái)?shù)需要添加的控件有button和listbox。

1、打開vb工程，在上面建一個(gè)窗體，然后創(chuàng)建button和listbox

2、在findPrime上寫入如下代碼：

Private Sub CommandButton1_Click()

Dim flag As Boolean

flag = True

ListBox1.AddItem (1) '默認(rèn)1和2都是素?cái)?shù)

ListBox1.AddItem (2)

For i = 1 To 1000

For J = 2 To i - 1

If (i Mod J = 0) Then

flag = True

Exit For

Else

flag = False

End If

Next

If flag = False Then

ListBox1.AddItem (i)

End If

Next i

End Sub

3、運(yùn)行結(jié)果，列出了1-1000內(nèi)的所有素?cái)?shù)。

顯示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.net素?cái)?shù) vb求素?cái)?shù)的函數(shù)
標(biāo)題路徑：http://vcdvsql.cn/article4/hehgie.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、網(wǎng)站改版、靜態(tài)網(wǎng)站、網(wǎng)站導(dǎo)航、電子商務(wù)、移動(dòng)網(wǎng)站建設(shè)

廣告

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