当前位置:首页 » VB程序题 » 正文

VB程序题:输入整数n,显示出具有n行的杨辉三角形。图E.5 显示 n=8 的效果。 VB源码 Visual Basic程序设计教程(第3版) 龚沛曾

VB程序题:输入整数n,显示出具有n行的杨辉三角形。图E.5 显示 n=8 的效果。 VB源码 龚沛曾
 
提示:
1.定义一个二维数组。
2.对下三角各元素进行设置。
3.利用TABA函数确定每列的宽度,使得列对齐。

解题,窗体画一个图片框,一个文本框,一个标签控件,标签的Caption属性为:设置行数。源代码如下:
Option Base 1
Dim A() As Integer
Private Sub Form_Click()
    n = Val(Text1.Text)
    ReDim A(1 To n, 1 To n)
    Picture1.Cls
    For I = 1 To n
        A(I, 1) = 1
        A(I, I) = 1
    Next I
    For I = 3 To n
        For J = 2 To I - 1
            A(I, J) = A(I - 1, J) + A(I - 1, J - 1)
        Next J, I
        For I = 1 To n
            'Print Tab(30 - 2 * I);
            For J = 1 To I
                Picture1.Print Space(4 - Len(Trim(Str(A(I, J))))); Trim(Str(A(I, J)));
            Next J
            Picture1.Print
        Next I
End Sub


运行程序,在文本框输入8,再点窗体,效果图如下:


Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://wb86.com/post/84.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号