VB中如何同時運行2個Do...Loop until...語句

真正同時運行兩個Do Loop循環，只能靠多線程或者多進程來實現。若你正在用VB.Net里的Do Loop，那么可以很簡單就能實現多線程了。 但如果你是在VB6里，只能用ActiveX.exe方式通過多個進程來實現這個同時Do Loop循環。

為拉薩等地區用戶提供了全套網頁設計制作服務，及拉薩網站建設行業解決方案。主營業務為成都做網站、網站設計、外貿營銷網站建設、拉薩網站設計，以傳統方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

說起來其實并不復雜，但需要你會寫VB6的Class類里的那點知識即可。

vb.net利用doloop until 計算從1開始的素數之和直到和不大于989為止

Module?Module1

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

'判斷一個數是不是素數

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

If?num?=?1?Then?Return?False?'素數的定義是大于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.net Do ... Loop Until循環和Do Until ... Loop循環

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim sum As Integer = 0

Dim i As Integer = 0

Do

i = i + 1

sum = sum + i

Loop Until sum 6000

MsgBox(i)

Debug.Print(sum)

End Sub

網站欄目：vb.net里loop的簡單介紹
文章網址：http://www.yijiale78.com/article10/ddochdo.html

成都網站建設公司_創新互聯，為您提供企業網站制作、面包屑導航、網站維護、小程序開發、網站設計、網頁設計公司

廣告

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