某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序,将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在 文本框Text1中输入连续多组编码，单击“翻译”按钮Commandl，结果显示在列表框List1中。 程序运行界面如右图所示。
（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句________（单选，填字母：A. Width=2018 / B.Textl. Width = 2018 / C. Width. Textl=2018）。
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Command1_Click()Dim s As String, c As String, d As StringDim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integers = Textl.Text: n = Len(s): i = 1Do While i <= n c = Mid(s, i, 2) If c = "00" Then d = "东" ElseIf c = "01" Then d = "南" ElseIf c = "10" Then d = "西" Else d = "北" End If b1 = Val(Mid(s, i + 2, 1)) b2 = Val(Mid(s, i + 3, 1)) v= ① List1.AddItem d + " " + Str(v) ② LoopEnd Sub
（3）若文本框Textl中输入的内容为“1111”，单击“翻译”按钮，列表框List1中显示的内容是_______。
