请问,程序执行的速度能加速吗?
如:
For i=1 to 50000
Richtxtbox1.txt="A" & I
next i
以上循环需要近十分钟才能结束,
问题2,以其未结束时,要如何终止循环?

exit for

谢谢,我怎么忘了这么简单终止!

For i=1 to 50000
Richtxtbox1.txt="A" & I
next i
以上循环需要近十分钟才能结束???  不会要十分钟吧

Richtxtbox1.txt="A" & I 可能是这里赋值有问题,实际是这样写的 Richtxtbox1.txt=Richtxtbox1.txt & "A" & I & Vbcrlf

dim iLen as long
ilen= len(richTextBox1.Text)

for i = 0 to 50000
    ilen= ilen + len("A" & i & vbCrlf)
    richTextBox1.selStart= iLen
    richTextBox.SelText="A" & i & vbCrlf
    'doevents
next

'dim iLen as long
'ilen= len(richTextBox1.Text)

for i = 0 to 50000
    'ilen= ilen + len("A" & i & vbCrlf)
    'richTextBox1.selStart= iLen
    richTextBox.SelText="A" & i & vbCrlf
    'doevents
next

For i=1 to 50000
Richtxtbox1.txt="A" & I
next i
以上循环需要近十分钟才能结束???  不会要十分钟吧

对控件的属性访问是比较慢的。如果这里要快些运行，那么只能

dim s as string
for i=1 to 50000
    s=s & "A" & I & vbcrlf
next i
Richtxtbox1.text=s

对变量的字符串操作还是比较快的。