在VB控制台中每秒重复相同的操作

Question

我想执行这段代码，不幸的是它只执行一次，然后停止。如何执行此代码以每秒显示?并且在这样做100次之后，要停止，即在固定的100秒之后。

Do
Dim index As Integer = 0
index += 1
Console.WriteLine(RandomString(102, 102))
Console.ReadLine()
Do
Threading.Thread.Sleep(1000)
Loop Until index = 100
Loop

Answer 1

试试这个:

Dim index As Integer = 0
Do Until index = 100
index += 1
Console.WriteLine(RandomString(102, 102))
Threading.Thread.Sleep(1000)
Loop
Console.ReadLine()