第一步：设两数为a、b，且令a>b；

第二步：a÷b，令r为所得余数，若r=0，算法结束，b 即为最大公约数；若r>0则a←b，b←r，并返回第二步；
第三步： 即为 约分后的最简形式。

编写VB程序，程序运行界面如图1所示，请根据算法将下列程序补充完整。

Private Sub Command1_Click()

 Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母，r为最大公约数

 a = Val(Text1.Text)

 b = Val(Text2.Text)

 If b = 0 Then c = MsgBox("分母不能为0"): Exit Sub

 '如果分母为0，则提示“分母不能为0”并退出该过程

 r = {#blank#}1{#/blank#} 

 Text3.Text = Str(a / r)

 Text4.Text = Str(b / r)

End Sub

Function gys(ByVal m As Integer, ByVal n As Integer) As Integer

'gys函数用于求最大公约数

Dim s As Integer

 If m < n Then

    t = m: m = n: n = t

 End If

 Do While n <> 0

    s = m Mod n

    m = n

    n = s

 Loop

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

End Function

  a(1)=1：a(2)=1

  b(1)=1：b(2)=2

  For i=3 To 5

a(i)=a(i-1)+a(i-2)

b(i)=b(i-1)+a(i)

Next i

执行该程序段后，数组元素b(5)的值为（  ）

请根据算法将下列程序补充完整。

Function prime(a As Integer)As Boolean

  Dim j As Integer

  prime=True

  j=2

  Do While prime And j<=a\2

   If a Mod j=0 Then

     prime=False

     Exit Do

   End If

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

    Loop

End Function

Private Sub Command1_Click( )

  Dim i As Integer, a As Integer, b As Integer

  Dim count As Integer

  a=Val(Text1.Text)

  b=Val(Text2.Text)

  For i=a To b

    If{#blank#}2{#/blank#}=True Then

       List1.AddItem Str(i)

       count=count + 1

     End If

  Next i

   Label1.Caption=“素数共有” + Str(count) + “个!”

End Sub

Dim a(1 To 6) As Integer

Randomize

a=n Mod k

n=n\k,k=k+1,s=s+a

a(1) = Int(11 * Rnd) + 2

For i = 2 To 6

a(i) = Int(11 * Rnd) + 2

If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1

ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)

End If

Next i

'自定义函数 prime()用于判断参数是否为质数，prime(n) = True 则说明 n 为质数，否则为合数，定义函数代码略执行该程序后，a(1)～a(6)的值不．可．能．为（  ）

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

def isprime(x):

    for i in range(2,x):

        if {#blank#}1{#/blank#} :

            return False

    return True

n=int(input("请输入一个正整数 n:"))

c=0

k=3

while k<=n-2:

    if isprime(k) and {#blank#}2{#/blank#} :

        print(k,k+2)

        {#blank#}3{#/blank#}

    k=k+1

print("共有"+str(c)+"对双胞胎数")