Dim n,s As Integer    'n为试题计数器,s为得分

Dim a, b As Integer  'a，b 为两个运算数

Dim c As String 'c为运算符："+ "表示加法，"-"表示减法

Private Sub Form_Load()

n = 0:

s = 0

End Sub

Private Sub Command1_Click()   ‘出题按钮

Randomize

n = n + 1

If n < 11 Then

      Label1.Caption = "No：" + Str(n)

      a = Int(Rnd * 100)  'a，b为运算数，且要求a不小于b

      b = Int(Rnd * 100)

      If   {#blank#}1{#/blank#}Then t = a: a = b: b = t                '(1)

      If  Rnd > 0.5  Then c = "+" Else{#blank#}2{#/blank#}        '(2)

      Label5.Caption = Str(a) + c + Str(b) + "="

      Text1.Text = ""

Else

   Command1.Caption = "完成测试"

End If

End Sub

Private Sub Command2_Click()   ‘判断按钮

If c = "+" Then

             If   a + b = Val(Text1.Text) Then  s = s + 10

           Else

             If  {#blank#}3{#/blank#}Then  s = s + 10    '(3)

End If

Label3.Caption = "得分:" + Str(s)

End Sub

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

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

Private Sub 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

                 '①

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))

                            '②

            If i Mod j = 0 Then Exit For

        Next j

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

    Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

小明编写了一个VB程序来计算e的近似值，功能为在文本框Text1中输入公式n值，单击“计算”命令按钮Commong1，在标签Label2中显示计算结果，程序运行界面如图所示。

For i = 2 To 6

    For j = 1 To i - 1

        If a(j) <= a(i) And d(j) >= d(i) Then

            d(i) =d(j)+1 : pre(i) = j

        End If

    Next j

Next i

max = 0 : k = 0

For i = 1 To 6

    If d(i)>max Then max = d(i) : k = i

Next i

Do While k <> 0

    st = a(k) & ","& st

    k=pre(k)

Loop

Text1.Text = Mid(st, 1, Len(st) - 1)

数组元素a（1）到a(6)的值依次为“2，6，5，9，8，8”，数组d各元素的值初始化为1，数组pre各元素的值初始化为0，经过该程序段“加工”后，Text1中的值是(   )

实现功能：键盘上输入任意一个正整数，将其按冰雹猜想的规则进行拆解，输出每一步拆解的值和总步数，验证其是否符合冰雹猜想。

冰雹猜想是指：一个正整数，如果是奇数就乘以3再加1，如果是偶数就对它除以2（如下图），这样经过若干次，最终回到1。无论这个过程中的数值如何庞大，就像瀑布一样坠落，在经过若干次的变换之后也必然会到纯偶数：4－2－1。

N变为

x＝{#blank#}1{#/blank#}(input("请输入任一正整数："))

n＝0

while({#blank#}2{#/blank#})：

    if (x%2 ！＝ 0)：

        x＝{#blank#}3{#/blank#}

   else：

        x＝int(x/2)

    print({#blank#}4{#/blank#}, end＝" ")