用英文字母 A～D 對數(shù)字字符 0～9 進行編碼，規(guī)則如下表所示：
| 數(shù)字字符 |
0 |
1 |
... |
7 |
8 |
9 |
| 二進制值 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
1 |
... |
0 |
1 |
1 |
1 |
1 |
0 |
0 |
0 |
1 |
0 |
0 |
1 |
| 十進制值 |
0 |
0 |
0 |
1 |
... |
1 |
3 |
2 |
0 |
2 |
1 |
| 對應編碼 |
A |
A |
A |
B |
... |
B |
D |
C |
A |
C |
B |
例如，數(shù)字字符串“709”的編碼為“BDAACB”。用 VB程序實現(xiàn)上述編碼，功能如下：在文本框 Text1 中輸入編碼的一串數(shù)字字符，單擊“編碼 命令按鈕 Command1，在文本框 Text2 中顯示編碼 結果。程序運行界面如圖所示。
（1）下列屬于 VB 窗體文件的是
B
B
（單選，填字母）。
A.szbm.vbpB.szbm.frmC.szbm.exe
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
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 ①
Len（s）
Len（s）
ch=Mid（s,i,1）
If ch＜“0“Or ch＞“9“Then
flag=False
Exit For'退出循環(huán)
Else
numL=Val（ch）\4
numR=②
Val（ch）Mod4
Val（ch）Mod4
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=“輸入錯誤“
End If
End Sub
（3）運行該程序，若在文本框 Text1 中輸入“A5”，單擊“編碼”命令按鈕 Command1，在文本框 Text2 中顯示編碼結果為
輸入錯誤
輸入錯誤
。
