设a=3,b=4,则下列表达式值最大的是（ ）

A．sqr(b/a)

B．b\a

C．int(b/a)

D．a mod b

有如下VB程序段：
For i="1" to 21 Step 2
s=s+i
Next i
该程序段运行后，共执行的循环次数是（ ）

A．21

B．10

C．9

D．11

如1图所示程序的功能是把输入的自然数分解为三个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中，其中“开始处理”按钮的名称是“Command1”。例如输入20，单击“开始处理”按钮后，则在列表框中会显示下列数据：
2 5 13
2 7 11

（1）程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为True，否则返回False。该函数的算法流程图如2图所示，根据流程图，完善程序中Function f(x)部分。

（2）主程序流程图如下图所示。其中n为输入的自然数，a1、a2、a3为分解出的三个正整数，t为a1、a2、a3是否同时为素数且三数相加是否为n的逻辑值。

则主程序流程图中①处应填写的内容是：
（3）在主程序Private Sub Command1_Click()中，主要采用的算法是：__________。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Dim t As Boolean
Function f(x) As Boolean
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
For a1 =" 2" To n
For a2 =" a1+1" To n
For a3 =" a2+1" To n
t="(a1" + a2 + a3 =" n)" And f(a1) And f(a2) And f(a3)
If t  Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub

下列程序段中，可以实现交换变量x、y值的是（ ）

A．y="x:" x="y"	B．z="x:" y="z:" x=y
C．z="x:" x="y:" y=z	D．z="x:" w="y:" y="z:" x=y

如下程序段运行后，k的值是   
Dim d(1 to 5)  As Integer
k=0
For i="1" to 5
d( i )=i
If d( i )>k Then k="d(" i )
Next i
Print k

下面程序段用于求两数中的较大数（结果保存到变量maxn中），不正确的是（ ）

A．maxn=x If y>="maxn" Then maxn=y

B．If x>y Then maxn="x" Else maxn=y

C．maxn=x If y>="x" Then maxn=y

D．If y>="x" Then maxn=y

maxn=x

假设b是布尔型变量，t是整数型变量，则下列赋值语句中正确的是（ ）

A．t="good"

B．b=“True”

C．b="#True#"

D．b=3<4

根据流程图写出虚线框内代码

求[1，100]内的所有能被7整除的数。

在流程图的空白处应填入 ________   。

VB语句“m =" 7" ：n =" sqr" (m-8)”运行错误，原因是它违反了算法特征中的（   ）。

A．确定性

B．可行性

C．唯一性

D．有穷性