关于vb 中的for语句使用

在编写一个钻石图形时，源代码如下：

Private Sub Form_click()
Dim a(9), i
a(1) = "*"
a(0) = "**"
For i = 1 To 5
a(i + 1) = a(i) + a(0)
Print Spc(5 - i); a(i)
Next
For i = 6 To 9
a(i + 1) = a(i) - a(0)
Print Spc(i - 5); a(i)
Next
End Sub

但是当运行到第二个for时，总会出错，不知该做如何修改，

a(i)-a(0)
字符串不能做减法

所以换个办法吧，比如：

Private Sub Form_click()
Const n = 5 '修改这个数控制菱形大小

For i = 1 To n '输出上半部分
Print Space(n - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i

For i = n - 1 To 1 Step -1 ' 输出下半部分
Print Space(n - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息