正文
vb.net里loop的简单介绍
小程序：扫一扫查出行【扫一扫了解最新限行尾号】
复制小程序
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中如何设置进程的基本优先级
下面vb.net里loop的代码示例说明vb.net里loop了更改线程优先级vb.net里loop的结果。创建两个线程vb.net里loop，其中一个线程的优先级设置为 BelowNormal。两个线程在 while 循环中都增加一个变量vb.net里loop，并运行一段设定的时间。
Option Explicit
Option Strict
Imports System
Imports System.Threading
Public Class Test
MTAThread _
Shared Sub Main()
Dim priorityTest As New PriorityTest()
Dim threadOne As Thread = _
New Thread(AddressOf priorityTest.ThreadMethod)
threadOne.Name = "ThreadOne"
Dim threadTwo As Thread = _
New Thread(AddressOf priorityTest.ThreadMethod)
threadTwo.Name = "ThreadTwo"
threadTwo.Priority = ThreadPriority.BelowNormal
threadOne.Start()
threadTwo.Start()
' Allow counting for 10 seconds.
Thread.Sleep(10000)
priorityTest.LoopSwitch = False
End Sub
End Class
Public Class PriorityTest
Dim loopSwitchValue As Boolean
Sub New()
loopSwitchValue = True
End Sub
WriteOnly Property LoopSwitch As Boolean
Set
loopSwitchValue = Value
End Set
End Property
Sub ThreadMethod()
Dim threadCount As Long = 0
While loopSwitchValue
threadCount += 1
End While
Console.WriteLine("{0} with {1,11} priority " _
"has a count = {2,13}", Thread.CurrentThread.Name, _
Thread.CurrentThread.Priority.ToString(), _
threadCount.ToString("N0"))
End Sub
End 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中如何同时运行2个Do...Loop until...语句
真正同时运行两个Do Loop循环，只能靠多线程或者多进程来实现。若你正在用VB.Net里的Do Loop，那么可以很简单就能实现多线程了。 但如果你是在VB6里，只能用ActiveX.exe方式通过多个进程来实现这个同时Do Loop循环。
说起来其实并不复杂，但需要你会写VB6的Class类里的那点知识即可。
VB.NET语句中continue while的用法
VB.NET
2005,已经实现了continue语法，具体是这样操作：
如果
Continue
语句在
Do...Loop
循环中，请将该语句更改为
Continue
Do。
如果
Continue
语句在
For...Next
循环中，请将该语句更改为
Continue
For。
如果
Continue
语句在
While...End
While
循环中，请将该语句更改为
Continue
While。
否则，请移除
Continue
语句。
用法：
For
i
As
Integer
=
To
100
'
If
i
=
50
跳过
Console.Writeline
statement
If
i
=
50
Then
Continue
For
Console.WriteLine(i.ToString)
Next
'
Do
While
using
Continue
statement.
Dim
ii
As
Integer
=
1
Do
While
ii
100
ii
+=
1
'
If
ii
=
50
跳过
Console.Writeline
statement
If
ii
=
50
Then
Continue
Do
Console.WriteLine(ii.ToString)
Loop
'
While
using
Continue
statement.
Dim
iii
As
Integer
=
1
While
iii
100
iii
+=
1
'
If
iii
=
50
跳过
Console.Writeline
statement
If
iii
=
50
Then
Continue
While
Console.WriteLine(iii.ToString)
End
While
vb.net里loop的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net里loop的信息别忘了在本站进行查找喔。
