Private Sub Command1_Click()
dim x as string
x = RichTextBox1.Text
For I = 1 To 1000
x = x & vbCrLf & "处理!"
Next I
RichTextBox1 = x
End Sub
dim x as string
x = RichTextBox1.Text
For I = 1 To 1000
x = x & vbCrLf & "处理!"
Next I
RichTextBox1 = x
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货