高考问答感恩旅行者安装视频:vb代码问题
来源：百度文库 编辑：高考问答 时间：2024/04/29 15:44:26
是菱形排列的。就是第一行一个，第二行俩，第三行3，第四行俩，第五行一个，每行星号间都有空格，明白了吧？
小弟初学者，高人指点
小弟初学者，高人指点
Dim N As Integer, i As Long
N = 5
For i = 1 To 2 * N - 1
Print String$(IIf(i <= 3, i, 2 * N - i), "*") & " "
Next
'设置Text1.MultiLine = True
Private Sub Form_Load()
Dim i, j, n As Integer
Text1.Text = ""
n = 7
For i = 1 To n
Text1.Text = Text1.Text + Space(n - i)
For j = 1 To i
Text1.Text = Text1.Text + "*" & Chr$(32) '
Next j
Text1.Text = Text1.Text + Chr$(10) & Chr$(13) & Chr$(10)
Next i
For i = n - 1 To 1 Step -1
Text1.Text = Text1.Text + Space(n - i)
For j = 1 To i
Text1.Text = Text1.Text + "*" & Chr$(32) '
Next j
Text1.Text = Text1.Text + Chr$(10) & Chr$(13) & Chr$(10)
Next i
End Sub