中科新闻网磷酸二氢钙价格走势:VB题目,急!!!
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 15:05:09
高手帮帮忙,怎么写
打印如下图形, n由键盘输入(n是奇数）
*********
*******
*****
***
* n=9
***
*****
*******
*********
Private Sub Form_click()
Dim i As Integer, j As Integer, n As Integer
For i = 1 To n
Print Spc(i);
For j = 1 To n: Print "*";
For i = n + 1 To 2 * n - 1
Print Spc(2 * n - 1 - i);
For j = n To 2 * n - 1: Print "*";: Next j
Print
Next i
End Sub
错在哪呢?
应该怎么写啊，我不会，帮帮忙
打印如下图形, n由键盘输入(n是奇数）
*********
*******
*****
***
* n=9
***
*****
*******
*********
Private Sub Form_click()
Dim i As Integer, j As Integer, n As Integer
For i = 1 To n
Print Spc(i);
For j = 1 To n: Print "*";
For i = n + 1 To 2 * n - 1
Print Spc(2 * n - 1 - i);
For j = n To 2 * n - 1: Print "*";: Next j
Next i
End Sub
错在哪呢?
应该怎么写啊，我不会，帮帮忙
根本没有换行
－》For i = 1 To n
Print Spc(i);
For j = 1 To n: Print "*";
－》For i = n + 1 To 2 * n - 1
两个地方都用i作循环可只有一个Next i；
－》For j = 1 To n: Print "*";
For i = n + 1 To 2 * n - 1
Print Spc(2 * n - 1 - i);
－》For j = n To 2 * n - 1: Print "*";: Next j
两个地方都用i作循环可只有一个Next j；
逻辑上也不对