奇怪的RichTextBox控件显示文本时的内存溢出问题

Question

Option ExplicitPrivate Sub Command1_Click()
Dim abteFile(19) As Byte
Dim I As LongFor I = 1 To 19
    abteFile(I) = 0
Next
    abteFile(0) = 1
    RichTextBox1.text = StrConv(abteFile, vbUnicode)
End Sub
Private Sub Command2_Click()
Dim abteFile(19) As Byte
Dim I As LongFor I = 1 To 19
    abteFile(I) = 0
Next
    abteFile(0) = 0
    RichTextBox1.text = StrConv(abteFile, vbUnicode)
End Sub按Command1时正常，按Command2时报警内存溢出

Answer 1

问题是出在
abteFile(0) = 0可能RichTextBox控件的text没有设计好怎么处理Chr(0)吧，呵呵

Answer 2

这难道是RichTextBox控件的bug吗

Answer 3

将command2的，abteFile(0) = 0
改为abteFile(0) = 1 就好了。 你弄这些字符干嘛啊？