杨辉三角是二项式系数在三角形中的一种几何排列,以10行的杨辉三角为例,如图所示。
某同学设计了以下程序用来输出杨辉三角。在文本框Text1里输入需要输出的杨辉三角的行数n,单击“打印”按钮Command1后,在列表框List1中输出n行的杨辉三角。
(1)
要使程序运行时自动清空文本框(Text1)中的内容,则应在事件处理过程(填字:A .Form_Load/B .Text1_Click/C .Command1_Click)中编写相应代码。
(2)
实现上述功能的VB程序如下,请在划线处填入适当的代码。
Private Sub Command1 _ Click(
)
Dim n As String, i
As Integer, j As Integer
Dim a(0 To 30) As
Long
Dim s As String
List1. Clear
①
a(1)=1
List. AddItem “ 1”
For 1=2 To n
a(1)=1
s = “”
For j=i To 1
Step-1
②
s=Str(a(3))
+”” + s
Next j
③
Next i
End sub
① ② ③
答案: 【1】A
【1】n=val(Text1.Text)【2】a(j) =a(j) +a(j-1)【3】List1.Addltem s