版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
先看以下代码：
Sub sample12()
For i As Integer = 0 To 5
Dim sample12_Thread As New Thread(AddressOf sample12_doALoop1)
sample12_Thread.Start(i)
Next
Thread.Sleep(1000)
Console.ReadKey()
End Sub
Sub sample12_doALoop1(ByVal number As Integer)
Dim counter As Integer = CType(number, Integer)
For i As Integer = 1 To 100
Console.Write(" " & counter)
Next
End Sub
得到的结果可能如下，关键的地方我用红框标记出来了：
可以看到上面的输出比较混乱，这是由于线程是由系统控制，我们也不知道在哪个位置，系统就将线程1停了启动了线程2，接着又将线程2停了，切换运行线程4……。本来想完整地输出100个0、100个1……（什么？你还想按照0至5的顺序输出？我这里只谈如何完整地输出100个0、100个1……不谈顺序），这段代码实现不了的，也许偶尔会正确。
解决上面的问题，就需要使用 SyncLock 语句。
MSDN：SyncLock 语句可确保多个线程不在同一时间执行语句块。 SyncLock 防止各个线程进入该语句块，直到没有其他线程执行它为止。SyncLock 的最常见作用是保护数据不被多个线程同时更新。 如果操作数据的语句必须在没有中断的情况下完成，请将它们放入 SyncLock 块。使用方法如下：
SyncLock lockobject
[ block ] ‘独占锁时要执行的语句块
End SyncLock
需要注意的是，lockobject应该满足以下条件：
1、值不能是Nothing
2、不应使用 Me 关键字为实例数据提供锁定对象
3、应该是引用类型，不要使用Integer这样的值类型
4、必须定义为线程间可以共享的变量，下面的例子将定义为模块级变量
根据以上介绍，修改后的代码如下：
定义一个模块级变量：
Private lockObj As Object
修改后的主程序：
Sub sample12()
lockObj = New Object
For i As Integer = 0 To 5
Dim sample12_Thread As New Thread(AddressOf sample12_doALoop2)
sample12_Thread.Start(i)
Next
Thread.Sleep(1000)
Console.ReadKey()
End Sub
Sub sample12_doALoop2(ByVal number As Integer)
Dim counter As Integer = CType(number, Integer)
SyncLock lockObj
For i As Integer = 1 To 100
Console.Write(" " & counter)
Next
End SyncLock
End Sub
我们将子线程的循环块代码锁定，确保它完成。运行结果如下：
还强调的是，虽然看着是按照0-5的顺序调用线程，但是输出顺序确实不能控制。除非是采用别的代码实现，留给各位朋友自己来写。
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看vb.net教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
