Private Sub Command1_Click()

Dim a As Integer

Dim b As Boolean

a = (a + 1) * 2

b = a - 1

print a:print b

End Sub

程序运行时，单击命令按钮Command1后，变量a和b的值分别是（  ）

小张编写了一个2查找孪生素数对(差值为 2)的 VB 程序，功能如下：在文本框Text1中输入一个整数n（n≤1000000），单击“求素数对”按钮Command1，在列表框List1中显示2到n范围内的素数，在标签Label2中显示素数个数，在标签Label3中显示孪生素数对个数。程序运行界面如图所示。

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim n As Long, i As Long, j As Long

Dim tAs Long '存储素数个数

Dim countAs Integer '存储素数对个数

Dim p As Long

Dim a(2 To 10000000)As Integer

n = Val(Text1.Text)

For i = 2 To n

    a(i) = 1

Next i

p = 2

Do While p <= Int(Sqr(n))

    If a(p) = 1 Then

        j = 2

        Do While j <= n \ p

                       '(1)

            j = j + 1

        Loop

    End If

    p = p + 1

Loop

t = 0

For i = 2 To n

    If a(i) = 1 Then t = t + 1

Next i

count = 0

For i = 2 To n - 2

    If  Then      '(2)

        count = count + 1

        List1.AddItem ads(i, 1) & ads(i + 2, 5)

    End If

Next i

Label2.Caption = "总共有" + Str(t) + "个素数"

Label3.Caption = "其中有" + Str(count) + "个孪生素数对"

End Sub

Function ads(xAs Integer, n As Integer) As String

'整数转换成长度固定的字符串，代码略

End Function

实现上述功能的VB 代码如下，其中加框处代码有错，请改正。

Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String n = Val(Text1.Text)

For i = 1 To n ^ 3 Step 2

    sum = 0: t = i: flag = False

    Do While sum <= n ^ 3 And flag = False

       sum = sum + t

            ⑴

       If sum = n ^ 3 Then flag = True

    Loop

    If flag = True Then Exit For

Next i

s = Str(n) + "^" + Str(3) + "="

Do While sum > 0

         ⑵

    If sum = 0 Then

        s = s + Str(i)

    Else

        s = s + Str(i) + "+"

    End If

    i = i + 2

Loop

Text2.Text = s

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

实现上述功能的VB程序如下：

Private Sub Command1_Click()

  List1.Clear

  Dim five(1 To 5) As Integer

  Dim i As Integer, j As Integer, k As Integer

  Dim p As Integer, find_pair As Boolean

  '随机抽取5张牌，将牌的点数存储在数组five中，并在List1中显示。代码略

  i = 5: p = 1: find_pair = False

  Do While i>= 2

    j=p

    Do While j <= i - 1

      If five(j) > five(j + 1) Then

        t = five(j): five(j) = five(j + 1): five(j + 1) = t

      ElseIf five(j) = five(j + 1) And Not find_pair Then

        t = five(1): five(1) = five(j): five(j) = t

        t = five(2): five(2) = five(j + 1): five(j + 1) = t

        find_pair = True

        i = i + 1

        p = _____________

        Exit Do

      End If

      j = j + 1

    Loop 

    i = i - 1

  Loop

  k = 0

  For i = 3 To 4

    If  Then k = k + 1

  Next i

  If five(1) = five(2) And k = 2 Then

    Label1.Caption = "运气不错:)"

  Else

    Label1.Caption = "运气一般:|"

  End If

End Sub

请回答下列问题：