在编程中经常要交换两个非零变量的值，以下方法中，能实现a、b两个数值型变量交换的是（ ）。（“：”号作用为分隔2句语句）

A．T="a" ：  a="b" ：  b=T

B．a="b" ：  b=a

C．a="a+b" ：   b="a-b" ：   a=a-b

D．a="c" ：  c="b" ：  b=a

小李利用所学的 VB 知识，编写了一个简单计算器：在文本框 Text1 中输入一个加减算式（只包含数字和“ +”、“ -”符号，以“ =”结束），点击“计算”按钮 Command1，计算结果在标签 Label1 上显示。程序运行界面如下图所示：

（1）要实现程序运行时，单击文本框 Text1 即可将文本 框 清 空 ， 则 应 在 _______(A 、Command1_Click/B、 Form_Load/C、 Text1_Click)事件处理过程中添加语句 Text1.text=”” 。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click
Dim s As String, ch As String, sum As  Integer
Dim fh As Integer
s = Text1.Text: fh = 1: p = 0: sum=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
p = ①________
Else
sum = ②________
p = 0
If ch = "-" Then
fh = -1
ElseIf ch = "+" Then
fh = 1
End If
End If
Next i
Label1.Caption = Str(sum)
End Sub
（3）若文本框 Text1 中输入的内容为“ 12*10=”（不包括双引号），单击“计算”按钮后，标签Label1 上将显示：________ .（A、 120 / B、 22 / C、 0 /D、程序出错无法显示）

文本框失去焦点触发的事件是（_______________）

将一个十进数转化为任意进制可以采用“除权取余法”。方法是：a 为十进制数，n 为转化的 进制，从 a 开始循环除以 n，记下余数，整数商作为新的 a 继续除以 n ，直到 a=0 为止。然后 倒序取余数即可。余数 k 如果为 10<=k<=15，用字母依次记作“ABCDEF”，比如 k=10，记作 A。该 程序界面如下图所示，在文本框 Text1 中输入一个任意十进制数，在文本框 Text2 中输入要转换 的进制，单击“开始转换”按钮后，对应的进制数在文本框 Text3 中显示。

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

A．对象名/

B．属性名/

C．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_click()
Dim a As Integer, n As Integer, k As Integer, b As String
Const m = "0123456789ABCDEF"
a = Val(Text1.Text)
①_________
Do While   ②_________
k = a Mod n   '求 a 的余数
a = a \ n
b =③__________ + b
Text3.Text = b
Loop
End Sub
（3）在实现程序功能后，在 Text1 中输入 “16”，在 Text2 中输入 “16”，Text3 显示的内容是____

下列VB程序运行时，在文本框Text1中输入1234，单击命令按钮Command1后，文本框Text1中显示的内容是________。该程序使用了________结构（填：顺序 / 选择 / 循环）。

Private   Sub  Command1_click ( )

Dim  n  As  Integer , x  As  Integer
n = Val ( Text1.Text  )
x = n  Mod 10
n = x * 1000 + n \ 10
Text1.Text = Str ( n )

End  Sub