将以下程序段补充完整。
问题：往一个足够大的盒子里放小球，第一次放1个，第二次放2个，第三次放3个……，即每次放的小球数比上一次多1个。问放到第几次盒子里的小球才能多于300个？输出答案。n 表示放球的次数，sum表示小球的总数。
Dim n as integer , sum as integer 
n=0  
sum=0  
Do While sum<=300
n =____   ①  ______
sum =____  ②____   
Loop
Print “放到第” & ___   ③___  & “次盒子里的小球才能多于300个”

若变量a=2，b=1，则逻辑表达式：
not(a> -b) or (a+b="3)" and (a<b)的值为_______。

A．F

B．T

C．3

D．-3

编码工作常被运用于密文或压缩传输。有一种最简单的编码方式，把一些有规律的单词编成数字。编码方法如下：
字母表中共有26个字母{a，b，…，z}，把符合“长度不超过6”的所有字符组合升序排列，一个单词的编码就对应着它排序后的位置。例如：a→1    b→2    z→26    aa→27    ab→28    az → 52  ba → 53  bb →54…

小何为此编写了VB程序，将该编码理解为26进制数值，求该编码对应的数值。程序运行，从文本框Text1输入要查询的单词，单击按钮Command1，如果输入的单词符合编码条件，则在Label3上显示对应的编码值否则在Label3中显示“不符合编码条件”。

实现上述功能的VB程序和程序运行界面如下所示，请补充完善代码。

Function c(n As Long, r As Long) As Long 
Dim i As Long, cc As Long
cc = 1
For i = 1 To r
cc = cc * n
Next i
①
End Function
Private Sub Command1_Click()
Dim s As String, ch As String
Dim bm As Long, qz As Long
Dim xh As Integer
s = Text1.Text
bm = 0
flag = True
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If  ②    Then     
flag = False
Exit For
End If
xh = Asc(ch) - Asc("a")+1
  ③   
bm = bm + xh * qz
Next i
If flag Then
Text2.Text = s + " 的编码值为：" + ④
Else
Text2.Text = "输入内容不符合编码规则"
End If
End Sub

“杨辉三角”问题，如图所示，其规律如下：其显著特征是除斜边上的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

Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "TaizhouShusheng"
c =" Mid(a," Len (a) \ 2 + 1, 8)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )

A．“Shusheng ”

B．“Taizhou”

C．Taizhou

D．Shusheng