搜索
Dim flag As Boolean
s=Textl.Text：j=0：cnt=1
Fori=l To lean(s)
c=Mid(s,i,l)
If c>="0" And c<="9" Then
j=j+1
flag=True
ElseIf j>lenmax And cnt Mod 2=l Then lenmax=j
j=0
If flag Then cnt=cnt+1：flag=False
End IfNext i
Text2.Text=Str(lenmax)
在文本框Text1输入“one302type27645time9986”，程序运行后文本框Text2中显示为（ ）
| A．12 | B．5 | C．3 | D．4 |
同类型试题
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
