某VB的事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a =" 2" * a + 1
Text1.Text = Str(a)
End Sub
程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是（   ）

A．7

B．5

C．3

D．1

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

将文本框Text1中的数据赋值到数值型变量n中，正确的语句是（  ）

A．n = text1	B．n = Text1.text
C．n = Str(Text1.text)	D．n = Val(Text1.text)

有如下Visual Basic程序段：
x=2.1Ifx>6.0Then
Label1.Caption="Pass"
Else
Label1.Caption="Fail"
EndIf
该程序段运行后,Label1标签上显示为_____________

小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text    '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”   'Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “   ”
Else
MsgBox “    ”
方框中正确的语句是（ ）

A．①中“验证成功”	B．②中“输出用户名或密码有误”
C．②中“验证成功”	D．③中“输出验证码错误”