i=1:j=10

  Key=Val(Text1．Text)

    If a(m)=Key Then Exit Do      ‘Exit Do表示退出循环

    If Key Mod 2=1 And a (m)Mod 2=0 Then

    ElseIf Key Mod 2=0 And a(m)Mod 2=1 Then

Else

End If

  Loop

  If i>j Then s=“没有找到!”Else s=“位置：”+Str(m)

  Text2.Text=s

  上述程序中方框处可选语句为：

    ①i=m+1

    ②j=m-1

    @If Key<a(m)Then j=m-1 Else i=m+1

则(1)(2)(3)处语句依次是（  ）

    key=Val(Text1．Text)

    n=0：i=1：j=7

    flag=False

    Do While i<=j And flag=False

        n=n+1

        m=Fix((i+j)／2)

        If a(m)=key Then flag=True

If key<a(m) Then i=m+1 Else j=m-1

    Loop

If flag=True Then

Text2 Text=“在第”＆ Str(m) &“个。”

    Else

        Text2．Text=“未找到。”

End If

数组元素a(1)到a(7)的值依次为“89，72，68，45，23，19，17”，文本框Text1中输入的值是19，执行该程序段后，下列变量的值不正确的是（   ）

实现上述功能的VB程序如下，请回答下列问题：

Private Sub Command1_Click()

Dim a(20) As Long

Dim i As Integer, j As Integer, s As String List1.Clear

n = Val(Text1.Text)

a(1) = 1

List1.AddItem Str(a(1)) For i = 2 To n

    s = ""

    For j = Step -1  

        a(j) =    ①     

        s = s + Str(a(j))

    Next j

           ②        Next i

若生产时间为20，则可生产编号为1、2、5的商品，总价值为10+16+15=41。

编写一个VB程序，实现如下功能：在文本框Text1中依次输入各商品（数量小于等于10件）的生产时间和价值（整数用逗号分隔并以逗号结尾），在文本框Text2中输入总加工时间（至少可以生产一件商品），单击“确定”按钮Command1后，在列表框List1中显示最大的总价值和生产的商品编号。程序运行界面如图所示。