程序代码如下所示，请补充完整。

Private Sub Command1_Click()

 Dim i As Integer，j As Integer，s As Single，zc As Integer

 Dim max As Integer

 zc＝Val(Text1.Text)

 max＝0

 If zc Mod 2＝1 Then

List1.AddItem ”该周长的矩形长度和宽度不是整数！”

 Else

List1.AddItem ”宽度 长度 面积”

For i＝1 To zc \2

{#blank#}1{#/blank#}

 If i>j Then Exit For

{#blank#}2{#/blank#}

 List1.AddItem Str(i)＋”   ”＋Str(j)＋”    ”＋Str(s)

 If {#blank#}3{#/blank#}Then max＝s

 End If

 Text2.Text＝Str(max)

End Sub

s = Text1.Text

For i = 1 To Len(s) c = Mid(s, i, 1)

s1 = s1 + c Next i Text2.Text = s1

程序运行时，在文本框Text1中输入“ABC123xyz”，在文本框Text2中输出“bcd123yza”，则加框①处的代码为（ ）

A.

Dima( 1 To 5) As Integer

Dimi As Integer, j As Integer, s As String

s=“”

    For i= 2 To 5

        For j=i To 5

            If j Mod i=0 Then a(j) =a(j)+1

        Next j

    Next i

    For i= 1 To 5

        If a(i) <>1Then s=Str(i) +s

    Next i

    Text 1．Text=S

若数组a的初始值都为0，则运行该程序段后，Text 1中显示的内容为（  ）

Dim i As Integer    ——1

Dim s As Integer    ——2

s=1     ——3

For i=1 To 10

 s=s*i    ——4

Next i

Print s

>>> a=8

>>> b=2

>>> a-=b

>>> b+=a

>>> a+b

a＝13

b＝32

a＝b

关于语句“a＝b”的含义，下列叙述中正确的是（   ）。