Do While i<=6

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

  If a(i) Mod 2<>i Mod 2 Then

    i=i-1

  ElseIf a(i)<a(i-1) Then

    a(i)=a(i)*2

  End If

i=i+1

Loop

执行该程序段后，数组元素a(1)到a(6)的值可能是(    ）

小吴设计一个根据校验码校验物品代码的VB程序，功能如下：在文本框Text1中输入物品代码，单击“校验”按钮Command1，如果输入的校验码与计算所得的校验码一致，则输出“校验通过。”（如下左图所示），否则输出“校验不通过！”（如下右图所示）。

实现上述功能的VB程序如下，加框处代码有错，请改正。

Dim s As String           '用于存储输入的物品代码

Dim t As String

Dim i As Integer, j As Integer

Dim sum As Integer           '用于存储计算校验码的累加和

Dim check_old As Integer             '用于存储输入物品代码中的校验码Y

Dim check_new As Integer            '用于存储按照前面9个数字X计算所得的新校验码

Dim a(1 To 10)As Integer

Private Sub Command1_Click()

    '从物品代码中取出9个数字X依次存储到a(1)到a(9)中，取出校验码Y存储到a(10)中

    s= Text     ①

    j=0

    For i=1 To 13

        t=Mid(s, i, 1)

        If(t>="0")And(t<="9") Then

            j=j+1

            a(j)=Val(t)

        End If

    Next i

    '计算新的校验码并和输入的校验码进行比较

    sum=0

    For i=1 To 9

        sum=sum+       ②

    Next i

    check_new=    ③

    check_old=a(10)

    If check_old=check_new Then

        Label1.Caption="校验通过。"

    Else

        Label1.Caption="校验不通过! "

    End If

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} ③{#blank#}3{#/blank#} 

Dim s As String， ch As String

Dim i As Integer， cnt As Integer， sum As Integer， num As Integer

Dim ave As Single

s=Text1.Text：num=0：ch=""：cnt=0：sum=0

For i =1 To len(s)

    ch = Mid(s， i， 1)

    If   ⑴   Then

        cnt=cnt+1

    Else

        If cnt>0 Then

            num=num+1

              ⑵ 

              ⑶ 

        End If

    End If

Next i

ave=sum/num

Label1. Caption =“总共有”+ Str(num) +“个单词，平均长度为：”+ Str (ave)

划线处可选代码为：

①sum = sum + cnt

②sum = sum + num

③cnt = 0

④cnt = 1

⑤Not(ch =””Or ch = “.”)

⑥ch>=“a” And ch<=“z” or ch>=“A”And ch<=“Z”

⑴、⑵、⑶处语句分别为(    )

执行程序后，变量max的值是(         )

执行该程序段后， b[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

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