Question

VB中如何输入绘制以下图形

* *
* *
*
* *
* *
* *
* *
*
* *
* *
用VB输出如图，用For语句

Answer 1

'两个种方式：

Private Sub Command1_Click()
    Print "*     *"
    Print " *   *"
    Print "  * *"
    Print "   *"
    Print "  * *"
    Print " *   *"
End Sub
Private Sub Command2_Click()
    Dim i As Integer
    Const L = 4 '这个参数可以改变图形大小
    For i = 0 To L
        Print Space(i) & "*" & Space(L + 1 - i) & Space(L - i) & "*"
    Next
    Print Space(i) & "*"
    For i = L To 1 Step -1
        Print Space(i) & "*" & Space(L + 1 - i) & Space(L - i) & "*"
    Next
End Sub

Answer 2

For S=1 to 2 step 2
Print Space(x) "*"
Next P

X为空格数 控制间距