编写“数字序列”程序，实现如下功能：在文本框Text1中输入[100,500]范围内的整数，单击“生成”按钮Command1，在列表框List1中显示9个该序列的数字。数字序列的生成规则为：该项的数字+该数百位上的数字+该数十位上的数字+该数个位上的数字=下一项的数字，例如：365+3+6+5=379。小明编写了VB程序，运行的界面如图所示，程序代码如下：

（1）代码“Private Sub Command1_Click()”中的Command1_Click()是_________。
（单选，填字母：

A．对象名

B．事件

C．事件处理过程

D．方法   ）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click(   )
Dim n As Integer, i As Integer
Dim a As Integer,b As Integer
Dim c As Integer
List1.Clear
n = Val(Text1.Text)
If n >= 100 And n <= 500 Then
For i = 1 To 9
 
a = n \ 100
b = (n - 100 * a) \ 10
c = n Mod 10
_______________________
   
Next i

Else
List1.AddItem "输入数值有误"
End If

End Sub
（3）上述代码段中缺少了List1.AddItem Str(i)+"."+Str(n)，此句代码应该加在_____（填字母）位置。
（4）若输入的数字为123，则List1中第三行为__________________。

某VB程序段如下：
s=0
For i=2 To 5
For j=i To 5
If j Mod i=0 Then
a(j)=a(j)+1
s=s+a(j)
End If
Next j
Next i
数组a的初值均为0，上面程序段执行后，最终变量s的值为（ ）

A．6

B．5

C．4

D．3

某 VB 程序代码如下：
n=Val(Text1.Text)
sum=n
k=4
Do While n\k>0
sum=sum+n\k 
n=n\k+n mod k
Loop
Text2.Text=Str(sum)
在文本框 Text1中输入10，执行该程序段后，文本框 Text2中显示的值是（  ）

A．12

B．13

C．14

D．16

有如下 Visual Basic 程序段：
s = 0
For k = To 5 s = s + k
Next k
该程序段运行后，循环体 s = s + k 被执行 10 次，则循环变量 k 的初值是（   ）

A．14

B．-5

C．1

D．-4

用计算机无法解决"打印所有素数"的问题，其原因是解决该问题的算法违背了算法特征中的(    )

A．唯一性

B．有穷性

C．有0个或多个输入

D．有输出

下列能表示"x 大于0 且 x 小于10"的Visual Basic表达式是(    )

A．x > 0 Or x < 10	B．x >= 0 And x < 10
C．x >= 0 And x <= 10	D．x > 0 And x < 10

在Visual Basic中，表达式1234 Mod 10的值是(    )

A．1

B．2

C．3

D．4

（加试题）某VB程序段如下：
s = ""
For i = 1 To 5
a(i) = 0
Next i
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then a(j) = 1 - a(j)
Next j
Next i
For i = 1 To 5
If a(i) = 1 Then s = s + Str(i)
Next i
Text1.Text = s
运行该程序段后，Text1中显示的内容为

A．2 3 5

B．1 4

C．2 5

D．2 3 4

（加试题）小明编写了一个统计字符串中数字字符串之和的VB程序（如字符串“ab12.3cd34ef9”,中数字字符串之和为58：12+3+34+9），运行界面如图所示。在文本框Text1中输入字符串s，单击“统计”按钮Command1，在Label3中输出统计结果。

实现上述功能的VB程序代码如下，但划线处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, ch As String
Dim ch2 As String, sum As Double
Dim n As Integer, i As Integer
s = Text1.Text
n = Len(s)

i = 1: sum = 0

  Do While  i < n ＇①_____________
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
j = i
ch2 = Mid(s, j, 1)
Do While ch2 >= "0" And ch2 <= "9"
j = j + 1
ch2 = Mid(s, j, 1)
Loop
sum = sum + Val（Mid(s, i, j – i - 1)）    ＇②_____________
i = j
End If
i = i + 1
Loop
Label3.Caption = Str(sum)
End Sub

（加试题）异或的数学符号为“⊕”，其运算法则相当于不带进位的二进制加法：0⊕0=0，1⊕0=1，0⊕1=1，1⊕1=0（即符号两侧数值相同时，计算结果为0；数值不同时为1）。
如果要对两个十进制数进行异或运算，可以按以下步骤进行：
①   先将要进行异或运算的两个十进制数分别转换为二进制；
②   对两个二进制数按位进行异或运算；例：(101101)₂⊕(111)₂=(101010)₂
③   再把步骤②中的运算结果转换为十进制，该十进制数即为运算结果。
小明编写了一个VB程序来模拟上述运算过程，程序功能如下：在文本框Text1和Text2中分别输入要参加异或运算的十进制数，单击计算按钮Command1，程序对输入的两个数进行异或运算，并将运算结果显示在文本框Text3中，程序运行界面如图所示。

（1）通过以上关于异或运算的描述，可知10⊕6的结果是___________。
（2）实现上述功能的VB程序如下。请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim a1 As String, b1 As String
Dim lena1 As Integer, lenb1 As Integer, i As Integer
Dim result As String
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
c = a: a = b: b = c
End If
result = ""
a1 = DtoB(a): b1 = DtoB(b)
lena1 = Len(a1): lenb1 = Len(b1)
i = 1
Do While i <= lena1
If Mid(a1, lena1 - i + 1, 1) = Mid(b1, lenb1 - i + 1, 1) Then
result = "0" + result
Else
result = "1" + result
End If
i = i + 1
Loop
result =①_____
Text3.Text = BtoD(result)
End Sub
Public Function DtoB(x As Integer) As String
Dim remainder As String
DtoB = ""
Do While x > 0
remainder = CStr(x Mod 2)  ＇如：CStr(3 Mod 2)的值为"1"
DtoB = remainder + DtoB
②________  
Loop
End Function
Public Function BtoD(x As String) As Integer
Dim i As Integer
BtoD = 0
For i = 1 To Len(x)
BtoD =③________+ Val(Mid(x, i, 1))
Next i
End Function