新手求助，vb用for循环输出一个由"*"符号组成的菱形图案求代码
答案:1 悬赏:50 手机版
解决时间 2021-02-06 06:23
- 提问者网友：趣果有间
- 2021-02-05 15:12
新手求助，vb用for循环输出一个由"*"符号组成的菱形图案求代码
最佳答案
- 五星知识达人网友：玩世
- 2021-02-05 16:52
Private Sub Command1_Click()
n = CInt(InputBox("N="))
Print "N="; n
For i = 1 To n
If i > 1 Then Print Tab(n + 1 - i); "*";
Print Tab(n - 1 + i); "*"
Next i
For i = n - 1 To 1 Step -1
If i > 1 Then Print Tab(n + 1 - i); "*";
Print Tab(n - 1 + i); "*"
Next i
End Sub
n = CInt(InputBox("N="))
Print "N="; n
For i = 1 To n
If i > 1 Then Print Tab(n + 1 - i); "*";
Print Tab(n - 1 + i); "*"
Next i
For i = n - 1 To 1 Step -1
If i > 1 Then Print Tab(n + 1 - i); "*";
Print Tab(n - 1 + i); "*"
Next i
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯