VB程序中表达式 33 mod 17\3*2的值为（   ）

A．10

B．1

C．2

D．3

素数只能被 1 和它本身整除，不能被其他自然数整除。编写 VB 程序实现如下功能：单击“产生奇数并判断”按钮 Command1，随机产生一个三位正奇数显示在文本框 Text1 中，并在文本框 Text2 中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为 953 时，程序运行界面如图 a 所示。

(1)在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____(填写相应编号)添加文本框 Text1。
(2)实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n =____________________ ‘n 为三位正奇数
Text1.Text = Str(n) : flag = True: i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0    Then flag = False
End If
i = i + 2
Loop
If ____________Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是_____(单选，填字母）。

A．    n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i

下列程序的功能是在text1中输入的自然数，分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入20，那么在列表框中会显示如下图所示结果。其中，上述界面中“分解”按钮的名称是“Command1”，程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为true，否则返回false.

请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Function f(x) As Boolean
f = True
For i =" 2" To Sqr(x)
If x Mod i =" 0" Then _____( 1 )_____
Next i
End Function
Private Sub Command1_Click()
n = _______( 2 )_______
For a1 =" 2" To n
For a2 =" a1" To n
For a3 =" a2" To n
If _______( 3 )_______ And f(a1) And f(a2) And f(a3) Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub
(1)
(2)
(3)

设a=2,b=3,c=4,d=5,表达式a>b And c<=d Or 2*a>c 的值是（    ）

A．True

B．False

C．-1

D．1

将数学关系式5≤x<14表示成VB表达式，正确的是（  ）

A．x>=5 and x >14	B．5≤x and x<14
C．x>=5 or x<14	D．x>=5 and x <14