1. (2020高一下·嘉兴期中) 某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序，将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入连续多组编码，单击“翻译”按钮Command1，结果显示在列表框List1中。程序运行界面如图所示。

1. （1） 要使程序运行时，文本框Text1的Width属性值为2020，可在Form_Load事件过程中添加语句（单选，填字母：A .Width=2020 / B .Text1.Width = 2020 / C .Width. Text1=2020）。
3. （2） 实现上述功能的 VB 程序如下，请在划线处填入合适的代码。

   Private Sub Command1_Click()

   Dim s As String, c As String, d As String

   Dim n As Integer, b1 As Integer, b2 As Integer, v As Integer, i As Integer s =  

   n = Len(s) : i = 1

   Do 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)

   i =  

   Loop

   End Sub

5. （3） 若文本框 Text1  中输入的内容为“1010”，单击“翻译”按钮，列表框List1中显示的内容是。