- 二一组卷

题型：单选题题类：常考题难易度：困难

浙江省杭州市建人高复2018-2019学年高三上学期信息技术12月月考试卷

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

Dim a(1 To 8) As Integer

a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 26

a(5) = 48: a(6) = 91: a(7) = 98: a(8) = 13

n = 8: t = 0

For i = 1 To n - 1

k = i

For j = i + 1 To n

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

Next j

If k <> i Then

temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1

End If

Next i

Text1.Text = Str(t)

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

A、5 B、7 C、8 D、28

举一反三

某社区进行“摘葡萄”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据葡萄串数进行排序，程序中所有参赛者的成绩保存在数组m中，对应的姓名保存在数组name中。

程序运行界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim m(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

For i = 1 To 9

k = i

For j = i + 1 To 10

If ① Then k = j

Next j

If k <> i Then

x = m(i) : m(i) = m(k) : ②

y = name (i) : name (i) = name (k) : name (k) = y

End If

Next I

For I = 1 To 10

List2.AddItem Str(m(i)) + " " + name(i)

Next i

End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i = 1

flag = True

Do While '（1）

flag = False

For j = n To i + 1 Step -1

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

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

flag = True

End If

Next j

i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为+ " '（2）

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

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

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如例图所示。

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框List1中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i=1

flag=True

Do While i<=n-1 Or flag=True '（1）

flag=False

For j=n To i+1 Step -1

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

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

flag=True

End If

Next j

i=i+1

Loop

Label3.Caption="排序过程的加工遍数为"+Str(i) '（2）

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

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

【加试题】随机产生一个存有两位整数组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

以下VB程序段用插入排序的方法实现10个数据升序排序：

Dim tmp As Integer

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

For i=2 To 10

Text1.Text = ""

For i= 1 To 5

For j=i+1 To 6

If s(i) + s(i) < s(j) + s(i) Then

t= s(j): s(j)= s(i): s(i)=t

End If

Next j

Next i

For i=1 To 6

Text1.Text = s(i) + Text1.Text

Next i

If Then

tmp = a(i)

For j= To 1 Step -1 ‘依次后移

If tmp > a(j) Then Exit For

a(j+1)= a(j)

Next j

‘插入数据

End If

Next i

For i= 1 To 10

List1.Addltem a(i)

Next i

End Sub

要实现上述功能，方框①②③中的语句分别是（）

数组a存储降序排列的m个数据，数组b中存储的是升序排列的n个数据，且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到c数组中，使c数组的数据为左右交替上升，如下表所示：

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While ①

If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If

c(pc) = s

If flag Then

pc = m + n - pc + 1

Else

pc =

End If

②

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub

相关试卷

公司介绍

服务介绍

帮助中心