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

'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#} 

实现上述功能的VB程序如下。请在画线处填入适当的语句和代码，把程序补充完整。

Dim w As Integer         ‘变量w用于存储每次最大数字字符的位置

Private Sub Command1_Click()

  Dim t As String

  Dim i As Integer，j As Integer

  Dim max As Integer，S As Integer

  t=Text1．Text

  s=0

  For i=3 To 1 Step-1

    max=0

    For j=1 To Len(t)

       If Val(Mid(t，j，1))>max Then

       max=Val(Mid(t，j，1))

    ①  

      End If

    Next j

    s=s+    ②   

    t=delmax(t)

  Next i

  Text2．Text=Str(s)

End Sub

‘自定义函数功能是去除当前最大数字字符

Function delmax(t As String)As String

  delmax=    ③  

End Function

n=Val(Text1.Text)

k=0

left=1

right=n

Do While left <=right

  k=k+1

  m=(left+right) \ 2

  If m-left < right-m Then

   left=m+1

  Else

   right=m-1

  End If

Loop

在文本框Text1中输入16，执行该程序段，下列说法错误的是（  ）

Dim a(1 To 10) As Integer

a(1)=2: a(2)=18: a(3)=10: a(4)=34: a(5)=16

a(6)=7: a(7)=37: a(8)=6: a(9)=15: a(10)=15

c=0: x=0: t= 1

For i=1 To 10

    a(i)=a(i)*t

    c=c+a(i)

    If c>0 Then x=x+1

    t=-t

Next i

Text1.Text=Str(x)

则程序运行后Text1中显示（  ）