加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔: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

0

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

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

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有