VB中,RichTextBox的最后面添加字符串

RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = "新文本"

这样可能可以更快速些：
Dim r As RichTextBox
Set r = RichTextBox1
r.SelStart = Len(r.Text)
r.SelText = "新文本"

需要的话，最后再用 SelStart 改下光标位置

字符连接是非常慢的,但RICH控件进行了优化, 它的字符操作远比VB的字符操作快
你既然是在最末尾那么教你一招

for i= 1 to n '数组一般是从 0 开始的 不知道你这里是不是对的哈
RichTextBox1.SelStart=len(RichTextBox1.Text) '移动光标到最后
RichTextBox1.SelText=CStr(a(i))'Str出来的结果前面会带一个空格非常不爽的
next
RichTextBox1.SelStart=len(RichTextBox1.Text)
RichTextBox1.SelText=vbCrlf

这样确实很慢,我以前做个密码生成器也是你这样做,但显示的很慢是不是.
因为数据每次输到文本框都要需要时间,这样一来就慢了,你可以用一个变量来代替它,到最后再输到文本框就快了.
Sub output()
Dim i As Integer
dim step as string
For i = 1 To n
step = step & Str(a(i))
Next
step = step & vbCrLf
RichTextBox1.Text = step
End Sub

Stt=rtf.text
Stt=stt & str(a(i))
Rtf.text=stt
变量叠加比控件快

不太懂额额