VB语言中输出杨辉三角形的方法

赖润平

摘 要：对VB语言、杨辉三角形以及VB语言输出杨辉三角形作了简单分析，结合输出杨辉三角形的实例，探讨了利用VB语言中输出杨辉三角形的方法，希望能够为学生更好地学习VB程序设计提供一定的帮助。

关键词：VB语言；杨辉三角形；方法

高中生学习VB程序设计时，不仅需要掌握一定的基础知识，同时还应当掌握相关的专业知识。不过，由于我们高中生学习VB并非是专业编程，也不是进行软件开发，学习过程中应当结合实际案例掌握VB程序设计的步骤，充分发挥我们的能动作用，就能达到学习VB程序设计的效果。

一、VB语言与杨辉三角形

1.VB语言

VB语言是微软开发的一种编程语言，VB语言是目前应用最为广泛的一种语言。VB语言最为重要的特征就是不管是专家或者是初学者，能够确保非常方便地应用VB语言。VB语言能够通过简单的构建应用程序GUI系统，来实现对复杂应用程序的开发，程序开发人员无需编写过多的代码便能够完成相对简单的

程序。

2.杨辉三角形

将二项式（a+b）n展开以后，得到该二项式不同部分的系数值，在n的取值为1，2，3…n时，此时将得出的系数列在同一张表格之中，此表被称之为二项式系数表，而又由于该二项式系数表的形状类似于三角形，我国南宋时期数学家杨辉对这一三角形做了大量的研究，因此，我们将这一三角形叫做杨辉三角形，如图

所示。

二、输出杨辉三角形的思想

Dim A（） As Integer‘通用说明

Private Sub Command1_Click（）

yhs=InputBox（“输入需要输出杨辉三角形的层数”，“提示信息”，）‘用以确定输出杨辉三角形的层数

If yhs < 3 Or Not IsNumeric（yhs） Then ‘针对一些未达到要求的数据加以处理

MsgBox“请注意：数据输入时数字要超过3或是数字格式出现错误”，“系统信息”

Else‘就达到要求的杨辉三角形输出层数加以计算并完成

输出

ReDim A（1 To yhs， 1 To yhs）

A（1， 1） = 1： A（2， 1） = 1： A（2， 2） = 1

Print A（1， 1）

Print A（2， 1）， A（2， 2） ‘這一标点的作用是用来完成定点输出的

For i = 3 To yhs

A（i， 1） = 1： A（i， i） = 1： Print a（i， 1）， ‘输出杨辉三角形的第一列数据

For j = 2 To i- 1‘对杨辉三角形中中间列数据进行计算并完成输出

A（i， j） = A（i - 1， j - 1） +A（i - 1， j）

Print A（i， j），

Next j

Print A（i， i）‘输出杨辉三角形的最后一列数据

Next i

End If

End Sub

三、输出杨辉三角形的改进

要想进一步提升程序拥有的执行效率，可以采用下列改进

程序：

Dim A（） As Long

Dim N As Integer

N=Val（InputBox（“输入需要输出杨辉三角形的层数”， “提示信息”）

If N>0 Then

ReDim A（1 to N，1 to N） As Long

Me.Cls

For i=1 to N

For j=1 to i

If j=1 or j=I Then

A（i，j）=1

Else

A（i，j）=A（i-1，j）+A（i-1，j-1）

End If

Print A（i，j）

Next

Print

Next

Else

MsgBox ”需要再次输入输出杨辉三角形的有效行数：”

End if

在利用VB语言输出杨辉三角形时，要是只在窗体之中进行显示，则其和乘法表的实现过程非常相近，存在的差异仅仅是在循环控制变量过程中自第3行开始，并且，每行均是从第2列至第（i-1）列进行计算。

参考文献：

[1]冯洁，吴芳.探讨C语言中输出杨辉三角的教学方法[J]. 电脑知识与技术（学术交流），2007（13）：113，115.

[2]张跃龙.高中“VB程序设计语言”课程教学改革探索与实践[J].考试周刊，2017（61）：134.

编辑 谢尾合