十二道苦味: 代码真多啊，还是py快

Never_Satisfied: 有回车更顺眼 [code=java] Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As New Threading.Thread(AddressOf Count_One) i.Start() End Sub Sub Count_One() Dim Tq As New Queue(Of String) Dim kk() As String Dim beginme As Date = Now For i As Integer = 0 To 10000 Tq.Enqueue(i.ToString) Next ReDim kk(Tq.Count) For k As Integer = 0 To Tq.Count - 1 kk(k) = Tq.Dequeue Next Dim endme As Date = Now Debug.Print("one Time:" & (endme - beginme).ToString) End Sub Sub Count_Two() Dim kk() As String ReDim kk(0) Dim beginme As Date = Now For i As Integer = 0 To 10000 ReDim Preserve kk(i) kk(i) = i.ToString Next Dim endme As Date = Now Debug.Print("two Time:" & (endme - beginme).ToString) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i As New Threading.Thread(AddressOf Count_Two) i.Start() End Sub End Class [/code]

greatbody 回复 qq_29439617: 不了解啊

greatbody 回复 xiahuaxuanlan1113: 没测试过

GavinXujiacan: 可以的 这文章写的很稳！