数组nam（）、sex（）、math（）、su（）分别存放学生的姓名、性别、数学和总分成绩，现要求编写一个程序使得数据按照男生“总分”的降序和女生“总分”的升序排列，其中男生在前女生在后，程序界面如下图所示：

实现该功能的VB程序如下，但加框处代码有错，请改正。

Dim nam(100) As String '存放学生姓名

Dim sex(100) As String '存放学生性别

Dim math(100) As Long '存放学生数学成绩

Dim su(100) As Long '存放学生总分成绩

Dim k As Integer 'k变量用来存学生人数

Private Sub Form_Load()

‘将数据库中的数据分别存储在相应的变量中并在列表框中显示出来

‘代码略

End Sub

Private Sub Command1_Click()

Dim mmax As Integer, gmax As Integer, flagm As Boolean, flagg As Boolean

i = 1: flagm = True: flagg = True

Do While i <= k And flagm = True ①   

    mmax = 0: gmax = 0

    flagm = False: flagg = False

  For j = i To k - i + 1

    If sex(j) = "男" And su(j) > su(mmax) Then mmax = j

    If sex(j) = "女" And su(j) > su(gmax) Then gmax = j

  Next j

   If mmax <> 0 Then

flagm = True

t = nam(mmax): nam(mmax) = nam(i): nam(i) = t

t = sex(mmax): sex(mmax) = sex(i): sex(i) = t

t = math(mmax): math(mmax) = math(i): math(i) = t

t = su(mmax): su(mmax) = su(i): su(i) = t

   End If

   If gmax <> 0 Then

flagg = True

If j = mmax Then    ②   

gmax = mmax

t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

t = math(gmax): math(gmax) = math(i): math(i) = t

t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

Else

t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

t = math(gmax): math(gmax) = math(k - i + 1): math(k - i + 1) = t

t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

End If

   End If

i = i + 1

Loop

For i = 1 To k

List2.AddItem nam(i) + "    " + sex(i) + "    " + Str(math(i)) + "    " + Str(su(i))

Next i

End Sub

程序中①处改为________________________________________。
程序中②处改为________________________________________。

小吴为了研究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：在列表框list1中显示排序前数据（存储在数组a中），在文本框text1中输入初始位置（即下标值），单击“排序”按钮command1后，在标签label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框list2中。程序运行界面如图所示。
实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()

a(1) = 30: a(2) = 47: a(3) = 30: a(4) = 72

a(5) = 70: a(6) = 23: a(7) = 99: a(8) = 24

n = 8

For i = 1 To 8

List1.AddItem a(i)

Next i

End Sub
Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n – 1

For j = n To i + 1 Step -1
If a(j) < a(j - 1) Then

   _____________

a(j - 1) = a(j)

a(j) = k
'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置
If pos = j Then
pos = j - 1
s = s + "→" + Str(pos)
_________
pos = j
s = s + "→" + Str(pos)
End If
End If
Next j

Next i

Label1.Caption = "位置变化情况：" + s

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

数组a中存储了n个学生的学号和成绩数据，其中奇数位置存储学号信息，偶数位置存储成绩信息，数组存储结构如下表所示：

1	2	3	4	5	6	……	2n-1	2n
学号	成绩	学号	成绩	学号	成绩	……	学号	成绩
第1个学生信息		第2个学生信息		第3个学生信息		……	第n个学生信息

 
小迪同学使用选择排序思想对上述n个同学按成绩进行降序排序（成绩相同的按学号升序排列），并依据成绩插入各位同学的名次信息，处理结束的数组a存储结构如下表所示：

1

2

3

4

5

6

7

8

9

……

3n-2

3n-1

3n

名次

学号

成绩

名次

学号

成绩

名次

学号

成绩

……

名次

学号

成绩

第1个学生信息

第2个学生信息

第3个学生信息

……

第n个学生信息

 
小迪同学使用VB编写了成绩处理程序，程序运行界面如下图所示：

实现上述功能的VB程序如下，请回答下列问题。
Const n=20
Dim a(1 To 3* n)As Integer
Private Sub Command1_ Click()

＇读取数据，存储在数组a中，并显示于列表框List1中

＇代码略

End Sub
Private Sub Command2_ Click()
＇①改错
k=i
For j=l To i-l
If a(2*j)<a(2*k)Or ② Then
k=j
End if

Next j

A(3*i=a(2*k)
A(3*i-1)=a(2*k-1)
③
A(2*k-1)=a(2*i-1)
Next i
List2. AddItem"第1名：学号+CStr(a(2))+"，分数"+str(a(3))
A(1)=1
mc=1
For j=2 To n

If     ④ Then mc=i

List2. AddItem"第"+Str(mc)+"名：学号"+CStr(a(3*i-1))+"，分数"十Str(a(3*i))a(3*i-2)=mc

Next i

End sub
（1）已知窗体名称为Form1，要使程序加载时，窗体标题自动显示为“第15题程序”，则可在_____________（单选，填字母）事件过程中添加代码： Form1. Caption=“第15题程序”。

A．Form_ Click()

B．Form_ Load()

C．Form1_ Click()

D．Forml_ Load()

（2）程序加框处的For循环语句有错，请改正。
（3）请将程序②③④划线处代码补充完整。

为了合理有效的共享学校图书馆自修室资源，学校实行自修室座位网上预约，学生
按学号登录系统进行预约（学号编码为六位数字，第一二位代表年级，第三四位代表班级，第五 六位代表顺序号。如 030102 表示高三 1 班 2 号同学）。为了方便老师管理，预约结束由电脑进行 排位。排位规则如下：
①年级优先原则，先高三再高二最后高一
②班号优先原则，同年级的班号小的排前面
③序号优先原则，同班级同学序号小的排前面 小张根据以上要求编写了 VB 程序，程序界面如下图所示：

实现上述功能的 VB 程序代码如下，请回答下列问题：
⑴分析程序，可知调用的数据库的名称为____________________________________。
⑵请在划线处填入合适的代码。
Dim a(200) As String
Const num = 200
Dim temp As String
Private Sub Form_Load()    ‘此处代码实现将预约信息存储到数组 a(i)中
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "provider=Microsoft.AC

A．OLEDB.12.0;data source=" & App.Path & "" &"stu.accdb"

rs.Open "select * from student"
i = 1
Do While Not rs.EOF
a(i) = rs("xuehao") 
rs.MoveNext
①____________
Loop
rs.Close
cn.Close
List1.AddItem "预约号" & "    " & "学号"
For i = 1 To num

List1.AddItem Str(i) & "    " & a(i)

Next i
End Sub
Private Sub Command1_Click()
For i = 1 To num - 1
For j = num To i + 1 Step -1
If   ②____________  Then
temp = a(j) a(j) = a(j - 1) a(j - 1) = temp
End If

Next j

Next i
List2.Clear
List2.AddItem "座位" & "    " & "学号"
For i = 1 To num
List1.AddItem Str(i) & "    " & a(i)
Next i
End Sub
Function check(x As String, y As String) As Boolean
Dim x1 As Integer, x2 As Integer, x3 As Integer
Dim y1 As Integer, y2 As Integer, y3 As Integer
x1 = Val(Mid(x, 1, 2)) : x2 = Val(Mid(x, 3, 2)) : x3 = Val(Mid(x, 5, 2))
y1 = Val(Mid(y, 1, 2)) : y2 = Val(Mid(y, 3, 2)) : y3 = Val(Mid(y, 5, 2))
If x1 < y1 Or x1 =   y1 And x2 > y2 Or    ③__________   Then
check = True
Else

check = False

End If
End Function

数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体程序实现如图所示。

实现该功能的VB程序代码如下，请在划线处填入合适代码。
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
Randomize
For i = 1 To high
a(i) = Int(Rnd * 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①________
c = ""
For j = 1 To m
p =②________
q = i * m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = ③________
Next j
Text3.Text = Text3.Text + " " + c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s = f
For i = f To g
If a(i) > a(s) Then
s = i
End If
Next i
sort = s
End Function