Private Sub Command1_Click()

    Dim k As Integer，a As Integer，b As Integer

    a=Val(Text1．Text)

    b=Val(Text2．Text)

    Label1．Caption=trans(a，b)

  End Sub

  Function trans(m As Integer，n As Integer)As String

    If m<>0 Then

       r=m Mod n

       trans=trans(m＼n，n)+Str(r)

    Else

      trans=0

     End If

    End Function

程序运行时，在文本框Text1和Text2中分别输入11和2，则Label1中的输出结果是（  ）

请完善下列程序代码：

Function prime(x As Integer) As Boolean ’此函数判断x是否为质数

  prime = True

  For i = 2 To Int(Sqr(x))

    If {#blank#}1{#/blank#} Then prime = False: Exit For

Next i

End Function

Private Sub Command2_Click()

Dim a As Integer, b As Integer

Dim n As Integer

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

For a = 2 To n \ 2

b = n - a

If {#blank#}3{#/blank#} Then

      List1.AddItem Str(a) + "  " + Str(b) + "  " + Str(n)

End If

          Next

End Sub

Function fg(n as Integer)As Integer

 If n=1 fg=1

 If n=2 fg=2

 If n>=3 fg=fg(n-1)+fg(n-2)

End Function

请问走完这8阶楼梯的走法有（  ）

Dim i As Integer, sum As Integer

Dim a(1 To 6) As Integer, b(1 To 6) As Integer

sum = 0

a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16

For i = 4 To 1 Step -1

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

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

 If b(i) Mod 3 = 0 Then sum = sum + b(i)

Next i

Text1.Text = Str(sum)

该程序段运行后，文本框Text1中显示的内容是（  ）