Question

请问在VB.net中怎么把循环语句在textbox中边执行边显示？

我搞的只会循环完后才在textbox中显示。
代码如下：
Dim i As Integer
For i = 1 To 1000
Randomize()
TextBox1.Text = TextBox1.Text & Int((10 * Rnd()) + 1) & vbCrLf
Next

Answer 1

这是因为程序运行过程中VB没有进行显示更新，也没有把控制权交回给Windows。
在TextBox1.Text = TextBox1.Text & Int((10 * Rnd()) + 1) & vbCrLf 语句之后增加一个语句：Me.Refresh() 强制刷新窗体显示，这样就OK了。代码如下：

Dim i As Integer
For i = 1 To 1000
Randomize()
TextBox1.Text = TextBox1.Text & Int((10 * Rnd()) + 1) & vbCrLf
Me.Refresh()
Next

Answer 2

Dim i As Integer
Randomize()
For i = 1 To 1000
  TextBox1.Text = TextBox1.Text & Int((10 * Rnd()) + 1) & vbCrLf
  TextBox1.Refresh()
Next