时间控制在文本框里自动每隔3秒输入"ABC我始终-123"

时间控制在文本框里自动每隔3秒输入"A"隔3秒"B"隔3秒"C"隔3秒"我"隔3秒"始"隔3秒"终"隔3秒"-"隔3秒"1"隔3秒"2".......
请问给位大虾代码该怎么写啊 --------------------编程问答-------------------- 用TIMER定时
然后TXET.TEXT里需要的文本内容...... --------------------编程问答-------------------- 对。但问题是那是一次显示，并不是我需要的一字一字的显示啊
--------------------编程问答-------------------- 还有假定我设定1分钟。1分钟后我的文本框里显示“ABC我始终-123“。
而不是 b覆盖a， c覆盖b， -覆盖c，1覆盖-，2覆盖1，3覆盖2，最后在文本框里显示3 --------------------编程问答-------------------- 可以用多个TIMER控件，TIMER1输入A，然后TIMER1控件停止使用，启用TIMER2，以此类推

或者在TIMER1控件中使用IF判断，定一个N，N为0时输入A，然后N+1，然后递增 --------------------编程问答-------------------- --------------------编程问答--------------------

引用 5 楼的回复:

Private Const mywords As String = "ABCÎÒÊ¼ÖÕ-123"

Private Sub Command1_Click()
Timer1.Interval = 3000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim n As Integer

n = Len……

+1 --------------------编程问答-------------------- Private Const mywords As String = "请输入句子：天行健君子以自强不息。"

Private Sub Command1_Click()
  Timer1.Interval = 1000
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
Text1 = Left(mywords, n)
End Sub
--------------------编程问答-------------------- Private Const mywords As String = "天行健，君子以自强不息。" & vbCrLf & vbCrLf & "地势坤，君子以厚德载物。"
'Text1.MultiLine = True

Private Sub Command1_Click()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static n As Integer
    n = n + 1
    Text1 = Left(mywords, n)
End Sub --------------------编程问答-------------------- 多谢各位大虾，小弟受教了。5楼的代码我试过了，基本符合。不足字母ABC是一次输出的。有字节限制需要修改。一起学习吧。7楼的代码简单，学习了。以后多多赐教。8楼与7楼思路相同，但 & vbCrLf & vbCrLf &这句？小弟刚学VB望指教。 --------------------编程问答-------------------- 哦，不好意思，刚刚发现7,8楼是一人。补充这句& vbCrLf & vbCrLf &是？ --------------------编程问答-------------------- 哦，不好意思，刚刚发现7,8楼是一人。补充这句& vbCrLf & vbCrLf &是？

换行。

补充：VB ,  基础类