撷英篇
VB 语言中输出杨辉三角形的方法
赖润平
（山东省青岛第一中学高三（9）班）
高中生学习VB 程序设计时，不仅需要掌握一定的基础知
识，同时还应当掌握相关的专业知识。不过，由于我们高中生学习VB 并非是专业编程，也不是进行软件开发，学习过程中应当结合实际案例掌握VB 程序设计的步骤，充分发挥我们的能动作用，就能达到学习VB 程序设计的效果。
一、VB 语言与杨辉三角形1.VB 语言
VB 语言是微软开发的一种编程语言，VB 语言是目前应用最为广泛的一种语言。VB 语言最为重要的特征就是不管是专家或者是初学者，能够确保非常方便地应用VB 语言。VB 语言能够通过简单的构建应用程序GUI 系统，来实现对复杂应用程序的开发，程序开发人员无需编写过多的代码便能够完成相对简单的程序。
2.杨辉三角形
将二项式（a+b ）n
展开以后，得到该二项式不同部分的系数值，在n 的取值为1，2，3…n 时，此时将得出的系数列在同一张表
格之中，此表被称之为二项式系数表，而又由于该二项式系数表
编程语言vb是什么的形状类似于三角形，我国南宋时期数学家杨辉对这一三角形做了大量的研究，因此，我们将这一三角形叫做杨辉三角形，如图所示。
2002111111111
1
11
1111111111111
1
1
11233464510105615152067
72121
35
35
88
2828
56
56
70
9936
36
84
8412612610
45
120
210352210120451011
55
165330
462
462
330
165
55
11
12
131466
78912202863644957929247924952206612
1378286715715128712871716171610013003343230032002100136491
14杨辉三角形
二、输出杨辉三角形的思想
Dim A （）As Integer ‘通用说明Private Sub Command1_Click （）yhs=InputBox （“输入需要输出杨辉三角形的层数”，“提示信息”，）‘用以确定输出杨辉三角形的层数
If yhs <3Or Not IsNumeric （yhs ）Then ‘针对一些未达到要求的数据加以处理
MsgBox “请注意：数据输入时数字要超过3或是数字格式出现错误”，
“系统信息”Else ‘就达到要求的杨辉三角形输出层数加以计算并完成输出
ReDim A （1To yhs ，1To yhs ）A （1，1）=1:A （2，1）=1:A （2，2）=1Print A （1，1）Print A （2，1），A （2，2）‘这一标点的作用是用来完成定点输出的
For i =3To yhs
A （i ，1）=1:A （i ，i ）=1:Print a （i ，1），‘输出杨辉三角形的第一列数据
For j =2To 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 >0Then ReDim A （1to N ，1to N ）As Long Me.Cls
For i=1to N For j=1to i
If j=1or j=I Then A （i ，j ）=1Else 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.
•编辑
谢尾合
摘
要：对VB 语言、杨辉三角形以及VB 语言输出杨辉三角形作了简单分析，结合输出杨辉三角形的实例，探讨了利用VB 语言
中输出杨辉三角形的方法，希望能够为学生更好地学习VB 程序设计提供一定的帮助。
关键词：VB 语言；杨辉三角形；方法
355--
. All Rights Reserved.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。