在VB中，x=16，执行语句x=sqr(x)后，变量x的值是

A．1

B．4

C．8

D．16

赋值语句y = x的功能是________。

A．x的值赋给y，x的值变为0

B．y的值赋给x，y的值变为0

C．y的值赋给x，y保留原来的值

D．x的值赋给y，x保留原来的值

应用实例：判断一个数是否为偶数，如果在文本框te1中输入一个数，在标签Label1中直接出现相应的判断结果。在程序处完成以下3处填空

Private Sub ①
Dim   a  As Integer
a=Val(Te1.Text)
Label1.Caption = ②
End Sub
Function ou(i as integer) As ③
If i Mod 2 =" 0" Then
ou = "该数为偶数！"
Else
ou = "该数为奇数！"
End If
End Function

若变量m =" 0" .81 ，则表达式Sqr ( m ) ＜1 And Not int ( m) > 1 的值是_____

A．T

B．F

C．0.9

D．1

有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

A．1

B．3

C．123

D．321