（加试题）某一条形码是由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

小庄编写了一个统计数组元素a(l)到a(n)中的“升序段”个数s(如图所示的数据序列，其 “升序段”的个数等于3)的VB程序。部分程序如下：

k = 0 ： s = 0
For i =" 2" To n
If a(i) > a(i - 1) Then

Else
If k =" 1" then
s=s+1
k=0
end if
End If
Next i
Textl.Text = Str(s)
方框中的正确语句是(    )

A．k =" k" - 1	B．k =___1___
C．k = -1	D．k =" k" + 1

有如下VB程序段：
s = Text1.Text
t = 0: Sum = 0
For i = 1 To len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
t = t * 10 + Val(c)
ElseIf c >= "a" And c <= "z" Then
Sum = Sum + t
Else
t = 0
End If
Next i
Text2.Text = Str(Sum)
在文本框Text1中输入“123aBc456”，执行程序段，文本框Text2中显示的内容是（   ）

A．456

B．654

C．579

D．123

假设b是布尔型变量，t是整数型变量，则下列赋值语句中正确的是（ ）

A．t="good"

B．b=“True”

C．b="#True#"

D．b=3<4

有如下VB程序：
Private Sub Command1_Click()
Dim a(5) As Integer
Randomize
For i = 1 To 5
a(i) = 2 * Int(Rnd * 3) + 1
Next i
For i = 1 To 5
r = 2 * Int(Rnd * 3) + 1
If a(r) Mod 2 = 1 Then a(r) = a(r) + 1
Next i
End Sub
该程序段运行后，a(1)~a(5)各元素的值不可能的是（   ）

A．2，5，6，1，4	B．4，1，2，3，4
C．5， 6，3，2，6	D．6，5，2，1，2