| 学号 | 姓名 | 性别 | 出生年份 | 户籍所在地 | 注册日期 | 是否住校 |
| 202002001 | 张阳 | 男 | 2002 | 温州市瓯海区 | 2020/8/31 | 是 |
| 202003001 | 李玥 | 女 | 2001 | 宁波市北仑区 | 2020/8/30 | 否 |
| … | … | … | … | … | … | … |
下列关于该新生管理信息系统的描述，正确的是（ ）
Const n =10
Dim a（1 To n）As Integer
‘随机生成10个1-100之间的数存储在数组a中，代码略
For i=1 to n\2
For j= ⑴ To i+1 Step-1
If a（j）<a（j-1）Then t = a（j）：a（j）=a（j-1）：a（j-1）=t
Next j
For k=i+1 To ⑵
If a（k）>a（k +1）Then t =a（k）：a（k）= a（k +1）：a（k+1）=t
Next k
Next i
划线处可选代码为：①2 ②n-i+1 ③n ④n-i
则（1）、（2）处语句依次为（ ）
‘数组元素f（1）到f（8）赋初值为0，代码略
Key=2*Int（Rnd*45）+1
i=1：j=9：c=0：s=0
Do While i<j
c=c+1
m=（i+j）\2
f（m）=1
If Key<a（m）Then j=m Else i=m+1
Loop
For k=1 To 8
s=s+f（k）
Next k
数组元素a（1）到a（8）中的值为：4，20，32，42，58，60，90，91。执行该程序段后，下列说法正确的是（ ）
图a
图b
编写VB程序，实现上述功能。运行程序时，先读取每个选择题的题号、得分率和考点，显示在列表框List 1中。在文本框Text 1中输入得分率最低的前m项值，单击“统计”按钮，按照得分率从小到大升序排序，并在列表框List 2中输出得分率最低前m项的题号、得分率及考点。程序运行界面如图所示。
请回答下列问题：
Dim n As Integer
Dim th（0 To 100）As Integer，df（0 To 100）As Single，kd（1 To 100）As String
Private Sub Form_Load( )
‘读取题号、得分率和考点分别存入数组th、df和kd数组，在列表框List 1中显示，代码略
‘选择题的个数存入变量n，代码略
End Sub
Function dq（x As String，k As Integer）As String
‘固定数据的位数
dq= X
Do While
dq=dq+""
Loop
End Function
Private Sub Select _Click( )
Dim m As Integer，i As Integer，j As Integer，p As Integer，t As Integer，mm As Integer
List 2.Clear
m=Val（Text1.Text）
i=1
Do While i<=n-1
p=i
For j=i+1 To n
If Then p= j
Next j
If p<i Then
t=th（i）：th（i）= th（p）：th（p）= t
End If
If 
Then Exit Do
i=i+1
Loop
For i=1 To m
List 2.AddItem dq（Str（th（i）），6）+ dq（Str（df（th（i））），8）+ dq（kd（th（i）），12）
Next i
End Sub
对w*h（10*8）网格数据进行存储，无障碍物的位置对应数组元素数值为0，有障碍物的位置对应数组元素数值为1。数组d中数据初始化后，对应数组元素数值d（2）=1：d（27）=1 ：d（33）=1：d（45）=1：d（52）=1：d（57）=1，其他数组元素数值为0。对应最大空正方形的起始位置为3，边长为4。
找最大空正方形的方法如下：①从当前位置右下角开始逐渐扩大正方形边长，直到有障碍物出现，不能再扩展为止；②取下一个位置，按照步骤①继续查找，最后1列为边界，该位置上无需查找。
Const W=10
Const h=8
Dim d（1 To w*h）As Integer
Private Sub Form_Load( )
‘数组初始化，无障碍物的位置对应数组元素值为0，有障碍物的位置对应数组元素数值为1
End Sub
Private Sub Command l_Click（）
Dim i As Integer，length As Integer，maxw As Integer
Dim max As Integer
max=0
For i=1 To w*h
If i Mod w <> 0 Then ‘判断该位置是否需要查找
If length>max Then max =length：maxw=i
End If
‘输出最大空正方形的起始位置和边长，代码略。
End Sub
Function scan（k As Integer）As Integer
Dim j As Integer
Dim t As Integer，s As Integer
Dim dw As Integer
t=1
Do While k\w+1+t<h And。
s=0
dw=k+w+1
For j=1 To t^2
s=s+d（dw+w*（（j-1）\t）+（j-1）Mod t）
Next j
If Then
Exit Do ‘退出循环
Else
t=t+1
End If
Loop
scan=t
End Function
