- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省温州市十五校联盟2018-2019学年高二下学期信息技术期末考试试卷

“杨辉三角”问题，如图所示，其规律如下：其显著特征是除斜边上的1以外，其余数值均等于其肩部两数之和。编写VB程序，其功能如下：在文本框Text1中输入20以内的整数，点击“打印”按钮，在列表框list1中输出杨辉三角，程序界面如图所示，VB 程序代码如下。

实现上述功能的VB程序如下，请回答下列问题：

Private Sub Command1_Click()

Dim a(20) As Long

Dim i As Integer, j As Integer, s As String List1.Clear

n = Val(Text1.Text)

a(1) = 1

List1.AddItem Str(a(1)) For i = 2 To n

s = ""

For j = Step -1

a(j) = ①

s = s + Str(a(j))

Next j

② Next i

（1）、代码“Private Sub Command1_Click()”中的 Command1_Click()属于（单选，填字母： A .对象名/B .属性名/C .事件名/D .事件过程）。

（2）、请在划线处填入合适的代码。

① ②

（3）、若将加框处代码改为“1 To i”，则（选填：会/不会）影响程序结果。

举一反三

Key = Val(Text1.Text) \10 Text2.Text = ""

i = 1: j = 9: f = False

Do While i <= j And Not f m = (i + j)\ 2

If a(m) Mod 10 = Key Then search = m: f = True

ElseIf a(m) Mod 10 > Key Then i = m + 1

Else

j = m - 1 End If

Text2.Text = Text2.Text + Str(m) Loop

执行完该程序段后，Text2中显示的内容是（）

相关试卷