当主持人点击按钮“生成抽号”后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。

'xxxss:学校学生数，kcq:可抽取

'xhxm:学号姓名，kcq:可抽取

Dim xxxss As Integer

Dim xhxm(3000) As String

Dim kcq(3000) As Boolean

'cq_Click:启用两个定时器

Private Sub cq_Click()

    cqxhxm.Enabled = True

    xskcqxhxm.Enabled = True

End Sub

Private Sub cz_Click()    '初始化数组kcq，使每个元素数据都处于可显示状态

  For i = 0 To xxxss - 1

    kcq(i) = True           '①

  Next i

End Sub

Private Sub xskcqxhxm_Timer()  '若数组kcq第x个元素处于可抽取状态，则显示数组xhxm第x个元素

    x = Int(Rnd * xxxss)

    If kcq(x) Then xhxmbq.text = kcq(x)     '②

End Sub

Private Sub Form_Load()  '从数据库中提取需要的学号姓名相关数据并初始化数组kcq

    Randomize

    xxxss = 0

    Dim conn As New ADODB.Connection,rs As New ADODB.Recordset

    Dim str_conn as String,str_sql As String

    str_conn = "driver=Microsoft access driver(*.mdb);DBQ="&app.path&"\school.mdb";

    conn.open str_conn

    str_sql = "select * from students"

    rs.open str_sql

    Do While Not rs.eof

      xxxss = xxxss + 1

      xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")

      rs.movenext

    Loop

    For i = 0 To xxxss - 1

      kcq(i) = True

    Next i

End Sub

Private Sub cqxhxm_Timer()    '决定抽取的学号姓名作为监票人

    xskcqxhxm.Enabled = False

    For i = 0 To xxxss - 1

        If xhxmbq.Caption = xhxm(i) Then kcq(i) = False

    Next i

    cqxhxm.Enabled = False

End Sub

①{#blank#}1{#/blank#} 

②{#blank#}2{#/blank#} 

Dim s(1 To 81) As Integer, i As Integer, j As Integer, c As Integer, temp As Integer

c=0 : s(1) = 0

For i = 1 To 9

    For j = 1 To i

      temp = s(j * i)

      s(j * i) = j * i

      If temp <> s(j * i) And s(j * i) Mod 9 = 0 Then c = c + 1

    Next j

Next i

该程序段运行后，变量C的值为（   ）

Dim a(1 To 5) As Integer

a(1) = 1

For i = 2 To 5

    a(i) = Int(Rnd * 5) + 1

    If a(i) Mod 2 = 0 Then

         a(i) = a(i) + i

    Else

        a(i) = a(i) + a(i - 1)

    End If

Next i

a(1)~a(5)的值不可能的是（   ）

lst=[74,32,66,46,38,28,85]

k=1

for i in range(len(lst)-1):

    if lst[i]*k < lst[i+1]*k:

        print(lst[i],end=" ")

k=-k

执行完以上程序段后，输出的内容为（   ）