VB编程:编写程序,打印如下所示的“数字金字塔”

2016-07-09 16:20:59  分类: VB程序设计教程第4版答案刘炳文  参与:

编写程序,打印如下所示的“数字金字塔”

               1
             1 2 1
           1 2 3 2 1
         1 2 3 4 3 2 1
             ………
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2

以下是此题的【VB源代码】
Private Sub Form_Click()
    Dim a(1 To 5) As Integer
    For j = 1 To 5
        a(j) = j
    Next j
    For i = 1 To 5
        Print Tab(30 - i * 3);
        For j = 1 To 2 * i - 1
            If j > i Then
                Print a(2 * i - j);
            Else
                Print a(j);
            End If
        Next j
    Next i
End Sub


运行此VB源码后结果情况如下图所示:

 
新世纪计算机基础教育丛书 丛书主编:谭浩强
Visual Basic 程序设计教程 题解与上机指导(第四版) 刘炳文 编著

来源:visual basic程序设计教程第四版答案(刘炳文)

本文链接:http://www.wb98.com/vb1/post/vb_7.5.html

本站文章搜索:

<< 上一篇下一篇 >>

搜索

Tags列表

扫我手机登录

赞助商链接