在VB 中倒三角形怎么编写程序

[cdcjk]

在VB 中倒三角形怎么编写程序

[东方之珠]

Option Explicit

Private Sub Form_Load()
      With Label1
        .Caption = "▼"
        .AutoSize = True
        .Font.Bold = True
        .Font.Size = 256
        .Refresh
      End With
      
End Sub

[cdcjk]

我的意思是用************号编的倒三角形

[舉杯邀明月]

参考这样的代码:

Sub Out()

    Dim i%, j%
    
    For i = 9 To 1 Step -2
        Debug.Print String((9 - i) \ 2, " ");
        For j = 1 To i
            Debug.Print "*";
        Next
        Debug.Print
    Next
    
End Sub

输出:
*********
*******
*****
***
*

[舉杯邀明月]

简单的？就这样吧：

Sub Out()

    Dim i%    
    For i = 9 To 1 Step -2
        Debug.Print String((9 - i) \ 2, " ") & String(i, "*");
    Next

End Sub

这样行了吧 ^_^

[qiu5208]

BS LZ

[cdcjk]

很感谢你!Chen8013 还有简单代码

[舉杯邀明月]

[Quote=引用 7 楼 cdcjk 的回复:]
Chen8013 你知道怎么把输出:放在中间吗
*********
*******
*****
***
*
[/Quote]

中间？
请问：你的“中间”的定义是什么？看来鄙人才疏学浅，这个问题无法给你解决。

[嗷嗷叫的老马]

晕一下.

[cdcjk]

Chen8013 你知道怎么把输出:放在中间吗
*********
*******
*****
***
*

[qiu5208]

窃取某斑猪的故事：
有一天我遇见了上帝，上帝说可以满足我一个愿望。
我说了一个愿望：把日本岛沉掉。
上帝皱了皱眉头说：这个难度太大，你换别的！
我又说：帮我把攀辉朋友的倒三角形程序编出来。
上帝擦了擦额头上的汗，说：日本在哪儿，你把地球仪拿过来。。。。

[用户 昵称]

借用 Chen8013 的代码

Sub Out()

    Dim i%    
    For i = 9 To 1 Step -2
        Debug.Print String(( 30 - i) \ 2, " ") & String(i, "*");
    Next

End Sub

[cdcjk]

Chen8013 你知道怎么把输出:放在中间吗
*********
*******
*****
***
*

[cdcjk]

Chen8013 你知道怎么把图形输出:放在窗体中间吗
*********
*******
*****
***
*

[cdcjk]

Chen8013 你知道怎么把图形输出:放在窗体中间吗
*********
*******
*****
***
*

[caprason]

地球太危险……偶还是回火星去吧

[xtvbl2008]

[Quote=引用 9 楼 qiu5208 的回复:]
窃取某斑猪的故事：
有一天我遇见了上帝，上帝说可以满足我一个愿望。
我说了一个愿望：把日本岛沉掉。
上帝皱了皱眉头说：这个难度太大，你换别的！
我又说：帮我把攀辉朋友的倒三角形程序编出来。
上帝擦了擦额头上的汗，说：日本在哪儿，你把地球仪拿过来。。。。
[/Quote]
哈哈

[lyjun_311]

Dim i%
For i = 9 To 1 Step -2
Print Space((30 - i) \ 2) & String(i, "*")
Next

这样不也可以吗?哈哈