某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

数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

（1）程序运行时要在按钮上显示“统计”，应设置该按钮的________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Single, k As Integer, t As Integer, c As Integer
List1.Clear c=0
For n = 5 To 10000
k = Len(Trim(n))   'Trim()函数用于删除字符串前后的空格
t = (n * n)    Mod
If t = n Then
① _     List1.AddItem   Str(n)
②     
End If
Next n

Label1.Caption = "自守个数为：" + Str(c)

End Sub
为实现上述功能，划线处应填入的代码分别为
①__________________________________________ 。
②___________________________________________。
（3）解决该问题采用了_______（选填：枚举/解析）算法。

小明在物理课堂上学了并联电阻的阻值计算知识（并联后的电阻阻值的倒数等于各个并联电阻阻值的倒数之和）后编写了一个计算并联电阻阻值的程序，程序界面如 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,”后,单击“计算”按钮后，则程序的运行结果为__________ 。

《孙子算经》中有一个“物不知其数”的问题，某数以3除余2，以5除余3，以7 除余 2。下面的 VB 程序用于求 1000 以内满足该条件的自然数及个数，请在程序划线处应填入合适的表达式。
Private Sub Command1_Click() Dim c As Integer, n As Integer c = 0 : n = 9
Do While n <= 1000
If n Mod 3 = 2 And n Mod 5 = 3 Then
List1.AddItem Str(n)
c = _____________
End If
n = _____________
Loop
Label1.Caption = "1000 以内满足条件的数有" & Str（c）& "个"
End Sub

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

A．13

B．9

C．4

D．1

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成。信上面说，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（１）“Ａ”变为一个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

编写“二进制数转换为十六进制数”程序，实现如下功能：在文本框 Text1 输入一个二进制数，单击“转换”按钮 Command1，将二进制数转换为十六进制数并在文本框 Text2 中显示。程序运行界面如下图所示。

（1）设计如图所示的程序界面，至少要使用_____个类（填数字）。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Dim i As Integer, x As Integer
Const code="0123456789ABCDEF"
s1=Text1.Text
s2=""
Do While Len(s1) Mod 4<>0 
s1="0"+s1
Loop
x=0
i=1
Do While i<=Len(s1)
x=x*2+Val(Mid(s1,i,1))  
i=i+1  
If ____________    Then ‘(1)
s2=s2+Mid(code,x+1,1)
______________  ‘(2)
End If
Loop
Text2.Text=s2
End Sub
（3）若文本框 Text1 中输入的内容为“101101” ，单击“转换”按钮后，文本框 Text2 中显示的内容是_______。

设有n盏灯，放在一排。从1 到 n依次顺序编号。有 n个人也从1到n依次编号。第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的。（亮灯为0，关闭为1）
为了实现这一目标，完善下列程序，使之能完成该功能。
Private Sub Command1_Click()
Const n=20
Dim i As Integer,j As Integer
Dim a(1 To n) As integer
For j=1 To n
a(j)=0
Next j
For i=1 To n
For j=1 To n
If j Mod i=0 Then
______________ ‘(1)
End If
Next j
Next i
For j=1 To n
If ________ Then List1.AddItem  Str(j) ‘(2)
Next j
End Sub

某木材加工厂需要把购入的木料切割成长度为3米和7米两种规格的线材。现要求编写VB程序(运行界面如图所示)，实现如下功能：在文本框Text1中输入木材长度，单击“计算”按钮Command1，计算出一种废料长度最小的切割方案，在文本框Text2和文本框Text3中分别输出该切割方案所得3米和7米两种规格线材的数量。请将代码补充完整。

Private Sub Command1_Click ()
Dim length As Single '木料长度
Dim min As Single    '最小废料长度
Dim x As Integer   '3米规格线材数量
Dim y As Integer   '7米规格线材数量
Dim f As Single '废料长度
Dim a As Integer   '废料最少的切割方案所得3米规格线材数量
Dim b As Integer   '废料最少的切割方案所得7米规格绒材数量
length=Val(Text1.Text)
min=length
For x=0 To _________ ‘（1）
y=(length-3*x)\7
____________    ‘（2）
If f<min Then
min=f
a=x
_____________  ‘（3）
End If
Next x
Text2.Text=Str(a)
Text3.Text=Str(b)
End Sub

有如下VB程序段:
Dim a(1 To 5)  As  Integer
Pos=-1
i=1
Do While i<=10
If  i Mod 2=0  Then  a(i)=i*2  Else  a(i)=i
i=i+1
Loop
i=10
Do While  i>=1
If  a(i)=12  Then  Pos=i
i=i-1
Loop
该程序段运行后,变量Pos值是(  )

A．1

B．2

C．6

D．10