11．用英文字母 A～D 對(duì)數(shù)字字符 0～9 進(jìn)行編碼，規(guī)則如下表所示：
| 數(shù)字字符 |
0 |
1 |
... |
7 |
8 |
9 |
| 二進(jìn)制值 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
1 |
... |
0 |
1 |
1 |
1 |
1 |
0 |
0 |
0 |
1 |
0 |
0 |
1 |
| 十進(jìn)制值 |
0 |
0 |
0 |
1 |
... |
1 |
3 |
2 |
0 |
2 |
1 |
| 對(duì)應(yīng)編碼 |
A |
A |
A |
B |
... |
B |
D |
C |
A |
C |
B |
例如，數(shù)字字符串“709”的編碼為“BDAACB”。用 VB程序?qū)崿F(xiàn)上述編碼，功能如下：在文本框 Text1 中輸入編碼的一串?dāng)?shù)字字符，單擊“編碼 命令按鈕 Command1，在文本框 Text2 中顯示編碼 結(jié)果。程序運(yùn)行界面如圖所示。
（1）下列屬于 VB 窗體文件的是
（單選，填字母）。
A.szbm.vbpB.szbm.frmC.szbm.exe
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click _
Dim code As String,s As String,ch As String,result As String
Dim i As Integer,numL As Integer,numR As Integer
Dim flag As Boolean
code=“ABCD“
s=Text1.Text
flag=True
result=““
For i=1 To ①
ch=Mid（s,i,1）
If ch＜“0“Or ch＞“9“Then
flag=False
Exit For'退出循環(huán)
Else
numL=Val（ch）\4
numR=②
result=result+Mid（code,numL+1，1）+Mid（code,numR+1，1）
End If
Next i
If flag Then
Text2.Text=result
Else
Text2.Text=“輸入錯(cuò)誤“
End If
End Sub
（3）運(yùn)行該程序，若在文本框 Text1 中輸入“A5”，單擊“編碼”命令按鈕 Command1，在文本框 Text2 中顯示編碼結(jié)果為
。
