有如下程序段：

数组元素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”文件夹中的工程文件“hktest.vbp”，使其具有下列功能：在文本框Text1中输入会考证号，在文本框Text2中输入会考模拟测试成绩；点击“等第判定”按钮，程序根据以下的范围判定该成绩的等第，并给出评价语句；点击“退出”按钮，关闭程序。

成绩	0-59	60-79	80-94	95-100
等第	E	C	B	A

程序运行界面如下图所示：

完成下列操作：
（1）对照效果图，修改窗体相关属性，使标题栏显示的文字为“会考等第判定”。修改窗体BorderStyle属性值，使之与效果图相同。
（2）打开代码窗体，查看注释①和②所在行的语句，修改其中错误的一行，使程序在运行过程中，输入小于0或大于100的数值，能在标签Label3上显示“成绩输入无效，请重新输入！”的提示。
（3）运行程序，发现在文本框Text1输入会考证号与在文本框Text2输入测试成绩并单击命令按钮Command1后，在标签Label3上未能显示判定结果。请在注释③所在的行添加正确的事件代码，实现上述功能。程序调试正确后，删除所有的注释语句，并生成“hktest.exe”，保存在“VB”文件夹中。 保存窗体文件和工程文件。

某对分查找算法的VB程序段如下: 
Dim a(l to 6)As Integer
i=1: j=6: n=0
key= Val(Textl. Text)
Do While i<=j
n=n+1
m=(i+j)\2
If key=a(m) Then Exit Do ＇Exit do为退出do循环
If key<a(m) Then
j=m-1
Else
i=m+1
LOOP
数组元素a(1)到a(6)的值依次为“1921，1927，1949，1998，2008，2019”。在文本框Text1中输入“1998”后运行该程序，则以上程序段运行结束后，下列说法正确的是（   ）

A．变量i的值为3

B．变量j的值为5

C．变量m的值为3

D．变量n的值为3

有如下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

礼品分配问题：某班得到一件精美礼品，由于只有一件礼品，大家决定用下面方法来分配该礼品：n个同学围成一圈，按顺序从1到n进行编号。从第1个人开始报数，报到m的人退出，下一个人继续从1开始报数，报到m的人出圈┈┈，如此依次进行，直到留下的最后一个人得到该礼品。程序运行界面如图所示，单击“开始”按钮，将输出退出圈子的同学编号以及最后获得奖品的编号。

实现上述功能的VB程序如下，请回答下列问题。
(1)当班级总人数n＝15，m＝5的时候，获得礼品的同学编号是__________(填写数字)。
(2)在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, m As Integer
Dim num As Integer, t As Integer
Dim a(1 To 100) As Boolean
n = Val(Text1.Text)
m =Val(Text2.Text)
For i = 1 To n

a(i) = True

Next i
_____
Do While t > 1
For i = 1 To n
If a(i) = True Then _____
If num = m Then
_____
t = t -1
num = 0
Text3.Text = Text3.Text +Str(i)
End If
Next i
Loop
For i = 1 To n
If a(i)= TrueThen Label2.Caption = "获得礼品同学编号:" + Str(i)
Next i
End Sub