| 学号 | 姓名 | 班级 | 日期 | 体温 | 是否住宿 |
| 20200510 | 陈怡 | 高一(5)班 | 2021.6.30 | 36℃ | 是 |
| 20180101 | 沈佳森 | 高三(1)班 | 2021.6.31 | 36.3℃ | 否 |
| 20190302 | 张国浩 | 高二(3)班 | 2021.6.32 | 36.1℃ | 是 |
| … | … | … | … | … | … |
下列关于“体温记录”数据表的描述，正确的是（ ）
s = "Happy 2021/07"
ans = "": f = True: Max = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
ans = ans + Chr(Asc(ch) - 32)
ElseIf ch >= "0" And ch <= "9" Then
f = False
End If
If Not f And ch > Max Then
Max = ch: f = True
End If
Next i
Label1.Caption = ans + Max
执行该段程序后，标签label1中显示的内容是 （ ）
Dim a(1 To 6) As Integer
a(1) = 6
For i = 2 To 6
a(i) = Int(Rnd * 30 + 1) * 3
If a(i) Mod 2 = 1 And i Mod 2 = 0 Then
i = i - 1
ElseIf a(i) > 60 Then
a(i) = a(i) - a(i - 1)
End If
Next i
执行该段程序后，a(1)~a(6)中的值可能是 （ ）
Dim a(1 To 8) As Integer
K = 8: n = 8
For i = 1 To 3
For j = i + 1 To n
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
For j = n - i To i + 1 Step -1
If a(k) > a(j) Then
t = a(k): a(k) = a(j): a(j) = t
End If
Next j
k = k - 1
Next i
数组元素a(1)~a(8)中的初始值为：8,13,7,14,6,9,5,12,执行该程序段后，数组元素a(1)~a(8)中的值将变为（ ）
Dim a(1 To 8) As Integer
key = Val(Text1.Text)
i = 1: j = 8
Do While i < j
m = ①
If key > a(m) Then
②
Else
③
End If
Loop
Text2.Text = Str(j)
已知数组a存储一组升序数“2,3,5,9,10,15,18,25”,要查找第一个不小于key的元素下标并输出在Text2中，则下列选项中正确的是（ ）
VB代码实现如下：
Const n = 10
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Form_Load()
‘随机生产10个11-99之间的数字，并依次存储在数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim num As Integer, L As Integer, R As Integer, i As Integer
Dim m As Integer, f As Boolean
num = 1: b(1) = a(1)
For i = 2 To n
b(num + 1) = a(i) + 1
f = False
For j = 1 To num + 1
If a(i) < b(j) Then
Exit For
ElseIf a(i) = b(j) Then
①
End If
Next j
If Not f Then
For k = 
b(k + 1) = b(k)
Next k
②
num = num + 1
End If
Next i
‘最终将数组b的排序结果输出到文本框中，代码略
End Sub
根据如上代码，请回答下列问题：
① ②
①生成n*n的矩阵，其中计划埋雷m个，n和m的数据分别从text1和text2中获取（n<=10，m<=n）
②随机位置埋好地雷后（埋雷位置用X表示且埋雷位置不重复），未埋雷的位置显示该位置周围一圈地雷的数量。
程序代码如下：
Dim flag(0 To 200) As Boolean, a(0 To 200) As String
Dim n As Integer, m As Integer
Private Sub Command1_Click( )
Dim s As String, x As Integer, k As Integer
Dim i As Integer, j As Integer
Randomize
n = Val(Text1.Text): m = Val(Text2.Text)
‘初始化数组flag中各元素均为False，数组a中各元素值为字符"0"，代码略
For i = 1 To m
x = Int(Rnd * (n ^ 2)) + 1
If flag(x) = True Then i = i - 1 Else flag(x) = True
Next i
For k = 1 To n * n
If flag(k) = True Then
a(k) = "X"
Else
For i = (k - 1) \ n To (k - 1) \ n + 2
For j = ①
If i = 0 Then Exit For
If flag((i - 1) * n + j) = True And j >= 1 And j <= n Then
a(k) = ②
End If
Next j
Next i
End If
Next k
For i = 1 To n * n ‘在列表框list1中输出矩阵
s = s + " " + a(i)
If ③ Then
List1.AddItem s
s = ""
End If
Next i
End Sub
根据上述代码，完成下列问题：
① ② ③
