Question

提示： （1）可以通过函数Spc(n)或Tab(n)来定位，或者利用函数Space(n)在输出的内容前加空格，来控制输出

用vb创建应用程序，单击窗体可显示由*组成的平行四边形图案

Answer 1

Private Sub Form_Click()

cls

    For i = 1 To 6

        Print Tab(i); "************"

    Next i

End Sub