搜索
c = 1: Max = 0
s = "19491001ZHong20211001"
For i = 2 To Len(s)
If Asc(Mid(s, i - 1, 1)) < Asc(Mid(s, i, 1)) Then
c = c + 1
ElseIf c > Max Then
Max = c
c = 1
Else
c = 1
End If
Next i
Text1．Text = Str(Max)
执行上述程序段后，文本框 Text1 中显示的是（ ）
| A．3 | B．4 | C．5 | D．6 |
同类型试题
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
