Question

求答案VB使用print方法,输出如下图形

Answer 1

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

Private Sub Command2_Click()
    Cls
End Sub

 掉坑里了，刚提交人家已经采纳了。

Answer 2

Private Sub Form_Click()
For i = 1 To 5
Print Tab(12 - 2 * i);
For j = 1 To 10 + 2 * i - 1
If j >= 2 * i And j <= 10 Then
Print "☆";
Else
Print "★";
End If
Next j
Next i
End Sub

Answer 3

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