Question

VB怎么用循环语句和*打印等腰三角形**** * * * * * * 像这样！等腰的！

Answer 1

新建工程,添加command1控件,复制我的代码.vb6.0+xp调试通过.
代码如下
Private Sub Command1_Click()
Dim i As Integer
Print Space(10) & "*"
For i = 1 To 9
Print Space(10 - i) & "*" & Space(i * 2) & "*"

Next i
For i = 0 To 21
Print "*";
Next i
End Sub

Answer 2

Private Sub Command1_Click()
Print Tab(10); "*"
Print Tab(9); "***"
Print Tab(8); "*****"
Print Tab(7); "*******"
End Sub
'此方法最简单，最容易理解，当然也可以用循环语句来完成。

Answer 3

Private Sub Form_Activate()
Dim n As Integer, i As Integer, j As Integer, arr() As String, s As String
n = 10 '这里定义10行，自己修改
ReDim arr(1 To n)
For i = 1 To n
For j = 1 To i
s = s & "*" & Space(1)
Next
arr(i) = Space((n - i)) & s
s = ""
Next
Print Join(arr, vbNewLine)
End Sub

Answer 4

去网络找找看

Answer 5

你打成一排，看不出来是什么样