- 二一组卷

题型：填空题题类：常考题难易度：困难

算法与程序设计

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

排序前	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

End If

Else

If a(j) Mod 2=1 Then

a(i)=a(j)

flag=Not flag

Else

j=j-1

End If

Loop

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

End Sub

举一反三

有如下程序段：

i = 1

Do While i <= 5

If i = 0 or a(i - 1) <= a(i) Then

i = i + 1

Else

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

i = i - 1

End If

Loop

For i = 1 To 5

List2.AddItem a(i)

Next i

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为（）

【加试题】小李基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

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

Const n=10

Private Sub Form_Load()

‘排序前数据存储在数组a中，并在文本框Text1中显示

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer

Dim bottom As Integer

Dim j As Integer

Dim a(1 To n)As Integer

i=1

bottom=n

Do While i<bottom

k=i

j=i+1

Do While i<=bottom

If a(j)=a(k)Then

a(i)=a(bottom)

‘(1)

bottom=bottom-1

E1seIf a(j)<a(k) Then

k=j

End If

j=j+1

Loop

If Then ‘(2)

t=a(i)

a(i)=a(k)

a(k)=t

End If

i=i+1

Loop

‘排序后数据存储在数组a中，并在文本框Text2中显示

End Sub

【加试题】小李要给全班学生拍合照，要求所有学生站成一排，中间高，两端低，小李采用如下排队方法：按身高信息从高到低排序，让身高第一位的同学单独站出来，身高第二位同学站在他的左手边，身高第三位同学站在他的右手边，再依次向两端安排其他人。每个学生的学号与身高信息已存人数据库中。小李编写了VB程序，从数据库中读取学号和身高信息，在“原始信息”下方的列表框List1中显示，单击“排队”按钮Command1，在“排好的队形”下方的列表框List2中显示排好的队形，程序界面如图所示。

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

Const maxn=100

Dim id(1 To maxn)As Integer ‘存储每个学生的学号

Dim tall(1 To maxn)As Single ‘存储每个学生的身高

Dim n As Integer ‘存储学生的个数

Private Sub Form_Load()

‘从数据库得到学生的总人数n

‘从数据库读取学号信息，并存入id数组中

‘从数据库读取身高信息，并存入tall数组中

‘在列表框List1中显示学号与身高

End Sub

Private Sub Command1_Click()

Dim a(1 To maxn)As Integer ‘存储排好队形的学号

Dim b(1 To maxn)As Single ‘存储排好队形的身高

Dim i As Integer，j As Integer

Dim t1 As Integer，tr As Integer，mid As Integer

Dim tmp1 As Single，tmp2 As Integer

For i=1 To n-1

For j=n To i+1 Step-1

If Then ‘(1)

tmp1=tall(j)：tall(j)=tall(j-1)：tall(j-1)=tmp1

tmp2=id(j)：id(j)=id(j-1)：id(j-1)=tmp2

End If

Next j

Next i

If n Mod 2=0 Then ‘根据总人数的奇偶性，确定队形的中间位置

mid=n＼2+1

Else

mid=(n+1)＼2

End If

‘身高第一位的同学，安排在队形的中间位置

a(mid)=id(1)

b(mid)=tall(1)

t1=mid-1

tr=mid+1

For i=2 To n

If Then ‘(2)

a(tr)=id(i)

b(tr)=tall(i)

tr=tr+1

Else

a(t1)=id(i)

b(t1)=tall(i)

t1=t1-1

End If

Next i

List2．AddItem“位置”+“学号 ”+“身高”

For i=1 To n

List2．Addltem Str(i)+” ”+Str(a(i))+” ”+Str(b(i))

Next i

End Sub

有如下VB程序段：

i=1: j=8: n=1

k=Val(Text1. Text)

Do While i<=j

m=(i+j)2

IF k<d(m) Then j=m-1 Else i=m+1

n=n+1

Loop

数组元素d(1)到d(8)依次为3，9，14，17，25，29，32，35，在文本框 Text1输人“14”。执行程序后，下列说法不正确的是（）

有如下VB程序段：

For i= 1 To 3

For j= 1 To 5-i

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

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

End If

Next j

Text 1．Text=Text 1．Text+str(a(i) )

Next i

数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（）

某面馆2024年2月订餐数据保存在文件“ddsl.xlsx”中，部分数据如图a所示，编写Python程序，统计2月订餐最多的3种菜品，并使用图表呈现统计结果（并列前三的菜品均显示），如图b所示。

图a

import pandas as pd

df = pd.read_excel("ddsl.xlsx") #读文件中的数据

df= df.drop(["日期"，"订单号"，"单价"，"金额"]，axis=1) #删除列

dfg = df.groupby(" ① "，as_index= False).sum() #分组求和

dfs = ②

plt.bar(dfs["菜品"], dfs["份数"]) #绘制柱形图

#设置图表样式，显示图表代码略

相关试卷

公司介绍

服务介绍

帮助中心