有如下VB程序段：
Dim x As String, y As String
Dim ans As Integer
x = "5": y="20": ans = 0
If x > y Then
ans = val(x)-1
Else
ans= Val(y)+1
ans= ans+ Val(x +y)
Text1. Text = Str(ans)
执行该程序段后，文本框Text1中显示的是（   ）

A．46

B．29

C．524

D．541

下列程序的执行结果是( ）
PRIVATE  SUB  FORM__CLICK( ）
X=INT(RND)+5
IF   X   THEN   PRINT   X  ELSE  PRINT  X+2
END  SUB

A．0

B．7

C．出错

D．5

设计算法，求个位不小于十位的两位数的和，请将如下VB代码填写完整。
Dim n as integer
n = 10
（1）__________
do while n <= 99
if （2）__________  then
s = s+n
end if
n = n + 1
loop
print  s

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

 

 

 (1)在设计程序界面时，应使用上方右图所示“控件工具箱”中的______(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int(①_____________)*2+1
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

下列VB程序段的输出结果是
a=25:b=18:c=b
if  a>b  then
c=a
end if
print c

A．25

B．18

C．7

D．0