我想做一个程序：一个文本框，里面依次出现1 2 3 4 5.....

如题所述

举报该文章

相关建议 2008-07-21

Dim i As Integer

Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub

Private Sub Form_Load()
i = 1
Text1 = i
Timer1.Enabled = False
Timer1.Interval = 300
Command1.Caption = "开始"
End Sub

Private Sub Timer1_Timer()
i = i + 1
Text1 = i
End Sub

三个控件：按钮、文本框，计时器

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/vfpvq4ms.html

其他看法

第1个回答 2008-07-21

for i=1 to 100
text1.seltext=space(1) & i
next i

第2个回答 2008-07-21

Dim i As Integer
Private Sub Timer1_Timer()
i = i + 1
Text1.Text = Text1.Text & i & " "
End Sub