VB語言中輸出楊輝三角形的方法

賴潤平

摘 要：對VB語言、楊輝三角形以及VB語言輸出楊輝三角形作了簡單分析，結合輸出楊輝三角形的實例，探討了利用VB語言中輸出楊輝三角形的方法，希望能夠為學生更好地學習VB程序設計提供一定的幫助。

關鍵詞：VB語言；楊輝三角形；方法

高中生學習VB程序設計時，不僅需要掌握一定的基礎知識，同時還應當掌握相關的專業(yè)知識。不過，由于我們高中生學習VB并非是專業(yè)編程，也不是進行軟件開發(fā)，學習過程中應當結合實際案例掌握VB程序設計的步驟，充分發(fā)揮我們的能動作用，就能達到學習VB程序設計的效果。

一、VB語言與楊輝三角形

1.VB語言

VB語言是微軟開發(fā)的一種編程語言，VB語言是目前應用最為廣泛的一種語言。VB語言最為重要的特征就是不管是專家或者是初學者，能夠確保非常方便地應用VB語言。VB語言能夠通過簡單的構建應用程序GUI系統(tǒng)，來實現(xiàn)對復雜應用程序的開發(fā)，程序開發(fā)人員無需編寫過多的代碼便能夠完成相對簡單的

程序。

2.楊輝三角形

將二項式（a+b）n展開以后，得到該二項式不同部分的系數(shù)值，在n的取值為1，2，3…n時，此時將得出的系數(shù)列在同一張表格之中，此表被稱之為二項式系數(shù)表，而又由于該二項式系數(shù)表的形狀類似于三角形，我國南宋時期數(shù)學家楊輝對這一三角形做了大量的研究，因此，我們將這一三角形叫做楊輝三角形，如圖

所示。

二、輸出楊輝三角形的思想

Dim A（） As Integer‘通用說明

Private Sub Command1_Click（）

yhs=InputBox（“輸入需要輸出楊輝三角形的層數(shù)”，“提示信息”，）‘用以確定輸出楊輝三角形的層數(shù)

If yhs < 3 Or Not IsNumeric（yhs） Then ‘針對一些未達到要求的數(shù)據(jù)加以處理

MsgBox“請注意：數(shù)據(jù)輸入時數(shù)字要超過3或是數(shù)字格式出現(xiàn)錯誤”，“系統(tǒng)信息”

Else‘就達到要求的楊輝三角形輸出層數(shù)加以計算并完成

輸出

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）， ‘輸出楊輝三角形的第一列數(shù)據(jù)

For j = 2 To i- 1‘對楊輝三角形中中間列數(shù)據(jù)進行計算并完成輸出

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

Print A（i， j），

Next j

Print A（i， i）‘輸出楊輝三角形的最后一列數(shù)據(jù)

Next i

End If

End Sub

三、輸出楊輝三角形的改進

要想進一步提升程序擁有的執(zhí)行效率，可以采用下列改進

程序：

Dim A（） As Long

Dim N As Integer

N=Val（InputBox（“輸入需要輸出楊輝三角形的層數(shù)”， “提示信息”）

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 ”需要再次輸入輸出楊輝三角形的有效行數(shù)：”

End if

在利用VB語言輸出楊輝三角形時，要是只在窗體之中進行顯示，則其和乘法表的實現(xiàn)過程非常相近，存在的差異僅僅是在循環(huán)控制變量過程中自第3行開始，并且，每行均是從第2列至第（i-1）列進行計算。

參考文獻：

[1]馮潔，吳芳.探討C語言中輸出楊輝三角的教學方法[J]. 電腦知識與技術（學術交流），2007（13）：113，115.

[2]張躍龍.高中“VB程序設計語言”課程教學改革探索與實踐[J].考試周刊，2017（61）：134.

編輯 謝尾合