查找的英文单词由连续的ASCII英文字符（a～z或A～Z）组成。组合词程序会进行分解，如river-small可拆分为2个单词river和small，查找的英文单词不区分大小写。程序代码如下，但加框处代码有错，请改正：

Private Sub Command1_Click()

Dim article As String,f As String,count As Integer

Dim i As Intege，,begin As Integer,s As String

article=Text1.Text : f=Text2.Text : count=0

begin = 1

For i=1 To Len(article)

   t = Mid(article,i,1)

   If Not(t>="A"And t<="Z" Or t>="a" And t<="z") Then

     If i > begin Then

        s =      '①

        If LowerCase(f)=LowerCase(s) Then

            count = count+1

        End If

      End If

          begin = i + 1

     End If  

  Next i

    Text3.Text=Str(count)

End Sub

Function LowerCase(word As String) As String    '单词转化为全小写的形式

Dim i As Integer,c As String

For i=1 To Len(word)

   c = Mid(word,i,1)

   '小写英文字母的ASCII码值比大写字母的值大32

   If c>="A" And c<="Z" Then c =    '②

   LowerCase = LowerCase + c

Next i

End Function

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

①{#blank#}1{#/blank#}；②{#blank#}2{#/blank#}。

Private Sub Command1_Click()

Dim x As Integer,y As Integer,z As Integer

x=Val(Text1.Text)     ‘第1个正整数

y=Val(Text2.Text)     ‘第2个正整数

                   ‘调用函数gcd

Text3.Text=Str(z)

End Sub

Function gcd(a As Integer, b As Integer) As Integer

 Do While a <> b

If a>b Then a=a-b Else b=b-a

Loop

gcd=b

End Function

方框中的正确语句是（  ）

奇数阶幻方的构造是所有幻方中最简单的，可以按照如下规则来实现：

⑴将1放在第一行中间一列；(如图2)

⑵从2开始直到n*n为止，各数按下列规则存放：

假设当前要存放的数为k，则k存放在k-1)数的右上方并按照规则

①若(k-1)放在第1行且不是最后一列，则将k存放在n行，(k-1)所在列右侧；(如图3)

②若(k-1)放在第n列且不是第一行，则将k存放在第1列，k-1)的上1行；(如图4)

③若(k-1)即不在第1行也不在最后1列：

若(k-1)右上方有数，则将k放在(k-1)的下1行的同一列。(如图5)

若(k-1)右上方没有数，则将k放在(k-1)的右上方；(如图6)

④若(k-1)在第1行第n列，将k填在(k-1)的正下方(如图7)

程序界面如图1所示，在本框Text1中输入COD指标，单击“计算投放量”按钮（Command1）后，程序根据COD指标计算出合适的COD去除剂投放量，并在标签Label3中输出计算结果。

污水处理厂根据COD指标投放COD去除剂的标准如下表所示：

a = [ 5 , 4 , 2 , 1 , 3 , 6 ] ; q = [ 0 ] * 6 ; head = tail = 0

for i in range( len( a ) ):

    if a[ i ] % 2 == 1 :

        q[ tail ] = a[ i ] ; tail = tail + 1

    elif head < tail :

        head += 1

print( tail – head )

执行该程序段后，输出结果为（   ）