搜索
Dim s As String, t As String, res As String
Dim i As Integer, k As Integer
s = "jpqzaabdcfb"
i = 1: k = 1: res = "" t = Mid(s, 1, 1)
Do While i < Len(s)
If Mid(s, i + 1, 1) >= Mid(s, i, 1) Then
k = k + 1
Else
res = res + CStr(k) + t
k = 1
t = Mid(s, i + 1, 1)
End If
i = i + 1
Loop
Label1．Caption = res
执行该段程序段后，Label1 中输出的值为（ ）
| A．4j1a3a2c1b | B．4j4a2c1b | C．4j4a2c | D．4j1a3a2c |
同类型试题
y = sin x， x∈R， y∈[–1，1]，周期为2π，函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x， x∈[–1，1]， y∈[–π/2，π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
y = sin x， x∈R， y∈[–1，1]，周期为2π，函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x， x∈[–1，1]， y∈[–π/2，π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
