浙江省普通高中2022届高三上学期信息技术12月统测试卷

下列说法正确的是(     )

s ="ATCGCGCTACTGA"

s1 =" ACGT"

n= Len(s)

i=1：j=1：c=0

Do While i <= n and j <=4

    If Mid(s， i， 1)=Mid(s1， j，1) Then

        j=j+1

    End If

    i=i+1

Loop

s= Mid(s， 1， i-1)

执行该程序段后，变量s的值是(    )

i=1：j=10：n=0

Do While i<=j

    m=(i+j)\2

    If a(m)<key Then

        i=m+1

        n=n+ m

    Else

        j=m-1

        n=n-m

    End If

Loop

数组元素a(1)至a(10)中的值依次为“32，39，44，49，51，54，61，61，68，76”，当key值为61时，执行该程序段后，变量n的值是(     )

Dim a(1 To 6) As Integer

For i=1 To 6

    a(i)= Int(Rnd * 4)+1

    If a(i) Mod 2=0 And i Mod 2=0 Then

       a(i)=2 * a(i) - a(i - 1)

    End If

    s=s+Str(a(i))

Next i

执行该程序段后，变量s的值可能是(    )

Dim a(1 To 15) As Integer

'生成数组a， a(1)=24：a(2)= 17：a(3)=21：

a(4)=15：a(5)=14    …代码略

n= Val(Text1. Text)

For i=1 To n-1

    For j=(n+1) * n/2 To   ①   Step-1

        If   ②   Then

            t=a(j)：a(j)=a(j- 1)：a(j- 1)=t

        End If

    Next j

Next i

'将处理后的数组，以金字塔形显示，代码略

上述程序段中①②处的语句分别为(    )

请回答下列问题：

规则一：随机选取10个车牌号，其中2个车牌的尾数是字母，其余8个车牌的尾数是数字。

规则二：车牌尾数按从小到大排列。

规则三：若规则一随机选取的车牌中，第1个车牌尾数为数字，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：数字一字母一数字一字母一数字一数字……；若规则一随机选取的车牌中，第1个车牌尾数为字母，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：字母一数字一字母一数字一数字……

程序运行后，列表框List1中显示随机选取的车牌，单击“排序”按钮，在列表框List2 中显示按以上规则排序后的待选车牌。

赋分成绩最低40分，卷面成绩低于30分则赋0分。赋分表数据存人数组ffb，如ffb(100)=90，则表示卷面成绩90时，赋分100分。小明设计的赋分具体步骤如下：

第一步：对学生的卷面成绩进行降序排序；

第二步：对照赋分表，对每-名学生卷面成绩进行赋分。

小明编写了VB赋分程序，在列表框List1中显示学号和学生卷面成绩，在列表框List2中显示赋分表数据，单击按钮“我要赋分”后，按照之前的学号顺序在列表框List3中显示学号、卷面成绩和赋分成绩。VB程序界面如下：

Const m = 10000

Dim xh(1 to 10000) As String     '存储学生学号

Dim cj(1 To 10000) As Integer     '存储学生卷面成绩

Dim ffcj(1 To 10000) As Integer    '存储学生赋分成绩

Dim ffb(40 To 100) As Integer     '存储赋分表数据

Private Sub Form_ Load()

    '读入m名学生的学号、技术考试卷面成绩分别存人数组xh和cj中，并在List1中显示；读入赋分表成绩存人数组ffb中，代码略

End Sub

Private Sub Command1_ Click()

    Dim a(0 To 100) As Integer

    Dim b(0 To 100) As Integer

    Dim c(1 To 10000) As Integer

    List2.AddItem "赋分成绩卷面成绩"

    For i=100 To 40 Step-1     '在List2显示赋分表数据

        List2. AddItem Str(i)+ "" +Str( ffb(i))

    Next i

    For i=1 To m    '统计各分数段的人数

            ①   

        a(t)=a(t)+1

    Next i

    j= 100

    Do While a(j)=0

        j=j-1

    Loop

    b(j)=1

    For k=j- 1 To 0 Step -1

        b(k)=b(k+1) + a(k+ 1)

    Next k

    For i=1 To m

        t=cj(i)

        c(b(t))=i

            ②   

    Next i

    p=1：q= 100

    Do While p<=m

        If cj(c(p))> = ffb(q) Then

                ③   

            p=p+1

        ElseIf q=40 Then

            ffcj(c(p))=0

            p=p+1

        Else

            q=q-1

        End If

    Loop

    List3. AddItem "学号卷面成绩赋分成绩"

    For i=1 To m

        List3. AddItem xh(i)+" " + Str(cj(i)) + ""+Str(ffcj(i))

    Next i

End Sub