【加试题】某校举行班班有歌声比赛，参赛班级的成绩按照班级序号保存在“bbygs.accdb”数据库文件中，为了快速计算每个班级最终的分，设计了一个VB程序，该程序能够将8个评委的打分按照从高到低的顺序排序，然后去掉一个最高分和一个最低分，最后计算平均值作为参赛班级的成绩。程序界面如图：单击“提取”按钮Command1，在列表框list1中显示班级序号和该班级8个评委的打分成绩，单击“排序”按钮Co...

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

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

【加试题】某校举行班班有歌声比赛，参赛班级的成绩按照班级序号保存在“bbygs.accdb”数据库文件中，为了快速计算每个班级最终的分，设计了一个VB程序，该程序能够将8个评委的打分按照从高到低的顺序排序，然后去掉一个最高分和一个最低分，最后计算平均值作为参赛班级的成绩。程序界面如图：单击“提取”按钮Command1，在列表框list1中显示班级序号和该班级8个评委的打分成绩，单击“排序”按钮Command2后，在列表框list2中按降序排序。单击计算得分按钮Command3，在文本框text1中显示最终成绩。按此要求编写程序如下:

Dim class(1 To 30) As Integer '存放班级序号的数组定义为class

Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score

Private Sub Formload() '提取某班级的评委打分

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\bbygs.accdb "

conn.Open

Set rs.ActiveConnection = conn

rs.Open "SELECT * FROM score "

n = 0

Do While Not rs.EOF '到最后一条记录后退出循环

n = n + 1

class (n) = rs.Fields("班级序号").Value

score (n) = rs.Fields("评委打分").Value

rs.MoveFirst '①指针移动到下一条记录

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

for i=1 to n

List1.AddItem str(score(i))

Next i

End sub

Private Sub Command1Click()

Dim i as integer

Dim j as integer

Dim t as single

For i = 1 to 8

For j=1 to i

If ② then

t=score(j)

score(j)=score(j+1)

score(j+1)=t

End if

Next j

Next i

For i=1 to 8

List2.AddItem str(score(i))

Next i

End sub

Private Sub Command2Click() '计算班级平均得分

Dim i As Integer

Dim sum As single

For i=2 to 7

sum=sum+score（i）

Next i

Text1.text= ③

End sub

（1）、程序中①划线处有错，应改为。

（2）、加矩形框处的程序所采用的算法是排序。

（3）、程序中②划线处应填入,程序中③划线处应填入。

举一反三

【加试题】有一组正整数，基于冒泡排序对其中的数进行升序排序。排序后奇数在前，偶数在后。排序示例如下：

排序前	78	30	64	39	49	4	8	32	18	32
排序后	39	49	83	4	8	18	30	32	64	78

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

Const n = 10

Dim d(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

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

i = 1

Do While i <= n - 1

For j = n To i + 1 Step -1

If d(j) Mod 2 = d(j - 1) Mod 2 Then

If Then '(1)

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

End If

'(2)

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

End If

Next j

i=i+1

Loop

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

End Sub

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

（加试题）有如下VB程序段：

Dim a(1 To 10) As Integer

Dim s As String, n, i As Integer

s = "54851845236": n = Len(s)

For i = 1 To n - 1

a(i) = Val(Mid(s, i, 2))

Next i

For i = 1 To n - 2

k = i

For j = i + 1 To n - 1

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

If k <> i Then

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

End If

Next i

Text1.Text = Str(a(1))

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

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

小明基于插入排序思想设计了一个改进的排序算法。输入n个两位正整数到数组a，判断数组a中每个元素的奇偶性，若为奇数则将其放前插入适当位置，若为偶数则将其放后插入适当位置。排序完后数组a中所有奇数在前升序排序，偶数在后降序排序。程序代码如下：

Dim a(1 To 100) As Integer, n As Integer

Function moving( start As Integer, finish As Integer, st As Integer)

'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间

Dim i As Integer, k As Integer k = a(finish)

For i = finish - st To start Step -st a(i + st) = a(i)

Next i a(start) = k

End Function

Private Sub Command1_Click()

Dim head As Integer, end1 As Integer, i As Integer, ans As String

' 将待排序的数存储在数组 a 的 a(1)至 a(n)中，并输入元素个数 n，代码略

head = 1: end1 = n + 1

Do While head < end1

If ① Then

For i = 1 To head - 1

If a(i) > a(head) Then Exit For

Next i

Call moving(i, head, 1)

head = ②

Else

For i = end1 To n

If a(i) < a(head) Then Exit For

Next i

Call moving( ③ )

End1 = end1 - 1

End If

Loop

For i = 1 To n

ans = ans + Str(a(i))

Next i

Text2.Text = ans End Sub 请回答下列问题：

某面馆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["份数"]) #绘制柱形图

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

相关试卷

公司介绍

服务介绍

帮助中心