如

form中有RichTextBox (RTxtResult)及command button, RichTextBox 是多行及有scrollbar

command button中的代码如下:

dim i,IntEnter as integer

dim minlen,maxlen as integer

minlen=1

maxlen=10

IntEnter=chr(13)+chr(10)

for i=minlen to maxlen

RTxtResult.text=i & IntEnter

DoEvents

next i

可RichTextBox中最后结果是

10

而我要的结果是：

1

2

3

4

5

6

7

8

9

10

我不想用这个,如果有多个循环时，这会很慢很慢

for i=minlen to maxlen

RTxtResult.text=RTxtResult.text & i & IntEnter

DoEvents

next i

请教各位高手，如何实现？

Private Sub Command1_Click()
Dim i As Integer
Dim minlen, maxlen As Integer
Dim IntEnter As String
minlen = 1
maxlen = 10
IntEnter = Chr(13) + Chr(10)
RTxtResult.Text = Empty
For i = minlen To maxlen
   RTxtResult.Text = (RTxtResult.Text + CStr(i)) & IntEnter
   DoEvents
Next i
End Sub

IntEnter 不是整型， RTxtResult.Text = (RTxtResult.Text + CStr(i)) & IntEnter。 错在以上两句。

多谢jionjion的纠正，我在VBA中是可以的 但我的意思是我不想要这种赋值语句 RTxtResult.Text = (RTxtResult.Text + CStr(i)) & IntEnter ,如果有多个循环时，会很慢很慢的.有没有更好的方法，在RichTextbox中一行一行增加数据，并显示出来呀，我看到别人的程序就实现了这个功能，我不知他是的是API，还是其它的。 比如像listbox.additem(cstr(i)),它可以不断的增加并显示。但我的程序非要用RichTextBox不可，没有办法呀