修改时间:2024-07-13 浏览次数:110 类型:期中考试
图 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
试题篮