应用实例：判断一个数是否为偶数，如果在文本框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

根据下列程序段运行后a的值 ，划线处应该填入的合理数据类型为 （ ）
Dim a As ________
a = 1
For i =" 1" To 8
a =" a" * i
Next i

A．Integer

B．Long

C．Single

D．Double

写出下列程序的输出结果
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "zhejiangxiaoshi"
c =" Mid(a," Len(a) \ 2 + 2, 7)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )

A．"xiaoshi"

B．"zhejiang"

C．zhejiang

D．xiaoshi

已知a=5、b=6，则执行如下语句后
a = a + b
b = a + b
a和b的值分别为（  ）

A．11、17

B．11、11

C．17、11

D．5、6

有如下一段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