以下程序实现倒计时功能，编辑界面如下。在Text1中输入数字后，点击“开始”按钮后，在Label1中显示从输入的值到0，每隔1秒中，数字减1。
根据题目要求，完成下面各题。

程序的代码代码，如下：
Dim t As Integer
Private Sub Command1_Click()
t = Val(①)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Text = Str(t) ②
If  t =" 0" Then
Timer1.Enabled = False
MsgBox "时间到！"
Else
③ '数字t减1
End If
End Sub
（1）根据题目意思，应该把Timer1的Interval设置为     。
（2）在①处，应填上代码 。
（3）②所在行，运行时提示错误“未找到方法或者数据成员”，应改正为 。
（4）在③处，应填上代码   。

运行如下VB程序：
Private Sub Command1_Click( )
　Dim x As Integer
　Dim y As String
　x＝Val(Text1.Text)
　If x＞＝95 Then
y＝“非常满意”
　ElseIf x＞＝80 Then
y＝“满意”
　ElseIf x＞＝60 Then
y＝“基本满意”
　Else
y＝“不满意”
　End If
Label1.Caption＝y
End Sub
在文本框Text1中输入50，单击命令按钮Command1后，在标签Label1中显示(　 　)

A．非常满意	B．满意
C．基本满意	D．不满意

小明编写一个模拟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．③中“输出验证码错误”

设计算法：香蕉促销：3千克以下（不包括3千克），每千克3.5元，3-6千克（不包括6千克），每千克3元，6千克以上，每千克2.6元。请补全以下代码。
Dim  w  as  double
Dim  p  as  double
W = inputbox(“请输入购买的重量：千克”)
If   （1）__________  then
If （2）__________ then
P =3 *w
Else
P =2.6 *w
End if
Else
P=3.5*w
End if
Print  p

有以下程序段：
s = 1:j=2
Do While s<j
For j =" 2" To -2  Step -1 
s = s*j 
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是(    )

A．1

B．4

C．5

D．6