在冒泡排序时，当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此小明对冒泡排序进行了优化，编写了一个VB程序，功...

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

浙江省安吉县上墅私立高级中学2015-2016学年高二下学期期中考试试卷信息技术部分

在冒泡排序时，当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此小明对冒泡排序进行了优化，编写了一个VB程序，功能如下，运行程序时，在列表框List1中显示随机产生的n个整数，单击“排序”的按钮Command1，在列表框List2中显示降序排序后的结果，运行的效果如图所示。

实现上述功能的VB代码如下，但划线处代码有错，请改正。

Const n As Integer = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 1 To n

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

End Sub

Private Sub Command1_Click()

Dim tmp As Integer, i As Integer, j As Integer, k As Integer

For i = 1 To n - 1

k = 0

For j = n To i + 1 Step -1

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

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

k = k + 1

End If

Next j

If k > 0 Then i = n

Next i

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

举一反三

【加试题】某算法的VB程序段如下：

Dim a(1 T0 5)As Integer

Dim c As Integer

a(1)=44：a(2)=36：a(3)=58：a(4)=65：a(5)=12

b=0：c=0

For i=1 To 4

k=i

For j=i+1 To 5

If a(j)<a(k) Then

k=j

b=b+1

End If

Next j

If k<>I Then

t=a(i)：a(i)=a(k)：a(k)=t

c=c+1

End If

Next i

Text1．Text=Str(b)+Str(c)

运行该程序段后，文本框Text1的内容是（）

以下程序的功能是随机生成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#}

有一组正整数，要求对其中的数据进行排列，排列后奇数在前，偶数在后。其中最后一个数据排到奇数与偶数交接处;自前到后的第一个偶数排到最后一个位置，空出的位置排列自后向前的第一个奇数，依此类推。排序示例如下。

排序前	71	85	64	55	42	62	33	17	34	30
排序后	71	85	17	55	33	30	62	42	34	64

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

Const n=10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim temp As Integer,flag As Boolean

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

i=1:j=n

temp=a(j):flag=True

Do While i<j

If flag Then

If a(i) Mod 2=0 Then

a(j)=a(i)

j=j-1

flag=Not flag

Else

'{#blank#}1{#/blank#}

End If

Else

If a(j) Mod 2=1 Then

a(i)=a(j)

flag=Not flag

Else

j=j-1

End If

Loop

' {#blank#}2{#/blank#}

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

End Sub

【加试题】某人编写了一个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程序功能为：先把数组中最小的元素放到中间位置，再把第二小的元素放到中间的后一个位置，然后把第三小的元素放到中间的前一个位置，以此类推。如数组元素a(1)到a(9)的值依次为72，61，3，95，39，38，64，65，98，程序运行后，数组元素a(1)到a(9)的值依次为98，72，64，39，3，38，61，65，95。

m = (1 + n) \ 2 ‘n为数组元素的个数，m为数组中间位置元素的下标

For i = 1 To n

If a(i) < a(m) Then t = a(i): a(i) = a(m): a(m) = t

Next i

p = m: q = m

For i = 1 To n - 2

If i Mod 2 = 1 Then

k = q + 1: q = q + 1

Else

k = p - 1: p = p - 1

End If

pos = k

For j = 1 To n

If And a(j) < a(k) Then k = j

Next j

If pos > k Then

t = a(pos): a(pos) = a(k): a(k) = t

End If

Next i

上述程序段方框处的代码为（）

有如下VB程序段：

s =" shenzhen"

For i=1 To Len(s)

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

b(i) = i

Next i

For i=Len(s) To 2 Step-1

If a(b(i)) >= a(b(i - 1)) Then

t=b(i)：b(i)=b(i-1)：b(i-1)=t

End If

Next i

Text1.Text = b(1)

文本框Text1中显示的内容是（）

相关试卷

公司介绍

服务介绍

帮助中心