现有如下Visual Basic程序：

Private Sub Command1_Click()

Dim i As Integer, c As String, s As String, t As String

s = Text1.text

t = ""

For i = 1 To Len(s)

c = Mid(s, i, 1)

If  c >= "0" And c <= "9"  Then t = t + c

Next i

Text2.text = t

End Sub

运行该程序，在文本框Text1中输入“2016_Student”（不包含引号），单击命令按钮Command1后，文本框Text2中显示的内容是_________。

某算法流程图如第5题图所示，最后输出s的值是（    ）

A．0.25

B．1

C．2

D．8

（加试题）某一条形码是由13位数字组成的编码，其末位是校验码。条形码校验的方法如下：
①除校验码之外，求其余12位编码中的奇数、偶数的数字之和；
②将偶数的数字之和乘以3，加上奇数的数字之和；
③取第②步得到结果的个位数字，用10减去该数字，将得到的结果存入变量m；
④若m的值为10，则将m的值修改为0，否则不变；
⑤若m和校验码相等则输出“校验码正确！”，否则输出“校验码错误！”。
现编写一个VB程序，实现如下功能:在文本框Text1中产生条形码数字序列，单击“校验”按钮Command1，在标签Label1中输出对应的校验信息，界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, x As Integer
Dim n As Integer , js As Integer, os As Integer, m As Integer
Js=0: Os=0    
s = Text1.Text
 n = Log(s)     改正:_______________①
If n <> 13 Then
Label1.Caption = "条形码位数错误!":学#科#网Z#X#X#K
Else
For i = 1 To 12
x = Val(Mid(s, i + 1, 1))     改正:______________② 
If x Mod 2 <> 0 Then
js = js + x
Else
os = os + x
End If
Next i
m = os * 3 + js
m = 10 - m Mod 10
If m = 10  Then m = 0
If m=Val(Mid(s,n,1)) Then
Label1.Caption = "校验码正确!"
Else
Label1.Caption = "校验码错误!"
End If
End If
End Sub

有如下Visual Basic程序段：
a＝2
b＝4
c＝3
m＝a
If b>a Then m＝b
If c>m Then m＝c
该程序段运行后，变量m的值是

A．2

B．3

C．4

D．5

以下程序实现倒计时功能，编辑界面如下。在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）在③处，应填上代码   。