1、用For循环语句实现下列的图形 2、请用循环结构编写下列图形的程序 * ** *** **** *****

先回答你下面那个：
Dim i As Integer
Dim j As Integer
For i = 1 To 6
Print Space(6 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
后回答你上面那个：
Dim i As Integer
Dim j As Integer
For i = 1 To 6
Print Space(6 - i);
For j = 1 To 2 * i - 1
If i = 1 Or i = 6 Then
Print "*";
Else
If j = 1 Or j = 2 * i - 1 Then
Print "*";
Else
Print " ";
End If
End If
Next j
Print
Next i
好好学习!天天向上!
再问： 一个都不对啊。。。。。。写出来不对啊。。。。
再答： 那说明你实在需要好好学习！ 我的代码，复制过去就能用！ 都是经过实际测试的！