- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省嘉兴市第一中学2017-2018学年高二下学期信息技术期中考试试卷

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

For i = 1 To 2

k = i

For j = 6 To i + 1 Step -1

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

Next j

If k <> i then

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

End If

Next i

数组元素a(1)到a(6)的值依次为“71,46,31,58,29,78”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（）

A、29,31,46,58,71,78 B、78,71,58,46,31,29 C、46,29,31,58,71,78 D、78,71,31,58,29,46

举一反三

【加试题】有一组正整数，基于冒泡排序对其中的数进行升序排序。排序后奇数在前，偶数在后。排序示例如下：

排序前	78	30	64	39	49	4	8	32	18	32
排序后	39	49	83	4	8	18	30	32	64	78

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

Const n = 10

Dim d(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

'读取一组正整数，存储在数组d中，代码略

i = 1

Do While i <= n - 1

For j = n To i + 1 Step -1

If d(j) Mod 2 = d(j - 1) Mod 2 Then

If Then '(1)

t = d(j): d(j) = d(j - 1): d(j - 1) = t

End If

'(2)

t = d(j): d(j) = d(j - 1): d(j - 1) = t

End If

Next j

i=i+1

Loop

'依次输出排序后的数据，代码略

End Sub

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

原始的冒泡排序是单向的，它始终是从第一个（或最后一个）一个元素开始扫描。小王对冒泡排序进行了改进，从两端进行扫描，首先从数组的左端到右端进行扫描，把最大的数往后交换（以升序为例），再从右端到左端进行扫描，把最小的数往前交换，多次扫描后，最终得到一个有序的序列。他定义了left1、right1两个变量，变量left1表示左边指针，变量right1表示右边指针，每一遍排序，左边指针向右移动一位，右边指针向左移动一位。一趟排序，把最大值沉到最后一个，最小值冒泡到最前一个，最终让数组有序。运行界面如图a,单击“生成数据”按钮在列表框List1中显示生成的10个随机数，单击“排序”按钮后，将排序结果显示在列表框List2中。

实现上述功能的 VB 程序如下，请回答下列问题：

Dim b(1 To 10) As Integer

Dim left1 As Integer, right1 As Integer Private Sub Cd1_Click()

Dim i As Integer, j As Integer

For i = 1 To 10

b(i) = Int(Rnd * 100) + 10 List1.AddItem Str(b(i))

Next i left1 = 1 right1 = 10

End Sub

Private Sub Cd2_Click()

Dim i As Integer, j As Integer, t As Integer

Do While left1 < right1

For j = left1 To right1 - 1

If b(j) > b(j + 1) Then

t = b(j): b(j) = b(j + 1): b(j + 1) = t

End If

Next j

For j = right1 To ‘改错

If b(j) < b(j - 1) Then

t = b(j): b(j) = b(j - 1): b(j - 1) = t end If

Next j

right1 = ‘填空

Loop

‘将排序结果显示在列表表框List2中，代码略

End Sub

下列VB程序段的功能为：对数组a中的n个元素进行排序，生成左右交替上升的数据系列。如排序前a中元素依次为：21，33，56，11，44，60，程序运行后a中元素依次为：11，33，56，60，44，21。

For i=1 To ①

k=i

For j=i+1 To n-i+1

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

Next j

If k<>i Then t=a(k):a(k)=a(i):a(i)=t For j= ③

If a(j)<a(j+1) Then a(j)=a(j)+a(j+1) : a(j+1)=a(j)-a(j+1):a(j)=a(j)-a(j+1) Next j

Next i

上述程序段3个划线处的表达式分别为（）

【加试题】某人编写了一个VB程序对一组随机数进行排名。程序运行时，产生10个随机整数存数组d中，并在列表框List 1中显示，单击按钮Command 1，在列表框List1 2中显示降序排序后数据及名次，若数值相同则名次相同。实现上述功能的VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim d(1 To n) As Integer, pm(1 To n) As Integer

Private Sub Form_Load()

'代码略，本过程功能：产生10个随机整数存数组d中，并在列表框list1 中显示。

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, t As Integer

i = 1

Do While i <= n - 1

k = i

For j = i + 1 To n

If Then k = j ‘①

Next j

If i <> k Then t = d(i): d(i) = d(k): d(k) = t

i = i + 1

Loop

pm(1) = 1

For i = 2 To n

If Then ‘②

pm(i) = i

Else

pm(i) = pm(i - 1)

End If

Next i

For i = 1 To n

List2.AddItem Str(i) +" " +Str(d(i)) + " " + "第" + Str(pm(i)) + "名"

Next I

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

小明编写了一个图书录入系统的VB程序，功能如下：单击“读数据库”按钮Command1，从数据库中读取相应数据并显示在列表框List1中，在文本框Text1中实现数据录入这类图书的数量，单击“录入数据”按钮Command2实现数据录入，并按数量降序的方式显示在列表框List2中。程序运行界面如图所示。实现上述功能的VB程序如下，请回答下列问题：

有如下VB程序段：

For i=1 To 2

For j=1 To 5-i

If a(j+1)<a(j) Then t=a(j):a(j)=a(j+1):a(j+1)=t

Next j

Next i

数组a(1)到a(5)中数据分别为56，23，78，11，8，执行上述VB程序段后，数组元素的值分别为（）

相关试卷

公司介绍

服务介绍

帮助中心