（加试题）哥德巴赫 1742 年给欧拉的信中哥德巴赫提出了以下猜想：任一大于 2 的偶数都可写成两个 质数之和。下列 V

A．程序的功能即验证哥德巴赫猜想。程序运行时，在文本框 Text1 中输入一个大于 2 的偶 数，单击“证明”按钮 Command1 后，在列表框 List1 中输出所有符合猜想的组合，在标签 Label2 中输出 共有多少个组合。程序运行效果如下图所示。

为实现上述功能程序如下，但加框处的代码有误，请改正。
Private Sub Command1Click()
Dim n As Integer
Dim i As Integer, c As Integer
n = Val(Text1.Text)
List1.Clear
c = 0
If n Mod 2 = 0 Then
For i = 2 To n   ________
If is Prime(i) Then    ________
List1.AddItem n & "=" & i & "+" & n - i
c = c + 1
End If
Next i
Label2.Caption = "共有" & c & "种组合"
Else
Label2.Caption = "请输入一个大于 2 的偶数"
End If
End Sub
Function is Prime(x As Integer) As Boolean
Dim i As Integer
Is Prime = True
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then
Is Prime = False
Exit For
End If
Next i
End Function

设x=4,y=8,z=7,表达式x>z or z<x的值是(    )。

A．1

B．-1

C．true

D．false

长整型数据的存储空间是（   ）。

A．2个字节

B．4个字节

C．8个字节

D．16个字节

下列程序的功能是标签Label1中显示1+2+3+…+10值。
Dim s As Integer
Dim i As Integer
① s = 0
② For i = 1 To 10
③    s = i
Next i
④ Label1.Caption = Str(s)
错误在_________处，改为____________。

某商品团购优惠策略的流程图如图所示

当n为100、p为10时，实付金额s的值是(   )。

A．1000

B．950

C．850

D．750

假设变量a=4，b=5，执行t=a+b:a=b-a:b=t语句以后，a和b的值分别是（    ）

A．9 和9

B．1 和9

C．5 和1

D．9 和1

在VB中，如果要定义变量p用于存储年级学生姓名，那么变量p的数据类型是(   )。

A．String

B．Integer

C．Boolean

D．Date

下列程序的功能是在文本框Text1中显示变量a和b的较大值。
a = 1：b = 2
① If a > b Then
②    c = a
Else
③    c = b
End If
④ Text1.Caption = Str(c)
错误在______处，改为___________。

编写程序输出100~200之间不能被3整除的自然数，并统计出符合条件的个数。
程序如下：
Private Sub Form_Click()
Dim i As Integer
Dim t As Integer
For i = 100 To 200
If __________ Then    '不能够被3整除的条件
Print i
t=t+1
End If
Next i
End Sub
程序运行结束后t的值为_______________

表达式25 mod 3+23\5*2的值是 ( )。

A．0

B．2

C．3

D．6