下列程序执行后变量 m 的值为（   ）
s = "369akXdUq" m = 0
For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z" Then

m = m + 1

End If

Next i

A．1

B．3

C．4

D．2

有如下VB程序段：
Dim i As Integer, sum As Integer
Dim a(1 To 8) As Integer
sum = 1
a(8) = 49: a(7) = 28
For i = 6 To 1 Step -1
a(i) = a(i + 2) - a(i + 1)
If a(i) Mod 3 = 0 Then sum = sum + a(i)
Next i
text1.Text = Str(sum)
该段程序运行后，文本框Text1中显示的内容是（   ）

A．21

B．43

C．42

D．1

完成以下 VB 程序代码
（1）有如下 VB 程序段，
a = 167
b = a\100
c = b mod 10
该程序段运行后，变量 c 的值为_____ 。
（2）有如下 VB 程序段，
a=2:b=7:c=4
If a<b Then t=a:a=b:b=t
End If
If b<c Then c = c-b
End If
该程序段运行后，整型变量 a 的值是_____，b 的值是_____，c 的值是_____。

现要求编写 VB 程序实现如下功能：在文本框 Textl 中输入正整数 n (n 为奇数），单击 “生成” 命令按钮后，如下图所示，在文本框 Text2 中会显示一个有规律的对称数字串，形式为"1 3 …n-2 n n-2 3 1" 。例如 n=9 时，显示的数字串为 “1 3 5 7 9 7 5 3 1”

（1）根据代码可知，命令按钮 “生成 ” 的对象名是______________ 。
（2）实现上述功能的 VB 程序如下。请在划线处填入合适代码。
Private Sub Com1 _Click()
Dim n As Integer, i As Integer, s As String
①__________
s = ""
For i = 1 To n
If   i<= n \2 + 1   Then
s = s + Str (2*i-1)
Else
s = s + ②__________ 
End If
Next  i
③__________
End Sub

执行如下VB程序段
S=0
For i=20 To 1 Step -5
S=S+1
Next i
Text1.text=str(s)
文本框中显示的值是（   ）

A．50

B．20

C．5

D．4

有如下Visual Basic程序段：
Dim i As Integer, s As Integer
s = 0
For i = 1 To 20
If i Mod 3 = 2 And i Mod 5 = 3  Then  s = s + i
Next i
Label1.Caption = str(s)
执行以上程序后，标签Label1中显示的内容为

A．0

B．8

C．13

D．17

有如下VB程序段：
For i=2 To 8
Max=0
For j=1 To i-1
If a(i)>a(j) And f(j)>Max Then Max=f(j)
Next j
f(i)=Max+f(i)
Next i
数组f元素的初始值都为1，数组a的元素值为5,3,47,4,31,39,7,8，程序运行后f(6)的值为（   ）

A．1

B．2

C．3

D．4

某VB程序的部分代码如下：
a(1)=2
a(2)=3
For i=3 To 7
a(i)=a(i-1)*a(i-2)
If a(i)\10>0 Then
a(i+1)=a(i) Mod 10
a(i)=a(i)\10
i=i+1
End If
Next i
则执行该程序段后，数组元素a(8)的值为（ ）

A．2

B．4

C．6

D．8

小明在物理课堂上学了并联电阻的阻值计算知识（并联后的电阻阻值的倒数等于各个并联电阻阻值的倒数之和）后编写了一个计算并联电阻阻值的程序，程序界面如 16 题图所示。在文本框Text1中输入各个并联电阻的阻值以“，”为间隔，单击“计算”按钮 Command1 后，将这些电阻并联后的阻值计算结果显示在 Label4 中。

（1）要使程序运行后，窗体 Form1 的标题栏中显示“阻值计算”，正确的做法是________。（单选，填字母：

A．将窗体的 Text 属性改为 “ 阻值计算”/

B．在 Form_Load( ）事件中输入代码 Form1.Caption=“阻值计算”/

C．在 Form1_Load()事件中输入代码 Form.Name= “阻值计算”)

（2）实现上述功能的程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, r As String, ch As String
Dim Rs As Single   ‘Rs 变量表示并联后的总阻值
Dim i As Integer
s = Text1.Text
r = "": i = 1: Rs = 0
Do While _____________
ch = Mid(s, i, 1)
If ch <> "," Then 
r = r + ch
Else
Rs = Rs + 1 / Val(r)
r = ""End If
i = i + 1
Loop
Rs = _____  Rs = 1 / Rs
Label4.Caption = _____
End Sub
(3) 如果在文本框 Text1 中输入“2,2,”后,单击“计算”按钮后，则程序的运行结果为__________ 。

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成。信上面说，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（１）“Ａ”变为一个1到100内的随机整数×27+1，“Ｂ”变为一个１到100内的随机整数×27+2，……，“Ｚ”变为一个１到100内的随机整数×27+26；
（２）每个字母变为数字后会加上一个“－”用来分隔数字；
（３）其他空格和标点字符都按原文表示。
 
李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序将解密后的内容显示在文本框Text2中。
（１）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（２）根据描述，若密文为“1905-1442-” ，则表示的是________________。
Private Sub Command1_Click()
Dim s As String, yw As String, t As String
Dim value As Integer    
s=Text1.Text
value=0
yw=""
For i=1 To Len(s)
___________________    ‘① 
If t>="0" And t<="9" Then 
value=value*10+Val(t)

ElseIf t="-" Then 

  yw=yw+Chr(Asc("A")+value Mod 27-1)

   ____________________   ‘② 
Else
___________________ ‘③ 
End If
Next i
Text2.Text=yw
End Sub