Private Sub Command1_Click()

Dim a(1 To 100) As Integer

x = Val(Text1.Text)

y = Val(Text2.Text)

For i = 1 To 100

     (1)

  List1.AddItem Str(a(i))

Next i

For i = x To y - 1

  k = i

  For     (2)

    If a(k) > a(j) Then k = j

  Next j

  If k <> i Then

    t = a(k): a(k) = a(i): a(i) = t

  End If

Next i

For i = x To y

  List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#}  ⑵{#blank#}2{#/blank#} 

For i=1 to 3

 For j=1 to 5-i

  If a(j)>a(j+1) Then

  t=a(j):a(j)=a(j+1):a(j+1)=t

  End If

 Next j

Text1.Text=Text1.Text+Str(a(i))

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。该程序段执行后，文本框Text1显示的内容是（  ）

For i = 2 To 4

j = i: flag = False

Do While j >= 2 And Not flag If a(j) < a(j - 1) Then

t = a(j): a(j) = a(j - 1): a(j - 1) = t flag = True

End If j = j - 1

Loop Next i

数组元素a(1)到a(7)的初值依次为“8,2,7,10,6,9,5,3”，则程序运行后，元素a(1)到a(7)的值依次为（  ）

For i = 1 To n -1

       ①  

    For j = i To n-1

        If a(j) < a(k) Then k = j卷（信息技术）（一） 第4页（共 8 页）

    Next j

    s = a(i): a(i) = a(k): a(k) = s

Next i

则代码①中的语句为（    ）

s = input()

head = 0; tail = 0; ans = 0; tmp = '' q = ['']*100

flag = True

for i in range(len(s)):

    if s[i] == ',':

        while head!=tail:

            tmp += q[head]

            head += 1

            if flag and head < tail:

                head += 1

            flag = not flag

        ans += int(tmp)

        tmp = ''; flag = True

    elif '0'<=s[i]<='9':

        q[tail] = s[i]

        tail += 1

 若输入 s 为“1-500,2023900-,”，执行该程序段，变量 ans 的值为 （   ）