有如下VB程序段：

若该程序段执行后，在文本框Text1中输入的字符串长度不超过10，文本框Text2中输入的值在0到8范围内（输入输出都不包括双引号本身），下列说法不正确的是（ ）

A．若在文本框Text1中输入“ZGBG”，Text2中输入“0”，则Text3中显示“ZG，GB，BG”

B．若在文本框Text1中输入“CCAA”，Text2中输入“1”，则程序运行结束时变量c的值为2

C．将数组a的定义语句改为“Dim a(1 To 9) As String”,程序依然能够正确运行

D．若a(1)到a(4)的值为“AB”,“AC” ,“BC” ,“AC”，则调用函数check(4)的结果为False

设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。

Private Sub Command1_Click()
Dim ch As String, s As String
Dim i As Integer, j As Integer
ch = Text1.Text
For i =" 1" To   （1） 
j =" Asc(Mid(ch," i, 1))
If j > 96 And j < 123 Then
s =" s" + Chr(j - 32)
Else
s =" s" + Chr(j)
End If
Next
    （2）    
End Sub

有如下程序段：

数组元素a(1)到a(10)的值依次为“66，34，12，59，21，26，18，45，20，16”，经过该程序段“加工”后，数组元素a(1)到a(10)的值依次为（   ）

A．66，12，16，34，18，59，21，26，20，45

B．12，16，18，20，21，26，34，45，59，66

C．66，59，45，34，12，26，21，20，18，16

D．12，16，18，66，34，20，59，21，26，45

某查找算法的VB程序段如下：
k= Val(Text1.Text)
i=1:j=6:Label1.Caption="":f=False
Do While i<=j And Not f
m=(i+j)\2
If a(m)=k Then f= True
If a(m)>a(i) Then

If a(i)<=k And k<a(m)Then j=m-1 Else i=i+1

Else

If a(m)<k And k<=a(j)Then i=i+1 Else j=j-1

End If
Label1 Caption=Label1 Caption+ Str(a(m))
Loop
数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输人的值为35，执行该程序段，标签 Label1中显示的值是（   ）

A．72  35	B．24  35
C．72  24  35	D．72  24  24  35

纪念品分组问题。某教师节晚会的纪念品分组规则如下：按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格（不超过w），以逗号分隔，在文本框Text2中输人限定值w，单击“分组”按钮，在标签 Label2上输出最少的分组数。程序运行界面如图所示。

（1）要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在 Form Load事件过程中添加语句   （单选，填字母：

A．Form1="纪念品分组"/

B．Form1.Name="纪念品分组"/

C．Form1. Caption="纪念品分组"/

D．Fom1.Text="纪念品分组"）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。
Private Sub Command1 Click()

Dim a(l To 1000), n As Integer, w As Integer,cnt As Integer

Dim i As Integer, j As Integer, t As Integer

Dim s As String, ch As String

Dim p As Integer, q As Integer

S= Textl. Text: w =Val(text2. Text): n=0

For i=1 To Len(s)

ch=Mid(s, i, 1)

If ch="."Then

n=n+1:a(n)=t: t=0

Else

t=_________①___________

 End If

Next i
For i=n To 2 Step-1

For j=1 To '②

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
cnt= 0
p=1: q=n
Do While p<q

cnt=cnt+1

If ________③_________ Then

p=p+1:q=q-1

Else

p=p+1

End If

Loop
If p=q Then cnt=cnt+1
Label2 Caption- Str(cnt)
End sub
（3）若在文本框Text1中输入“50，30，100，70，80，40，50，20”，文本框Text2中输人“110”，单击“分组”按钮，标签Labe2中显示的内容是____________。