有如下 VB 程序段：
Dim k As Integer，s As Integer k =" 0：s" = 0
Do While k > =" 10" k =" k" + 1
s =" s" + k Loop
该程序段执行后，变量 s 的值是（ ）

A．0

B．1

C．10

D．11

若变量a=5，b=8，则逻辑表达式：(a*b<10)  and not (a="b)" or (a+3=b)的值是（ ）。

A．Ture

B．False

C．8

D．40

在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：
      
其中将能正确地x和y两个变量中的数据进行交换的程序段有几个？

A．1个

B．2个

C．3个

D．4个

下列程序的功能是在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)

在VB中，如果x=-25.8，则运行“x=Int(x):x=abs(x)”后，x的值是（ ）

A．-25

B．25

C．-26

D．26