Question

vb怎么输出菱形图案

Answer 1

1、启动VB6.0，新建一个标准exe工程。

2、在窗体上绘制一个命令按钮，名称为Command1。

3、双击命令按钮进入代码窗口。

4、编写命令按钮单击事件（代码详情可参考图中的绿色字体部分的注释）。

5、按F5运行测试。完成效果图。

Answer 2

Private Sub Command1_Click()

Dim n As Integer

n = Val(InputBox("n="))

Print "N="; n

For i = 1 To n

Print Spc(n + 1 - i); String(2 * i - 1, "*")

Next i

For i = n - 1 To 1 Step -1

Print Spc(n + 1 - i); String(2 * i - 1, "*")

Next i

End Sub

Answer 3

利用：print 和 tab（）函数就可以了。还可以利用for循环。