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
平行四边形
最新推荐文章于 2024-03-12 21:43:39 发布
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