Private Sub Form_Click()
Cls
Print
For n = 1 To 8
Print Tab(n + 20);
For m = 1 To 10
Print Spc(1); "*";
Next m
Print
Next n
End Sub
平行四边形
最新推荐文章于 2021-02-13 08:01:47 发布
Private Sub Form_Click()
Cls
Print
For n = 1 To 8
Print Tab(n + 20);
For m = 1 To 10
Print Spc(1); "*";
Next m
Print
Next n
End Sub