- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省嘉兴市2018-2019学年高三信息技术3月嘉丽联考试卷

【加试题】小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮Command1，在列表框List1中生成用于排序的n个数据，单击“排序”按钮Command2，对这组数据进行错位排序(即从前往后依次是最小的、最大的、第二小的、第二大的……依次类推)，在列表框List2中依次输出数据排序后的结果，程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim n As Integer，a(1 To 100)As Integer

Private Sub Command1_Click()

’该段程序用于随机产生n个整数，存储在数组a中，并显示在列表框list1中，代码略

End Sub

Private Sub Command2 Click()

Dim i As Integer，j As Integer，tmp As Integer

List2．Clear

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If Then ‘①

a(j)=a(j)+a(j-1)

a(j-1)=a(j)-a(j-1)

a(j)=a(j)-a(j-1)

End If

Next j

‘②

Next i

For i=1 To n

List2．AddItem Str(a(i))

Next i

End Sub

① ②

举一反三

【加试题】随机产生一个存有两位整数组a，先排序，然后进行数据重组，使被排序的数据呈现中间小，并逐次向两边增大。小李编写了该VB程序，运行程序时，在列表框List1中显示排序前数据，单击“重组”按钮Command2，在列表框List2中显示“重组”后的数据，程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub

Private Sub Command2_Click()

Dim i As Integer

n=Val(Text1．Text)

For i=0 To n-2

For j=i+1 To n-1

If Then ‘(1)

temp=a(i)：a(i)=a(j)：a(j)=temp

End If

Next j

Next i

If n Mod 2<>0 Then d(n＼2)=a(n-1) ‘个数为奇数，最小值放中间位置

For i=0 To n＼2—1

d(i)=a(i*2)

=a(2*i+1) ‘(2)

Next i

‘在列表框List2中输出数组d，代码略

End Sub

【加试题】有如下程序段：

For i=1 To 3

For j=6 To i+1 Step-1

If a(i)<a(j) Then

T=a(i)：a(i)=a(i)：a(i)=t

End If

Next j

Next i

数组元素a(1)到a(6)的值依次为“28，3，15，1，35，7”，执行该程序段，下列说法正确的是（）

以下程序的功能是随机生成100个97-122之间的正整数（包括97和122），并将一个区间内的数（第x个元素到第y个元素）取出并按升序输出。请修改加框处的错误。

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

x = Val(Text1.Text)

y = Val(Text2.Text)

For i = 1 To 100

(1)

List1.AddItem Str(a(i))

Next i

For i = x To y - 1

k = i

For (2)

If a(k) > a(j) Then k = j

Next j

If k <> i Then

t = a(k): a(k) = a(i): a(i) = t

End If

Next i

For i = x To y

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

有如下程序段：

i = 1

Do While i <= 5

If i = 0 or a(i -1) <= a(i) Then

i = i + 1

Else

t = a(i): a(i) = a(i -1): a(i -1) = t

i = i - 1

End If

Loop

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为( )

小赵对选择排序算法进行了修改改进，VB程序段如下：

i = n

Do While i >=2

k = i

For j = To 1 Step -1

If a(j) > a(k) Then k = j

Next j

If i <> k Then

t = a(k): a(k) = a(i): a(i) = t

End If

Loop

则下列说法正确的是( )

使用列表d模拟链表结构（节点数大于0），每个节点包含数据区域和指针区域，h为头指针。链表中各节点已按数据区域中数值的绝对值由小到大排列，如图a所示。现要修改该链表各节点的链接关系，使链表各节点按数据区域中的数值由小到大排列，结果如图b所示。实现该功能的程序段如下，方框中应填入的正确代码为（）

图 a

图 b

t=h

p=d[h][1]

while p != -1 :

q=d[p][1]

p=q

d[t][-1]=-1

相关试卷

公司介绍

服务介绍

帮助中心