- 二一组卷

题型：综合题题类：模拟题难易度：困难

浙江省浦江县高级中学2021届高三上学期信息技术1月仿真模拟考试试卷

AB两个篮球队进行了多场比赛，现在要统计比分并确定获胜球队。计分规则是胜场多的队伍获胜，若胜场相同，则计算累计小分（小分=本队得分-对手得分），小分多获胜，若还是相同，则算平局。小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框Text1中，单击“统计”按钮command1，把两队每场按AB两队比分差降序显示在列表框list1中，同时在文本框Text2输出最终结果。部分程序界面如图所示。

Private sub command1_click()

Dim a(1 to 20) as integer,b(1 to 20) as integer,i as integer

Dim j as integer,t as integer,p as integer,k as integer,xiaofen as integer

‘从文本框读取AB两队各场的比分分别存数组a、b，场次k,代码略

For i=1 to k-1

For j= 1 to ①

If ② then

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

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

End if

Next j

Next i

p=0 : xiaofen=0

For i=1 to k

If a(i)>b(i) then ③

xiaofen = xiaofen+a(i)-b(i)

List1.Additem str(a(i)) + “：”+ str(b(i))

Next i

If p*2>k or k=p*2 and xiaofen>0 then

Text2.text = “A队获胜”

Elseif then

Text2.text = “B队获胜”

Else

Text2.text = “两队平局”

End if

End sub

（1）、若希望程序在运行时列表框list1内容清空，则应该在代码中添加语句（单选，填字母：A . list1.additem \B . list1.clear \C . list1.caption ）

（2）、在程序划线处填入合适代码，使程序完整

① ② ③

（3）、加框处代码有错误，请改正。

举一反三

下表记录了6个数据的排序过程。分析表中数据可知，该排序采用的算法与排序方式分别为

原始数据	65	57	59	44	45	69
第1遍	44	65	57	59	45	69
第2遍	44	45	55	57	59	69
第3遍	44	45	57	65	59	69
…	…	…	…	…	…	…

【加试题】小华在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写VB程序功能如下：在列表框List1中显示排序前的数据(存储在数组c中)，单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。程序运行界面如图所示。

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

Const n1=9 ‘第1段已排序数据长度为n1

Const n2=6 ‘第2段已排序数据长度为n2

‘数组c长度为n1+n2，依次存储第1，2段数据

Dim c(1 To n1+n2)As Integer

Private Sub Command1_Click()

‘数组c依次存储两段已按从小到大排序的数据

‘并在列表框List1中显示，代码略

List2．Clear

A位置

For i=n1+1 To n1+n2

j=i

B位置

Do While j>1 And Flag

t=c(j)

c(j)=c(j-1)

c(j-1)=t

C位置

Else

Flag=False

End If

j=j-1

‘②

Loop

Next i

For i=1 To n1+n2

List2．Addltem c(i)

Next i

End Sub

小吴为了研究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：在列表框list1中显示排序前数据（存储在数组a中），在文本框text1中输入初始位置（即下标值），单击“排序”按钮command1后，在标签label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框list2中。程序运行界面如图所示。

实现上述功能的VB程序如下。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

a(1) = 30: a(2) = 47: a(3) = 30: a(4) = 72

a(5) = 70: a(6) = 23: a(7) = 99: a(8) = 24

n = 8

For i = 1 To 8

List1.AddItem str(a(i))

Next i

End Sub

Private Sub Command1_Click()

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

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = n To i + 1 Step -1

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

'改错

a(j - 1) = a(j)

a(j) = k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j - 1

s = s + "→" + Str(pos)

elseif ② then

pos = j

s = s + "→" + Str(pos)

End If

Next j

Next i

Label1.Caption = "位置变化情况：" + s

List2.Clear

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

某算法的部分程序段如下：

For i=1 To 7

k=i

For j=i+1 To 8

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

Next j

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

Next i

数组元素a(1)到a(8)的原始数据依次为“89，70，79，85，99，80，82，74”，则第3遍“加工”后数组元素a(1)到a(8)的数据依次是（）

下面程序是一个改进过的冒泡排序：

Dim a(1 To 5) As Integer

a(1)=5: a(2)=10: a(3)=9: a(4)=3: a(5)=7

n=5: p=0

swap=True

Do While swap=True

swap=False

For i=1 To n-1

If a(i) > a(i+1) Then

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

swap=True

End If

Next i

If swap=True Then p=p+1

Loop

Text1.Text=p

该程序段执行后，在文本框Text1中显示的内容为（）

有如下Python程序段:

from random import random

a=[1]*5

i=1

while i<=4:

a[i]=int(random()*10)+1

if a[i]==a[i-1]//2 or a[i]==a[i-1]*2:

i+=1

执行该程序段后，数组a的值可能是（）

相关试卷

公司介绍

服务介绍

帮助中心