Question

VB循环语句问题

亲，你说的我试了，还是不好使
我想要的是这种效果。题干还是tan,spc,string

Answer 1

代码如下：

Private Sub Command1_Click()
Print
For i = 1 To 10 Step 2
Print Spc(2);
Print Spc(10 - i);
Print String(i, "★");
Print Spc(10 - i);
Print Spc(10 - i);
Print String(i, "★");
Print
Next i
End Sub

运行如下：

Answer 2

Private Sub Command1_Click()
    Dim i As Integer, s As Integer
    s = 10
    For i = 1 To s Step 2
        Print Tab(3);
        Print Space(s - i);
        Print String(i, "★");
        Print Space((s - i) * 2);
        Print String(i, "★");
        Print
    Next i
End Sub
Private Sub Command2_Click()
    Form1.Cls
End Sub

不好意思 刚才没看好题

追问

亲，能打出来，但是又错误呢

追答

没有具体提示什么错误吗？

追问

没有啊，这就是所有错误提示了

追答

那您把space 改为spc 试了吗？
两个函数功能基本相同的。

追问

确实是SPC

Answer 3

Private Sub Command1_Click()
For i = 1 To 5
Print Spc(2 + (5 - i) * 2); String(i * 2 - 1, "★"); Spc(2 + (5 - i) * 4); String(i * 2 - 1, "★")
Next i
End Sub