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=Text1．Text：n=Len(s)：i=1

      Do While i<=n

      c=Mid(s，i，2)

      If c=“00”Then

        d=“东”

      Elself c=“01”Then

        d=“南”

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

          ②  

       Loop

    End Sub

① ②