Question

vb：如何在文本框中用星号打印等腰三角形？？？

Private Sub Text1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 10
Text1.Text = Space(12 - i) & Text1.Text
For j = 1 To i

Text1.Text = Text1.Text & "*"

Next j
Text1.Text = Text1.Text & Chr(13) + Chr(10) 'vbCrLf
Next i
End Sub
在三角形左边加空格只有第一行成功，无语。。。

Answer 1

Dim i As Integer
Dim j As Integer
For i = 1 To 10
Text1.Text = Text1.Text & Space(12 - i) '关键在于这一句
For j = 1 To i

Text1.Text = Text1.Text & "*"

Next j
Text1.Text = Text1.Text & Chr(13) + Chr(10) 'vbCrLf

Next i

Answer 2

Private Sub Text1_Click()
Dim i As Integer
Dim j As Integer
Text1.Text = ""
For i = 1 To 10
Text1.Text = Text1.Text & Space(10 - i)
For j = 1 To (i - 1) * 2 + 1

Text1.Text = Text1.Text & "*"

Next j
Text1.Text = Text1.Text & Chr(13) + Chr(10) 'vbCrLf
Next i

End Sub

Answer 3

初始化是把文本框清空 text1.text=“”
你把文本框的Mutiline属性 改成true