| 序号 | 姓名 | 性别 | 出生年月 | 户籍所在地 | 联系方式 | 是否医保 |
| 202102001 | 张三 | 男 | 1997/7/1 | 杭州市西湖区 | 13510325679 | 是 |
| 202001001 | 李四 | 女 | 2000/1/1 | 宁波市海曙区 | 15258880358 | 是 |
| … | … | … | … | … | … | … |
下列关于该医院就诊信息管理信息系统的描述，错误的是（ ）
s = "ab,,,cb,a"
n = Len(s)
i = 1: j = Len(s)
flag = True
Do While i <= j
If Mid(s, i, 1) = Mid(s, j, 1) Then
i = i + 1: j = j - 1
Else
End If
Loop
If flag = False Then Print ("不是回文") Else Print ("回文")
方框中的代码由以下三部分组成：
① If Mid(s, i, 1) = "," Or Mid(s, i, 1) = "." Then i = i + 1
② If Mid(s, j, 1) = "," Or Mid(s, j, 1) = "." Then j = j – 1
③ If Mid(s, i, 1) <> "," And Mid(s, j, 1) <> "," Then flag = False: Exit Do
下列选项中，代码顺序正确的是：（ ）
For i = 1 To 5
a(i) = Int(Rnd * 10)
Next i
For i = 2 To 5
If a(i) < a(i - 1) And a(i) Mod 2 = 1 Then
a(i) = a(i) + 1
ElseIf a(i) Mod 2 = 0 And i Mod 2 = 0 Then
a(i) = a(i - 1) - 1
End If
Next i
执行程序后，a数组各元素不可能的是（ ）
Key = Int(Rnd*10)*2+1
s = ""
i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
s = s + Str(a(m))
If a(m) > Key Then j = m - 1 Else i = m + 1
Loop
Text2.Text = s
数组元素a(1)到a(10)的值依次为“2,4,5,8,9,10,13,17,19,20”。执行该程序段，则文本框Text2中显示的内容可能的是（ ）
|
图a |
/ B . 
/ C . 
/ D . 
）。
 图b |
请回答下列问题：
请回答下列问题：
Dim g1(201) As Integer, g2(201) As Integer
Dim xh(201) As Integer, xh2(201) As Integer
Const num = 101 '选考总人数
Dim n, m As Integer 'g1人数为n，g2人数为m
Private Sub Cd1_Click() '合并汇总
nu = num
Do While m >= 1
Do While 
t = g1(nu): g1(nu) = g1(n): g1(n) = t
xh2(nu) = xh(2 * n - 1) : n = n – 1 : nu = nu - 1
Loop
t = g1(nu): g1(nu) = g2(m): g2(m) = g2(nu)
xh2(nu) = xh(2 * m) : nu = nu – 1 : m = m - 1
Loop
'处理学号
For i = 1 To n
Next i
'显示合并结果
For i = 1 To num
List3.AddItem xh2(i) & " " & g1(i)
Next i
'选出成绩第二好的同学
mxgrade = g1(num)
For i = num - 1 To 1 Step -1
If g1(i) <> mxgrade Then Exit For
Next i
If i<>0 Then
Label1.Caption = "学号为：" & xh2(i) & "的同学，本次测试成绩第二，分数为：" & g1(i)
End If
End Sub
Private Sub Command2_Click()
For i = 1 To num \ 2
'对g1同学的成绩进行排序
For j = 1 To num \ 2 - i + 1 * (num Mod 2)
If Then
t = g1(j): g1(j) = g1(j + 1): g1(j + 1) = t
t = xh(2 * j - 1): xh(2 * j - 1) = xh(2 * j + 1): xh(2 * j + 1) = t
End If
Next j
'对g2同学的成绩进行排序，代码略
Next i
'在列表框中输出g1和g2学生的学号及其对应的成绩，代码略
End Sub
Private Sub Form_Load()
'代码略，从数据库中导入所有选考学生数据，共num个人，并做如下处理：
'1.学号为奇数的同学录入g1班级，共n人
'2.学号为偶数的同学录入g2班级，共m人
End Sub
按照比赛要求，可以设置赛程表为n行n-1列的二维表，其中第i行第j列的元素表示和第i个选手在第j天进行比赛的同学编号。
若k=1，则赛程表如下：
若k=2，则赛程表如下：
观察两个表不难发现：
①第二个表的左上角和右下角与第一个表相同；
②第二个表的左下角和右上角相同，恰好是第一个表各元素值加2。
因此可以通过第一个表来构造第二个表。同理可得，当n=2k个同学的比赛日程表，可以通过n=2k-1 个同学的比赛日程表构造得到。
请回答下列问题：
Private Sub Command1_Click()
Dim a(1 To 10000) As Integer
Dim n As Long, tmp As Long, i As Integer, j As Integer, t As Integer
a(1) = 1 : n = 1
k = Val(Text1.Text)
For t = 1 To k
n = n * 2
For i = tmp + 1 To n
For j = 1 To tmp
Next j
Next i
For i =
For j = tmp + 1 To n
a((i - 1) * 2 ^ k + j) = a((i + tmp - 1) * 2 ^ k + (j + tmp) Mod n)
Next j
Next i
For i = tmp + 1 To n
For j = tmp + 1 To n
a((i - 1) * 2 ^ k + j) = a((i - tmp - 1) * 2 ^ k + j - tmp)
Next j
Next i
Next t
For i = 1 To n
st = ""
For j = 1 To n
st = st + Str(a((i - 1) * 2 ^ k + j))
Next j
List1.AddItem st
Next i
End Sub
