浙江省“超级全能生”2021届高考选考科目9月信息技术联考试卷

Dim flag As Boolean

s= Tex1.Text：j=0：cnt=1

For i=1 To Len(s)

  c= Mid(s, i, 1)

  If c>="0" And e<= "9" Then

    j=j+1

    flag= True

  Else

    If j>lenmax And cnt Mod 2= 1 Then lenmax=j

    j=0

    If flag Then cnt= cnt + 1：flag= False

  End If

Next i

Text2. Text = Str(lenmax)

在文本框Text1输入“one302type27645time9986”，程序运行后文本框Text2中显示为（    ）

Const n= 6

Dim a(0 To n) As String

Dim i As Integer, j As Integer

For i=2 To 4

  a(0)=a(i): j=i- 1

  Do While a(0)<a(j)

    a(j+1)= a(j)

    j=j- 1

  Loop

  a(j+1)= a(0)

Next i

已知字符串数组元素a(1)到a(6)的原始数据为"118"，"36"，"98"，"15"，"88"，"2"，执行该程序段后，数组元素a(1)到a(6)的值依次为（    ）