VB 语言输出三角形_金炎凤凰

http://blog.sina.com.cn/u/1240972417

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

VB 语言输出三角形

(2015-08-28 10:00:48)

标签：

icecept

visualbasic

蓝凤凰-魔灵

浴火凤凰-郭卫

三角形

分类： VB程序设计

Private Sub Form_Activate()
    Dim i As Integer, j As Integer
    For i = -5 To 5
        For j = 1 To 2 * i - 1
            Debug.Print "*";
        Next
        Debug.Print
    Next
End Sub

*
***
*****
*******
*********
------------------------------------------------------------------
Private Sub Form_Activate()
    Dim i As Integer, j As Integer
    For i = 5 To -5 Step -1
        For j = 1 To 2 * i - 1
            Debug.Print "*";
        Next
        Debug.Print
    Next
End Sub

*********
*******
*****
***
*
-------------------------------------------------------------------
Private Sub Form_Activate()
    Dim i As Integer, j As Integer
    For i = 1 To 9
        Debug.Print Tab(10 - i);
        For j = 1 To i
            Debug.Print "*";
        Next
        Print
    Next
End Sub
        *
       **
      ***
     ****
    *****
   ******
*******
********
*********
-------------------------------------------------------------------
Private Sub Form_Activate()
    Dim i As Integer, j As Integer
    For i = 9 To 1 Step -1
        Debug.Print Tab(10 - i);
        For j = 1 To i
            Debug.Print "*";
        Next
        Print
    Next
End Sub

*********
********
*******
   ******
    *****
     ****
      ***
       **
        *
-------------------------------------------------------------------
Dim i As Integer, j As Integer

Private Sub Form_Activate()
    For i = 1 To 5
        Star
    Next
    For i = 4 To 1 Step -1
        Star
    Next
End Sub

Sub Star()
    Debug.Print Tab(10 - i);
    For j = 1 To i
        Debug.Print "*";
    Next
    Print
End Sub

        *
       **
      ***
     ****
    *****
     ****
      ***
       **
        *
-------------------------------------------------------------------
Dim i As Integer, j As Integer

Private Sub Form_Activate()

    For i = -5 To 5
        Star
    Next
    For i = 4 To -5 Step -1
        Star
    Next
End Sub

Sub Star()
    For j = 1 To 2 * i - 1
        Debug.Print "*";
    Next
    Debug.Print
End Sub

*
***
*****
*******
*********
*******
*****
***
*
-------------------------------------------------------------------

Dim i As Integer, j As Integer

Private Sub Form_Activate()

    For i = -5 To 5
        Star
    Next
    For i = 4 To -5 Step -1
        Star
    Next
End Sub

Sub Star()
   Debug.Print Tab(i);
    For j = 1 To 2 * i - 1
        Debug.Print "*";
    Next
    Debug.Print
End Sub
*
***
*****
   *******
    *********
   *******
*****
***
*
-------------------------------------------------------------------

Private Sub Form_Activate()
    Dim i As Integer, j As Integer
    For i = 1 To 6
        Debug.Print Tab(7 - i);
        For j = 1 To 2 * i - 1
            Debug.Print "*";
        Next
        Debug.Print
    Next
End Sub

     *
    ***
   *****
*******
*********
***********
----------------------------------------------------------------------
Private Sub Form_Activate()
    Dim i As Integer, j As Integer
    For i = 6 To 1 Step -1
        Debug.Print Tab(7 - i);
        For j = 1 To 2 * i - 1
            Debug.Print "*";
        Next
        Debug.Print
    Next
End Sub
***********
*********
*******
   *****
    ***
     *
----------------------------------------------------------------------
Dim i As Integer, j As Integer

Private Sub Form_Activate()
    For i = 1 To 6
        STar
    Next
    For i = 5 To 1 Step -1
        STar
    Next
End Sub

Sub STar()
    Debug.Print Tab(7 - i);
    For j = 1 To 2 * i - 1
        Debug.Print "*";
    Next
    Debug.Print
End Sub

     *
    ***
   *****
*******
*********
***********
*********
*******
   *****
    ***
     *
----------------------------------------------------------------------

Option Explicit

Private Sub Command2_Click()
    Dim i As Integer, j As Integer
    For i = 0 To 25
        Debug.Print Tab(50 - i);
        For j = -i To i
            Debug.Print Chr(65 + i - Abs(j));
        Next j
        Debug.Print
    Next i
End Sub

                                                 A
                                                ABA
                                               ABCBA
                                              ABCDCBA
                                             ABCDEDCBA
                                            ABCDEFEDCBA
                                           ABCDEFGFEDCBA
                                          ABCDEFGHGFEDCBA
                                         ABCDEFGHIHGFEDCBA
                                        ABCDEFGHIJIHGFEDCBA
                                       ABCDEFGHIJKJIHGFEDCBA
                                      ABCDEFGHIJKLKJIHGFEDCBA
                                     ABCDEFGHIJKLMLKJIHGFEDCBA
                                    ABCDEFGHIJKLMNMLKJIHGFEDCBA
                                   ABCDEFGHIJKLMNONMLKJIHGFEDCBA
                                  ABCDEFGHIJKLMNOPONMLKJIHGFEDCBA
                                 ABCDEFGHIJKLMNOPQPONMLKJIHGFEDCBA
                                ABCDEFGHIJKLMNOPQRQPONMLKJIHGFEDCBA
                               ABCDEFGHIJKLMNOPQRSRQPONMLKJIHGFEDCBA
                              ABCDEFGHIJKLMNOPQRSTSRQPONMLKJIHGFEDCBA
                             ABCDEFGHIJKLMNOPQRSTUTSRQPONMLKJIHGFEDCBA
                            ABCDEFGHIJKLMNOPQRSTUVUTSRQPONMLKJIHGFEDCBA
                           ABCDEFGHIJKLMNOPQRSTUVWVUTSRQPONMLKJIHGFEDCBA
                          ABCDEFGHIJKLMNOPQRSTUVWXWVUTSRQPONMLKJIHGFEDCBA
                         ABCDEFGHIJKLMNOPQRSTUVWXYXWVUTSRQPONMLKJIHGFEDCBA
                        ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFEDCBA

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：有一数列前三项是0，0，1，求数列前20项

后一篇：浴火凤凰，是我永恒的信仰

新浪BLOG意见反馈留言板　欢迎批评指正

VB 语言 输出三角形

icecept

visualbasic

蓝凤凰-魔灵

浴火凤凰-郭卫

三角形

VB 语言输出三角形