请教一个小程序（等待！！！）

[tjl713]

就是用一个文本框实现这样一个功能：
每次输出一个字，比如“欢迎光临“每次出来一个，不停的循环。我用了4个时钟控件。程序如下：
private sub timer1_time()
text1.text="欢"
end sub
依此类推，可总是出来第一个和最后一个字？？？
我用label也试过，可以出来所有的字，但就是没有顺序，请帮我想想还有什么办法可以实现！谢谢，急！！！

[AustinLei]

Const strShow = "欢迎光临"
Dim iStep As Integer

Private Sub Timer1_Timer()
iStep = iStep + 1
If iStep > 4 Then iStep = 1
txtShow.Text = Mid$(strShow, iStep, 1)
End Sub

[vbanddelphi]

试试这个,看和你的要求是否一样!
在form中分别添加,timer,text控件,在timer中加入:
Private Sub Timer1_Timer()
Static i As Byte
Const textshow = "欢迎光临"
Timer1.Interval = 300
If i > 4 Then
Text1.Text = ""
i = 1
Else
i = i + 1
End If
Text1.Text = Left(textshow, i)
End Sub

[shisanjin]

将“欢迎光临”放入一个数组中，通过Label和Timer实现!