题目

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

查看本题答案和解析