【vba】编写程序输出下列图案

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/17 23:34:40

【vba】编写程序输出下列图案
*
**
***
****
****
***
**
*

应该是这样的~上面格式错了

Private Sub Command1_Click()
For i = 1 To 15 Step 2
If i < 9 Then
Print Space((7 - i)); String(i, "*")
Else
Print Space(i - 9); String(16 - i, "*")
End If
Next
End Sub
或者：
Private Sub Command1_Click()
For i = 1 To 8
If i < 5 Then
Print Space((5 - i) * 2 - 1); String(i * 2 - 1, "*")
Else
Print Space((i - 4) * 2 - 1); String((9 - i) * 2 - 1, "*")
End If
Next
End Sub
再问： vba不能用print
再答：在excel单元格上显示 Sub a() For i = 1 To 15 Step 2 If i < 9 Then Cells((i + 1) / 2, 1) = Space((7 - i)) & String(i, "*") Else Cells((i + 1) / 2, 1) = Space(i - 9) & String(16 - i, "*") End If Next End Sub

【vba】编写程序输出下列图案编写C语言程序,输出下列雪花图案用c语言编写一个程序,输出下列雪花图案! ** ** * ** * * *如何编写程序输出此图案? 编程输出图形编写程序输出如下图案：** ** ** ** ** ** ** ** ** ** 用循环语句编写程序,输出如下图案：* * * * * * * * * * * * * * * * * * * * * 用for语句编写程序输出如下图案. 用C语言编写一个程序输出菱形图案编写程序输出下列图形ABBBCCCCC DDDDDDD 编写程序输出下列N行图形用循环语句编写一程序,要求输出下列图形编写程序,用双循环结构输出下列三角形:1222333334444444