某算法的流程图如图所示，若输入值依次为7.3.2.1.执行这部分流程图后，输出的值为

A．3

B．1

C．4

D．2

程序阅读题：
(1)a=5
b=6
b=a*b
a=b+a
该程序段执行后，a的值为__________，b的值为________。
(2)y=3
x=y^2
If x>10 then y=y*10 Else y=x*y
该程序段执行后，y的值为__________。

键盘输入两个数，然后输出大数。
DIM  A  AS  INTEGER，B  AS  INTEGER
A=5：B=7
MAX=___________
PRINT  MAX
END
FUNCTION  AA（X  AS  INTEGER，Y  AS  INTEGER）
IF  X>Y  THEN 
_______________________
ELSE
_______________________
END   FUNCTION

S=0: M=0:N=0
FOR  I=1  TO   20
IF   I   MOD  2=0    THEN
S=S+1
ELSEIF  I   MOD  3  =0  THEN
M=M+1
ELSEIF   I   MOD  5 =0  THEN
N=N+1
END  IF
NEXT  I
PRINT  S,M,N
这段程序的执行结果是( )

A．10   4    1

B．10   3   1

C．10   5    2

D．10   3   3

下列程序的执行结果是( ）
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

按了回车键后，将组合框中输入的内容添加到组合框中，组合框的名称是COMBO1。
PRIVATE    SUB    COMBO1________[1]（KEYASCII  AS   INTEGER）
IF  ________[2]
________[3]
END  IF
END   SUB

某算法部分流程图如图所示。执行这部分流程，依次输入12、10、2、18、7、20、19、-1，则输出值是

A．19   20

B．20    19

C．2  7

D．7   2

素数只能被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程序段：
Dim a(1 To 5) As Intger
A(1)=5  :  a(2)=3  :  a(3)=8  :  a(4)=4  :  a(5)=2
For i = 1 To 4
If a（i）> a（i+1） Then
t = a(i): a(i) = a(i + 1): a(i + 1) = t
Endif
Next i
当程序运行结束后，a(5)的值是（   ）。

A．2

B．4

C．5

D．8

有如下 VB 程序段：
i=1：n=5
Do while i<=n x=Int(Rnd*9)+1
If   x Mod 2=1 Then a(i)=x
Else
a(n)=x:n=n+1
EndIf
i=i+1
Loop
数组元素的初值均为 0，执行该程序段后，a(1)至 a(5)的值可能是（   ）

A．1 , 3 , 5 , 5 , 0

B．3 , 3 , 0 , 8 , 8

C．0 , 1 , 0 , 4 , 2

D．7 , 1 , 3 , 9 , 8