请问怎么用VB打出来啊~求大神啊！！！
答案:1 悬赏:80 手机版
解决时间 2021-02-28 20:46
- 提问者网友：人生佛魔见
- 2021-02-28 12:47
请问怎么用VB打出来啊~求大神啊！！！
最佳答案
- 五星知识达人网友：上分大魔王
- 2021-02-28 14:20
Private Sub Command1_Click()
Dim i As Integer, n As Integer
n = Val(InputBox("", "", 5))
n = n - 1
For i = -n To n
Print Spc(3 + Abs(i)); String(2 * (n - Abs(i)) + 1, "*")
Next
End Sub
Dim i As Integer, n As Integer
n = Val(InputBox("", "", 5))
n = n - 1
For i = -n To n
Print Spc(3 + Abs(i)); String(2 * (n - Abs(i)) + 1, "*")
Next
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯