Question

vb 输出以下的平行四边形





Answer 1

Private Sub Command1_Click()

Print "请输入行数：";

n = CInt(InputBox("N="))

Print n

For i = 1 To n

Print Tab(2 * (n + 1 - i));

If i = 1 Or i = n Then

For j = 1 To n

Print "* ";

Next j

Else

Print "* "; Space(2 * n - 4); "*";

End If

Print

Next i

End Sub

追问

能不能用write语句写。谢谢了

Answer 2

Private Sub Command1_Click()
Print
For i = 1 To 4

Print Tab(20);
Print Spc(1 + i);
For j = 1 To 6
Print "* ";
Next j
Print Spc(2);
For j = 1 To 6
Print "* ";
Next j
Print
Next i
Print
End Sub