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

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

  ⑴用户通过输入n，点击按钮Command2生成规模为n×n的数字矩阵；

  ⑵矩阵元素随机生成，并按数组顺序保存，如规模为3×3的矩阵，元素对应数组的排列方式如图a所示；

  ⑶点击按钮Command1后输出主对角线上的元素以及其元素之和。

程序界面如图b所示，程序代码如下：

Dim a(100)As Integer，n As Integer

Private Sub Command1_Click()    ‘输出主对角线数据及其之和

  Dim i As Integer，j As Integer，t As Integer，sum As Integer

  t=1：sum=0

  For i=1 To n

    For i= 1 To n

      If    ①    Then

      List2．AddItem Str(a(t))

      sum=sum+a(t)

    End If

    Next i

    ②   

  Next i

  List2．Addltem“和：  ”+Str(sum)

End Sub

Private Sub Command2_Click()        ‘生成数组矩阵

  Dim i As Integer，s As String

  n=Val(Text1．Text)            ‘获取矩阵规模

  List1．Clear：List2．Clear

  Randomize

  For i=1 To n2

    a(i)=99-Int(Rnd*90)

    s=s+Str(a(i))

    If   ③    Then

    List1．AddItem s

    s=“”

    End If

  Next i

End Sub

解决此问题可采用自底至顶分析的方法。如图a所示的数塔中，先从第3层开始分析：如果路径经过第3层的第1个数字12，那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值，记作f（3，1）=12+141同理，f(3，2)=7+15、f(3，3)=26+15：再分析第2层，计算f(2，1)、f(2，2)：最后计算出第1层f(1，1)，即为所求结果。

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中显示（  ）

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

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