1. (2019·浙江模拟) 【加试题】有VB程序段如下：

num = 0

  For i = 1 To 3

    For j = 8 To i + 1 Step -1

      If a(j) < = a(i) Then

         temp = a(j): a(j) = a(i): a(i) = temp

num = num +1

      End If

    Next j

  Next i

数组元素a(1)到a(8)的值依次为“25,44,16,34,57,25,34,60”，执行该程序段，变量num的值是（  ）

def change(ch)：

ch=chr()

return ch

def encypt  (encode ，key)：

q=[]

result=’’

for x in key:

q.append(int(x))#将密钥逐个转为数值，并放到 q 中

head=0

for ch in encode:

if "A"<=ch<="Z":

ch=change(ch)

if "a"<=ch<="z":

ch=chr((ord(ch)-97-q[head])%26+97)

elif "0"<=ch<="9":

ch=

head=

result+=ch

return result

mw=input("请输入明文：")

key=input("请输入置换密钥：")

ss=encypt()

print("密文为："+ss)

Dim bm(1 To 100) As Integer, k As Integer

Dim xm(1 To 100) As String, n As Integer

Private Sub Form Load( )

    ‘本过程从数据库中读入指定数据到数组bm、xm中，并在List1中显示

    ‘获取k，表示不同学校数： n表示报名记录总数代码略

End Sub

Private Sub Command1_Click( )

    Dim m As Integer

    i = k：j=n

    Do While i <=j

        m=

        If judge(m) <> 0 Then

            j=m-1

            ans = m： start = judge (m)

        Else

            i=m+1

        End If

    Loop

    For i=1 To ans

        List2.AddItem

    Next i

    Label1.Caption =“共选出志愿者”+ CStr(ans) + "人”

End Sub

Function judge(m As Integer) As Integer    ‘judge函数用于返回区间起始位置

    Dim f(1 To 11) As Integer      'f(i)表示i学校是否包含在区间

    Dim t As Integer

    judge = 0

    For i=1 To n-m+ 1     ‘枚举以i为起点的区间内是否包含各个学校

        t=0

        For j=i To i+m-1

            If  Then t=t+ 1

            f(bm(j)) = 1

        Next j

        If t=k Then  ： Exit Function

        For j=1 To k

            f(j) = 0

        Next j

    Next i

End Function