VB打菱形
答案:2 悬赏:10 手机版
解决时间 2021-03-02 10:20
- 提问者网友：雾里闻花香
- 2021-03-01 12:11
VB打菱形
最佳答案
- 五星知识达人网友：妄饮晩冬酒
- 2021-03-01 13:38
Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = -2 To 2
Print Tab(Abs(i) + 1);
For j = 1 To 5 - 2 * Abs(i)
Print "*";
Next j
Print
Next i
End Sub
已运行通过了，如图：
Dim i As Integer
Dim j As Integer
For i = -2 To 2
Print Tab(Abs(i) + 1);
For j = 1 To 5 - 2 * Abs(i)
Print "*";
Next j
Next i
End Sub
已运行通过了，如图：
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯