VB中如何同時(shí)運(yùn)行2個(gè)Do...Loop until...語(yǔ)句

真正同時(shí)運(yùn)行兩個(gè)Do Loop循環(huán)，只能靠多線(xiàn)程或者多進(jìn)程來(lái)實(shí)現(xiàn)。若你正在用VB.Net里的Do Loop，那么可以很簡(jiǎn)單就能實(shí)現(xiàn)多線(xiàn)程了。 但如果你是在VB6里，只能用ActiveX.exe方式通過(guò)多個(gè)進(jìn)程來(lái)實(shí)現(xiàn)這個(gè)同時(shí)Do Loop循環(huán)。

為拉薩等地區(qū)用戶(hù)提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及拉薩網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、外貿(mào)營(yíng)銷(xiāo)網(wǎng)站建設(shè)、拉薩網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專(zhuān)業(yè)、用心的態(tài)度為用戶(hù)提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶(hù)的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

說(shuō)起來(lái)其實(shí)并不復(fù)雜，但需要你會(huì)寫(xiě)VB6的Class類(lèi)里的那點(diǎn)知識(shí)即可。

vb.net利用doloop until 計(jì)算從1開(kāi)始的素?cái)?shù)之和直到和不大于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

'判斷一個(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.net Do ... Loop Until循環(huán)和Do Until ... Loop循環(huán)

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

網(wǎng)站欄目：vb.net里loop的簡(jiǎn)單介紹
文章網(wǎng)址：http://chinadenli.net/article10/ddochdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)網(wǎng)站制作、面包屑導(dǎo)航、網(wǎng)站維護(hù)、小程序開(kāi)發(fā)、網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)公司

廣告

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