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

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

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