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

实现上述功能的VB程序如下，请回答下列问题：
(1)代码“Private Sub Command1_Click()”中的Command1_Click()属于_________(单选，填字母：

A．对象名/

B．属性名/

C．事件名/

D．事件过程)。

(2)请在划线处填入合适的代码。
(3)若将加框处代码改为“1 To i”，则__________(选填：会/不会)影响程序结果。
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＝i To 1 Step－1
a(j)＝_____
s＝s＋Str(a(j))
Next j
_____
Next i
End Sub

有VB程序段如下：
s＝"2019.06 Visual Basic6.0"：n＝0
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝"0" And ch<＝"9"Then
m＝Asc(ch)－Asc("0")＋1
a(m)＝a(m)＋1
End If
Next i
For i＝1 To 10
If a(i)>1Then n＝n＋i
Next i
数组a各元素的初始值都为0，执行该程序段后，则变量n的值为(    )

A．2

B．4

C．8

D．10

有如下VB程序段：
a(1)＝"231"：a(2)＝"34"：a(3)＝"23"：a(4)＝"234"：a(5)＝"123"
For i＝1To4

For j＝1To5－i

If a(j)>a(j＋1)Then t＝a(j)：a(j)＝a(j＋1)：a(j＋1)＝t

Next j

Next i
执行该程序段后，数组元素a(1)到a(5)的数据依次为(    )

A．“23”，”231”，”234”，”34”，”123”	B．“23”，”123”，”231”，”234”，”34”
C．“23”，”34”，”123”，”231”，”234”	D．“123”，”23”，”231”，”234”，”34”

有如下VB程序段：
For i＝1To5
a(i)＝Int(Rnd*20)＋1
Next i
For i＝2 To 5
If i Mod 2＝1 And a(i－1)<a(i)Then
t＝a(i)：a(i)＝a(i－1)：a(i－1)＝t
Else
a(i)＝a(i)－1
End If
Next i
执行该程序段后，a(1)~a(5)各元素不可能的值是(    )

A．7  3  0  19  0	B．18  16  1  9  2
C．20  17  8  19  15	D．19  0  7  8  4

有流程图如图所示。

执行该算法，输出变量i的值为（   ）。

A．3

B．4

C．5

D．6

小秦用VB编写十进制数自动转换成二进制数的程序，运行界面如下图，运行代码如下：

Private Sub Command1_Click()
Dim a, i, n As Integer,s as string
n = Val(Text1.Text)
Do While n > 0
①
②
③
Loop
Text2.Text = s
End Sub
缺少部分的代码应填（    ）。

A．①a = n Mod 2    ②n = n \ 2 ③ s = Str(a) + s

B．①n = n \ 2 ②a = n Mod 2  ③ s = Str(a) + s

C．①a = n Mod 2    ②n = n \ 2 ③ s = s +Str(a)

D．①n = n \ 2 ②a = n Mod 2  ③  s = s +Str(a)

下列程序段运行后，数组元素a(3)的值是
a(1)＝55:a(2)=44:a(3)＝11
a(4)＝22:a(5)＝33
For i=1 To 2
For j＝1 To 4－i
If a(j)>a(j＋1)Then
t=a(j)
a(j)＝a(j＋1)
a(j＋1)＝t
End If
Next j
Next i

A．44

B．33

C．22

D．11

反转字符串，如输入字符串为“123ABCD"，则输出字符串为“DCBA321"。部分程序如下所示，划线处的正确语句是
s＝Text1.Text：n=Len(s)
’按s中字符顺序从左到右依次存入数组a中，代码略
i＝1
Do While i<n
t＝a(i)
For j=i＋1 To n
    ①    
Next j
a(j－1)=t
    ②    
Loop
For i=1 To Len(s)
Text2.Text=Tcxt2.Text＋a(i)
Next i

A．①a(j＋1)＝a(j) ②n＝n－1	B．①a(j)＝a(j＋1) ②n＝n＋1
C．①a(j－1)＝a(j) ②n＝n－1	D．①a(j－1)＝a(j) ②n＝n＋1

某算法的部分流程图如图所示。执行这部分流程，依次输入10，8，6，4，2，则输出s的值是

A．6

B．7

C．8

D．9

有如下的 Visual Basic 程序段：
s = 0 : x = 1
Do While x <= 5 s = s + x

x = x + 2

Loop
该程序段运行后，语句 s = s + x 执行的次数是

A．1

B．2

C．3

D．5