n = 0 : m = 0

For  i = 1 To 100

     If  Rnd > 0.5  Then

        n = n + 1

     Else

     m = m + 1

Next  i 

……

小金仔细分析该程序段后，发现其中缺少了（   ）

小敏编写了一个VB程序，用来求一个偶数（6到100之间）可能存在多少这样是素数岁（注：A+B与B+A认为是相同素数对，不重复统计），并把这些结果输出到一个列表框中，通过逻辑推理，小敏发现这些素数对都是奇数，所以她只需要验证奇数的素数对即可，运行界面如图所示，程序代码如下。但加框处代码有错误，请改正。

Dim IsPrime(100)As B00lean  ‘用来存储是否素数，True为素数，False为非素数

privatw Suh Command1_Click()

Dim x As Integer，y As Integer，i As Integer，num As Integer

Call Init              ‘调用Init函数

x=Val(Text1．Text)

y=x＼2

num==0

For i==3 To y Step 2

If  Then                  ‘①

    num=num+1

    List1．AddItem Str(x)+“=”+Str(i)+“+”+Str(x-i)

End If

 Next i

Label2.Caption=“偶数”+Str(x)+“共有”+Str(num)+“个素数对。”

End Sub

Sub Init()           ‘初始化IsPrime数组的值

  Dim i As Integer．j As Integer，X As Integer

  For i=3 To 100 Step 2

    X=Int(Sqr(i))

    For  Step 2                ‘②

    If i Mod j=0 Then Exit For

    Next j

    If i>x Then IsPrime(i)-True Else IsPrime(i)=False

  Next i

End Sub

①处加框代码应该为{#blank#}1{#/blank#}。

②处加框代码应该为{#blank#}2{#/blank#}。

例如：如图所示，有4个队8位队员，地上一排格子的数字依次为2、1、1、7、9、2、5、6。若某队甲队员站在第4个格子，则其分数为2+1+1+7=11；乙队员站在第7个格子，则其分数为5+6=11。两者相等，则该队获胜。

同时，对于多个地址块为 0 的情况时，可以使用“::”号，进行化简。化简原则：

①全 0 块“0000”，可以化简为“0”

②连续多个全0块，可以化简为“::”

③一个IPv6地址中只能出现一个“::”，出现多个全 0块时，“::”要化简最长的一段，没有最长的就将最左侧的一段化简为“::”

④“::”可以出现在地址开头或结尾具体示例如下：

程序界面如图所示：

实现上述功能的VB程序如下，请回答下列问题：