在窗体上放一个textbox控件，设置MultiLine属性为true，放一个timer控件，放一个command控件，复制下面的代码就可以了。 Dim zihu As String Dim i As Long Private Sub Command1_Click() Text1 =  zihu = 奥林匹克圣火、火炬传递路线和火炬手是构成一届奥运会火炬接力的最基本元素，而火炬手在这其中最富有感染力的一部分。

   & Chr(13) & Chr(10) & 北京奥运会火炬手选拔计划是2007年06月23日上午在北京发布的。火炬手定为21880名，北京将选拔630名。火炬手将由各选拔主体以组织系统推荐、选拔或社会公开报名选拔的方式面向全球选拔。

  同时，在中国境内还要选拔5000名护跑手。国际奥委会历来对奥运会火炬手的纯洁性要求甚严，历来反对火炬传递和火炬手被过度商业……  i = 0 Timer1。Enabled = True End Sub Private Sub Form_Load() Timer1。

  Enabled = False Timer1。Interval = 200 Text1 =  End Sub Private Sub Timer1_Timer() i = i + 1 Text1 = Text1 & Mid(zihu, i, 1) If i > Len(zihu) Then Timer1。

  Enabled = False End Sub。