要求是textbox里打出一堆星号
*
**
***
****
*****
******
*******
********
*********
**********
每次递增,用LOOP...

我写的是:
i = 0
textbox1.text = "*"
do while i < 10
i = i + 1
textbox1.text = textbox1.text + i +Chr(13) +Chr(10)
Loop

出错,应该是类型不匹配,但是我不知道怎么改~~~谁能帮个忙,谢谢了

Private Sub cmd_Click()
Dim i%
Dim j As String
j = "**********"
For i = 1 To 10
txtInput.Text = txtInput.Text + Mid(j, 1, i) + Chr(13) + Chr(10)
Next
End Sub

你试试看

Dim I As Integer
Text1.Text = vbNullString
For I = 1 To 10
Text1.Text = Text1.Text & String(I, "*") & vbCrLf
Next

果然高手
方法比我的简单多了