用VB双重循环输出下列图形* *** ***** ******* ***** *** *
答案:2 悬赏:10 手机版
解决时间 2021-04-03 06:29
- 提问者网友：鼻尖触碰
- 2021-04-02 18:54
用VB双重循环输出下列图形* *** ***** ******* ***** *** *
最佳答案
- 五星知识达人网友：纵马山川剑自提
- 2021-04-02 19:04
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = -3 To 3
Print Tab(Abs(i) + 1);
For j = 1 To 7 - 2 * Abs(i)
Print "*";
Next j
Print
Next i
End Sub
Dim i As Integer
Dim j As Integer
For i = -3 To 3
Print Tab(Abs(i) + 1);
For j = 1 To 7 - 2 * Abs(i)
Print "*";
Next j
Next i
End Sub
全部回答
- 1楼网友：患得患失的劫
- 2021-04-02 20:12
是不是棱形的？ Private Sub form_Click()
Dim I As Integer, J As Integer
For I = 1 To 4
For J = 1 To 4 - I
Print " ";
Next
For J = 1 To 2 * I - 1
Print "*";
Next
Print
NextFor I = 3 To 1 Step -1
For J = 1 To 4 - I
Print " ";
Next
For J = 1 To 2 * I - 1
Print "*";
Next
Print
NextEnd Sub
Dim I As Integer, J As Integer
For I = 1 To 4
For J = 1 To 4 - I
Print " ";
Next
For J = 1 To 2 * I - 1
Print "*";
Next
NextFor I = 3 To 1 Step -1
For J = 1 To 4 - I
Print " ";
Next
For J = 1 To 2 * I - 1
Print "*";
Next
NextEnd Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯