Private Sub Form_Click()

    Dim As Integer, j As Integer, x As Integer

    For i=1 To 100

        x=0

        For j=1 To i-1

            If i Mod j=0 Then x=1

        Next j

        If x=0 Then Print x

    Next i

End Sub

小吴设计一个根据校验码校验物品代码的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#} 

a=[4，5，3， 6， 7，8，2， 9， 1]

m，c=1，1

for i in range(1， len(a))：

    if a[i]>=a[i-1]：

        c+=1

        m=max (m， c)

    else：

        c=1

print(c，m)

则程序执行后，c和m的值分别是(     )

a=[["迎客松" , 21, 2],["激流勇进" , 40, 2],[" 天空栈道" , 50, 5],["一线天" , 30, 4],[" 飞来 峰" , 60, 5],["天梯" , 20, -1]]

head=[0, 1, 3]

for i in range（len（head））：

       ⑴     

    s=a[p][1]

    while a[p][2]! =-1：

        print（a[p][0], end="-->"）

            ⑵   

           ⑶    

    print（a[p][0]）

    print（"预计时间：" , s , "分钟"）

上述程序划线处的可选代码有：

①p=head   ②p=head[i]    ③s=s+a[p][1]    ④p=a[p][2]

则（1）,（2）,（3）处代码依次为：（   ）

#求0～50的所有偶数的和

s＝{#blank#}1{#/blank#}

for i in range（0, {#blank#}2{#/blank#} , {#blank#}3{#/blank#}）：

   s＝s＋{#blank#}4{#/blank#}

print（"0～50所有偶数的和为", {#blank#}5{#/blank#}）

s=input()

n=len(s);c=1;max=1

for i in range(1,n):

 if (1)____:

 c=c+1

 if c>max:

 max=c

 else: