用vb输出如下图形
第一个：
4444444
33333
222
1
就是一个倒金字塔型的
第二个 菱形的
*
***
*****
*******
*****
***
*
麻烦各位高手了，谢谢啊！
vb图形输出
答案:2 悬赏:0 手机版
解决时间 2021-01-29 04:29
- 提问者网友：你独家记忆
- 2021-01-29 01:00
最佳答案
- 五星知识达人网友：舍身薄凉客
- 2021-01-29 01:58
第一题
Private Sub Command1_Click()
n = 4
For i = n To 1 Step -1
Print Space(n - i) & String(2 * i - 1, "" & i)
Next i
End Sub
Private Sub Command1_Click()
n = 4
For i = n To 1 Step -1
Print Space(n - i) & String(2 * i - 1, "" & i)
Next i
End Sub
全部回答
- 1楼网友：愁杀梦里人
- 2021-01-29 02:24
private sub form_click() '窗体点击事件中写代码
dim i as integer
me.cls '清屏
for i = 1 to 5 '输出5行图形
print string(8 + i, " ") & string(10, "*") 输出前8个空格+每行加一个空格 + 10个*号
next i
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯