Private Sub Form_Load()Timer1.Interval = 500Timer1.Enabled = TrueLabel1.Caption = "程序设计很有趣"End SubPrivate Sub Timer1_Timer()Static n As Integer, s As Strings = Label1.CaptionIf n < Len(s) Then n = n + 1 Else n = 1Text1.Text = Left(s, n)Text1.SelStart = Len(Text1.Text)Text1.SelLength = 0End Sub...
窗体上添加1个Label,1个Timer控件,1个TextBox文本框:Private Sub Form_Click()Timer1.Enabled = TrueTimer1_TimerEnd SubPrivate Sub Form_DblClick()Unload MeEnd SubPrivate Sub Form_Load()Timer1.Interv...