某班师生玩一个游戏，n（n 不超过 1000）个同学站成一圈，逆时针编号为 l - n，有两个老师 A 和 B，A 老师从 1 开始逆时针数 k 个同学，B 老师从 n 开始顺时针数 m 个同学（注意 A，B 老师可能数到同一个学生），被老师选中的 1 个或 2 个学生离开圈子，剩下的学生继续。
程序开始时在 Text1 中输入同学数 n，在 Text2 中输入 k 的值，在 Text3 中输入 m 的值，点击“开始” 按钮，在 label5 中显示依次出圈的学生编号。程序运行如图所示：

VB 程序如下，请将按要求答题：
Dim stu(1 To 1000) As Integer
Dim n As Integer
Private Sub Command1_Click()

Dim left, k, m As Integer

Dim stup1, stup2 As Integer

n = Val(Text1.Text)

k = Val(Text2.Text)

m = Val(Text3.Text)

    ①    
stup1 = n: stup2 = 1
For i = 1 To n
stu(i) = i Next i
Do While left > 0
stup1 = teachount(stup1, 1, k)
stup2 =
Label5.Caption = Label5.Caption & " " & Str(stup1)
left = left - 1
If    ②    Then
Label5.Caption = Label5.Caption & " " & Str(stup2)
left = left - 1
End If stu(stup1) = 0

stu(stup2) = 0

Loop

End Sub
'f=1 表示逆时针数 c 个，f=-1 表示顺时针数 c 个
Function teachount(ByVal p As Integer, ByVal f As Integer, ByVal c As Integer) As Integer
Do While c > 0
    ③    
Do While stu(p) = 0

p = (p + f + n - 1) Mod n + 1

Loop

c = c - 1

Loop teachount = p
End Function
（1）加框处的语句有错误，请改正：______________________________________________ 
（2）请将①处的语句补充完整：______________________________________________
（3）请将②处的语句补充完整：______________________________________________
（4）请将③处的语句补充完整：______________________________________________

某英文字符加密算法，对明文中的每个字符进行下列加密处理：
1）将该字符 ASCII 码转换成对应的 2 位 16 进制数；2）将产生的 16 进制数互换位置3）步骤 2 产生的 16 进制数即为明文加密后的密文字符根据上述加密算法，小明编写了一个解密程序，界面如图。

（1）如果明文为 24，那么密文是_____
（2）请在横线处填上合适的代码
Dim    s as string
Private Sub Command1_Click()
Dim d as string,d1 as string,d2 as string
Dim c as integer,c1 as integer,c2 as integer
Dim ans as string,i as integer
‘读取密文，显示在 text1，并存储在 s 中，代码略
Ans=””
For i = 1 To len(s) step 2
d1 = Mid(s, i, 1) : d2 = Mid(s, i+1, 1)
if d1>=”A” then______________   
else
c1=val(d1)

c2=val(d2) : c=____________

 d=chr(c) : ans=_________
Next i
Text2.Text = ans
End Sub

小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据（评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为60,99。如“275”表示2号作品得分75）。单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品（选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机柚取）。程序运行界面如图所示。

（1）“计分”按钮的对象名为_________。
（2）程序部分代码如下，请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String，d As String，i As Integer
Dim f1 As Single，f2 As Single，f3 As Single
s = Text1. Text
i = 1
Do While ___________ 
d = Mid(s,i,3)
If  Mid(d,1,1) = "1”  Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf  Mid(d, 1, 1) = “2”  Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分，并在Labd2中输出选取的参赛作品”的代码
End Sub
（3）运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮，则Label1中显示的结果__________(选填:会/不会）发生改变。

在数组变量A中，A（1）、A（2）、…、A(10依次放了1号、2号、…、10号同学的成绩，下面一段程序的功能是实现反次序在列表框list1中输出这10个同学成绩，即输出次序为： A（10）、A（9）、…、A(1)， 程序段如下：
Dim A(-20 To 20) As Integer
for i=① to ② step ③
List1.AddItem A( ④ )
Next i
上程序中的①,②,③,④依次填入有下面几个可能答案：
（1）、 10，  1，  -1， i
（2）、  1， 10，  1， 11-i
（3）、 -5，  4,    1,  5-i
（4）、0.2,   2,  0.2,  11-i/0.2
上面答案中，正确的有（  ）

A．1个

B．2个

C．3个

D．4个

有如下程序：

 Dim a(3,3) As Integer

 For m = 1 To 3

 For n = 1 To 3
a(m,n)=(m-1)*3+n
Next  n

 Next m

    For m = 2 To 3
For n = 1 To 2
Print a(n,m);
Next n
Next m
运行后输出结果是： (  ）

A．2 5 3 6

B．2 3 5 6

C．4 7 5 8

D．4 5 7 8