【加试题】实现某排序算法的部分VB程序代码段如下： For i = 1 To 7 For j = 8 To i+1 step -1 If sz(j) &lt; sz(j-1) Then tmp = sz(j): sz(j) = sz(j-1): sz(j-1) = tmp End If Next j Next i 数组元素sz(1)到sz(8)的原始数据依次为&...

题型：单选题题类：模拟题难易度：普通

浙江省杭州市2016年信息技术高考模拟卷八

【加试题】实现某排序算法的部分VB程序代码段如下：

For i = 1 To 7

For j = 8 To i+1 step -1

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

tmp = sz(j): sz(j) = sz(j-1): sz(j-1) = tmp

End If

Next j

Next i

数组元素sz(1)到sz(8)的原始数据依次为" 5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5"。则第3遍排序"加工"后数组元素sz(1)到sz(8)的数据依次是（）

A、3.5 3.8 4.1 5.2 4.5 7.4 7.5 8.3 B、3.5 3.8 4.1 5.2 8.3 7.4 4.5 7.5 C、8.3 7.5 7.4 3.5 5.2 4.1 3.8 4.5 D、8.3 7.5 7.4 5.2 4.5 4.1 3.5 3.8

举一反三

下列程序段实现对num数组进行排序，并将排序结果输出。

Private Sub Command1Click()

Dim num(0 To 5) As Integer

Dim i As Integer, j As Integer

Dim t As Integer

num(0) = 4: num(1) = 7: num(2) = 2: num(3) = 0: num(4) = 3: num(5) = 9

i = 0: j = 1: t = 0

For i = 1 To 5 Step 1

For j = i + 1 To 4 Step 1

If num(i) > num(j) Then

t = num(i)

num(i) = num(j)

num(j) = t

End If

Next j

Next i

For i = 1 To 5

List1.AddItem num(i)

Next i

End Sub

原始的冒泡排序是单向的，它始终是从第一个（或最后一个）一个元素开始扫描。小王对冒泡排序进行了改进，从两端进行扫描，首先从数组的左端到右端进行扫描，把最大的数往后交换（以升序为例），再从右端到左端进行扫描，把最小的数往前交换，多次扫描后，最终得到一个有序的序列。他定义了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

【加试题】以下程序段对数组a 中的8个数据a(1)到a(8)进行加工。

i = 1 : k = 0

Do While i<= 3

For j = 8 To i + 1 Step -1

If a(j) >= a(j - 1) Then

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

k = k + 1

End If

Next j

i = i + 1

Loop

若数组a中的数据依次为“24，29，31，24，12，10，12，25”，则加工结束后，变量k的值为（）

下列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程序实现数字字母混合序列分离后分别排序，最后又合并输出。具体算法如下：在文本框Text1输入若干组混合序列，每组序列中仅包含一组字母和一个多位数字，序列之间用逗号隔开，以逗号结束。单击“排序”按钮command1，把每组序列中的字母和数字分开，并分别排序，最后在列表框list1输出。排序规则如下：所有数字按从小到大升序排序，字母序列按长度升序排序，若长度相同，直接按字母序列大小升序排序（按字母的ASCII码排序，“A”<“Z”<“a”<“z”）。实现算法的部分程序界面如图所示，VB程序代码如下，回答下列问题：

Private Sub Command1_Click()

Dim a(1 To 6) As Integer, b(1 To 6) As String, i as integer, j as integer

Dim c As String, k As Integer, tmp1 As Integer, tmp2 As String

s=text1.text

i = 1: k = 1: tmp1 = 0: tmp2 = ""

Do While i <= Len(s)

c = Mid(s, i, 1)

If c = "," Then

a(k) = tmp1: b(k) = tmp2

tmp1 = 0: tmp2 = ""

①

Else

If Then

tmp2 = tmp2 + c

Else

tmp1=tmp1*10+val(c)

End If

i = i + 1

Loop

For i = 1 To 5

For j = 1 To 6 - i

If a(j) > a(j + 1) Then tmp1 = a(j): a(j) = a(j + 1): a(j + 1) = tmp1

If Len(b(j)) > Len(b(j + 1)) Or ② Then

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

End If

Next j

Next i

For i = 1 To 6

List1.AddItem Str(a(i)) + b(i)

Next i

End Sub

有如下VB程序段，已知a数组各元素值为“7,5,6,3,1,8”,b数组各元素的初始值为“0”。则经过以下程序段处理后，b数组各元素分别为（）

For i = 1 To 5

k = i

For j = i + 1 To 6

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

Next j

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

b((i + 2) Mod 6 + 1) = a(i)

Next i

相关试卷

公司介绍

服务介绍

帮助中心