求教大佬,输出的为什么不是三角形啊
Dim i As Integer, j As Integer
For i = 0 To 8
Print Tab(20 - i);
For j = 1 To 2 * i + 1
If j = 1 Or j = 2 * i + 1 Or i = 8 Then
Print "*";
Else
Print "";
End If
Next j
Print
Next i
Dim i As Integer, j As Integer
For i = 0 To 8
Print Tab(20 - i);
For j = 1 To 2 * i + 1
If j = 1 Or j = 2 * i + 1 Or i = 8 Then
Print "*";
Else
Print "";
End If
Next j
Next i
这行双引号中间加个空格,改成:
Print " "
就行了.