Question

用vb编程设计如图所示的钻石图案，很急！交作业！求正确代码，且能尽快在线答疑的！

用for循环语句和tab函数。
以下是老师的代码，但当时很匆忙，是错的，不过就是这个格式的：
for j=1 to 7 step 2
print tab(12-j+1)
for k= to j
print "*"
next
print
next
for i=5 to 1 step -2
print tab(12-j+1)
for k=1 to i
print"*"
next

其实我感觉我对for循环语句是懂得，但是编写程序完全找不到思路。而且老师写的代码我也完全看不懂啊。
for i=5 to 1 step -2
print tab(12-j+1)
for k=1 to i
print"*"是什么意思啊。要怎样将变量与*联系在一起并能打印出来呢？而且for k=1 to i为什么没有步长，还可以这样吗？麻烦各位上传代码的时候能够解释一下，谢谢！

Answer 1

你的代码修改下好像只能打印一竖条的*号吧，print是按行打印的。
Private Sub Command1_Click()
n = ""
For j = 1 To 4
n = n & "*"
Print Tab(12 - j); n
n = n & "*"
Next
n = Replace(n, "**", "", , 1)
For j = 1 To 4
n = Replace(n, "*", "", , 1)
Print Tab(8 + j); n
n = Replace(n, "*", "", , 1)
Next
End Sub
如果不能用这个函数，应该会对你有启发
不认识这个函数自行百度

追问

Private Sub form1_click()
Dim i As Integer, j As Integer
For i = 1 To 7 Step 2
Print Space(12 - i + j);
j = j + 1
For k = 1 To i
Print "*";
Next
Print
Next
For i = 5 To 1 Step -2
Print Space(10 - i + j);
j = j - 1
For k = 1 To i
Print "*";
Next
Print
Next
End Sub
这个代码本身没有问题，但是原来有一个command按钮，我把它删除了之后就改成form1了，为什么就运行不了了？

追答

Private Sub Form_Click()'窗体点击事件，相当于command点击事件
你也可以创建一个按钮，把代码复制进去