图1

s=Text1.Text

n=Len(s)          's是待判断的字符串

k=0:j=n

For i=1 to n/2

c1=Mid(s,i,1)

 c2=Mid(s,j,1)

If c1 <> c2 Then k = k+1: Exit For

j={#blank#}1{#/blank#}

Next i

If  {#blank#}2{#/blank#}  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

For i = 100 To 999 lag = True: j = 2

Do While j < i And flag

Loop

If flag Then List1.AddItem Str(i) Next i

方框中的代码由以下四部分组成：①End If   ②If i Mod j = 0 Then   ③j = j + 1

④flag = False。代码顺序正确的是（  ）

程序运行时，先随机生成15个[1，30]区间内的整数，存储在数组a(0)至a(14)，并在文本框Text1中显示；单击“计算”按钮Command1，则在标签Labe14中显示连续三数最大和，在标签Label5中显示连续三数最小和，程序运行界面如图所示。

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Const n=14

Dim a(n) As Integer

Private Sub Form_Load()

'随机生成15个数,存储在数组元素a(0)～a(14)中,并显示在文本框Text1中

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As Integer

    Dim imax As Integer, imin As Integer

    Dim smax As Integer, sum As Integer, smin As Integer

    smax=0:smin=100

    For i=0 To 14

        j= {#blank#}1{#/blank#}

        k= {#blank#}2{#/blank#}

        sum=a(i)+a(j)+a(k)

        If sum>smax Then

            smax=sum

            imax=i

        End If

        If sum<smin Then

            smin=sum

            imin=i

        End If

    Next i

    Label4.Caption=Str(smax)

    Label5.Caption=Str(smin)

End Sub

Dim c(1 To 26)As Integer

s=Text1.Text

For i=1 To Len(s)

    x=Mid(s, i, 1)

    If x>="a" Then

        t=Asc(x)-Asc("a")+1

    Else

        t=Asc(x)-Asc("A")+1

    End If

       ① 

    If c(t)>=Max Then Max=c(t):   ②  

Next i

Text 2.Text=Chr(f+Asc("A"))

划线处应该填入的正确语句是（   ）