浙江省“超级全能生”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)的值依次为（    ）

i=6

Do While i>= 1

  t= Int(Rnd * 10)+ 1

  If t Mod 2=i Mod 2 Then a(i)=t: i=i-1

Loop

For i=1 To 2

  k=-1

  For j=1 To 5-i

    If a(j) * k>a(j+2) *k Then

      temp= a(i): a(j)=a(j+2): a(j+2)= temp

    End If

    k=-k

  Next j

Next i

执行该程序段后，数组元素a(1)到a(6)值可能是（    ）

数组元素f(1)到(9)赋初值为0，代码略

a(1)= 1

For i=2 To 9

  a(i)=a(i-1)+ Int(Rnd* 2)+1

Next i

Key= Val(Text1. Text)

i=1: j=9

Do While i<=j

  m=(i+j+1)\ 2

  f(m)= 1

  If a(m) > Key Then

    j=m-1

  Else

    i=m+1

  End If

Loop

在文本框Text1中输入待查找数，执行该程序段后，下列选项中，f(1)到f(9)各元素值不可能的是（    ）

请回答下列问题：

操作1：在文本框中分别输入L，R，T(1≤L≤R≤n)，对数组下标为L到R之内(包含L和R)的字符做相应的字符加密操作(1≤T≤100)。

操作2：在文本框中输入M(1≤M≤n)，在标签中输出a(M)的值。

为了提高算法的效率，小明设计了如下算法，以n=10为例，将n个元素依次分成 段( 表示对 向下取整)，每段的元素个数为 ，若最后有不足 个元素，则自成一段。给每段设置一个标记，如下表所示。

①对于操作1，若输入的L，R属于同一段，则直接对a(L to R)的每个元素的ASCII码进行后移T位的操作。如输入4，6，3，则第2段中的每个字符变为k，r，q，操作后如下表所示。

②对于操作1，若输入的L，R不属于同一段，则对元素a(L)所在段中从a(L)开始到该段最后一个元素为止的每个字符的ASCII码做后移T位的操作，并对元素a(R)所在段中从该段第一个元素开始到a(R)为止的每个字符的ASCII码做后移T位的操作，对a(L)元素所在段的下一段开始到a(R)元素所在段的上一段为止的每个段标记值增加T，这些段中的元素值保持不变。如在上表的基础_上再输入1，8，2，则第1段的3个字符和第3段中的前2个数都做相应的字符后移2位的操作，第2段的段标记值增加2，如下表所示。

③对于操作2，若输入M的值为4，则输出a(4)的值，若a(M)所在的段标记为奇数，a(M)的值为该数组元素的值，否则输出a(M)对应的大写字母的值，如a(4)=H。程序运行如下。请回答下列问题：