题型：综合题 题类：常考题 难易度：普通
浙江省嘉兴五中2019-2020学年高一下学期信息技术期中测试卷
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
试题篮
