图 a
图b
A．该图表的数据区域为 C15，E15，G15：I15
B．若清除 I15 单元格中的内容，则该图表不会发生变化
C．如将 A 列数据隐藏，该图表会发生变化
D. 将 A2：I15 区域的数据按“小计（元）”为关键字进行降序排序，该图表会发生变化
图 c
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
