threadonework.vb

适合VB初学者看

Public Class ThreadOneWork
    Public Sub DoWork()
        While True
            Dim i As Integer
            Dim j As Integer
            For i = 0 To 9999
                For j = 0 To 4999
                    Dim y As Int64
                    y = i + j
                Next
            Next
            Console.WriteLine("第一个线程运行")
        End While
    End Sub
End Class