（加试题）十进制a转换为b进制（2~16）的vb程序如下
Function tran(a as integer, b as integer) as string
Dim strd as string, n as integer
Do while a<>0
n=a mod b
a=a\b
If n>9 then
strd= &strd
Else
strd=str(n)&strd
Endif
Loop
Tran=strd
End function
Private sub command1_click()
m=val(text1.text)
n=val(text2.text)
Label1.caption=tran(a,b)
End sub
下列说法不正确的是

A．划线处的代码可以为：chr(55+n)

B．划线处的代码可以为：mid(“ABCDEF”,n-9,1)

C．若在划线处填上正确的代码之后，运行程序，在text1内输入123，text2内输入10，label1显示的结果为123

D．若需要转换为十七进制，划线处的代码可以使用mid(“ABCDEF”,n-9,1)

当a=5，b=7，c=－2，d=1时，逻辑表达式：A+b>c+d AND a>="5" OR NOT c>0 OR D<0的运算结果为True。（   ）

“神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是347千米，比近近地点高度高147千米。求近地点的高度。程序设计界面和部分代码如下所示。

图 1

图 2
Private Sub  ①      
Dim i, j As Integer A

i = 347 B

j = i – 147 C

Text1.Text = Str(j)   D

End Sub
（1）该程序开始运行时，直接得出近地点的高度，则在①处应填_____________________
（2）程序运行时，出现如图所示错误，对照如图，修改一处程序以使此程序正确运行。则修改______语句（选填：A/B/C/D）,修改后的语句为_________________

下列VB表达式的值等于13的是( )

A．Val("11") + 2	B．Str(11) + "2"
C．Sqr(11) + 2	D．Len("11") + 2

编写“十六进制加法”程序。程序运行时，在文本框Text1和文本框Text2分别输入两个十六进制数，单击“计算”按钮后在文本框Text3上输出两个十六进制相加后的结果。程序运行如图所示。

（1）观察代码，触发代码执行的事件名是________________________
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Cmd1_Click()
Dim a1 As String, a2 As String, sum As String, t As String
Dim b1 As Integer, b2 As Integer
Dim dist As Integer, x As Integer, jw As Integer
a1 = Text1.Text: a2 = Text2.Text: sum = ""
dist = Len(a1) - Len(a2)
If dist < 0 Then
t = a1: a1 = a2: a2 = t
___________________
End If
For i = 1 To dist
a2 = "0" + a2
Next i
jw = 0
For i = __________________________ 
If Mid(a1, i, 1) >= "A" And Mid(a1, i, 1) <= "F" Then
b1 = Asc(a1) - 55
Else
b1 = Val(Mid(a1, i, 1))
End If
If Mid(a2, i, 1) >= "A" And Mid(a2, i, 1) <= "F" Then
b2 = Asc(a2) - 55
Else
b2 = Val(Mid(a2, i, 1))
End If
x = b1 + b2 + jw
jw = x \ 16
If __________________ Then
sum = Chr(x Mod 16 + 55) + sum
Else
sum = Str(x Mod 16) + sum
End If
Next i
If jw = 1 Then sum = "1" + sum
Text3.Text = sum
End Sub
（3）若将代码中加框处代码删除，则图中Text3中显示的结果为_________。