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://scyanting.com/article/ddochdo.html