浙江省2021届高三上学期信息技术9月百校联考试卷

资源下载
  1. 二一教育资源

浙江省2021届高三上学期信息技术9月百校联考试卷

资源简介

浙江省2021届高三上学期信息技术9月百校联考试卷
一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
1.(2020高三上·浙江月考)下列有关信息与信息处理的说法,不正确的是(  )
A.“有一千个读者就有一千个哈姆雷特”,说明了信息可以被加工处理
B.扫描商品条码获取商品信息,说明信息可以脱离载体而存在
C.二维码过一段时间会失效,说明信息具有时效性
D.刷脸支付属于人工智能应用
2.(2020高三上·浙江月考)下列有关网页与浏览器的说法,正确的是(  )
A.在E浏览器中,以“网页,全部(*,Htm,*.html)”类型保存网页,可以同时保存视频
B.用HTTP语言可以描述网页中的文本、图像和超链接等元素
C.浏览器的“收藏夹”中保存了所收藏网页的URL
D.访问相同的网址,得到的网页内容一定相同
3.(2020高三上·浙江月考)使用Access软件设计一个数据表,存储如图所示的文章记录数据。
文章ID 文章标题 文章内容 发布时间 审核
1 扬帆起航逐梦高考 (略) 2020- 07-31 待审核
2 慧心尔雅待展芳华 (略) 2020- 08-01 通过
3 选择自己适合的路 (略) 2020-08-02 未通过
…… …… …… …… ……
注:因篇幅因素,表中省略了文章内容,该字段允许存储学生日常习作(5000字以内)。
下列表格设计合理的是(  )
A. B.
C. D.
4.(2020高三上·浙江月考)下列关于数制的说法,正确的是(  )
A.二进制数1010011转换为十六进制数是A3
B.二进制数110中的末位数码0对应的权值是0
C.ASCII码由128个代码组成,码值范围为1~128
D.若二进制数1101去掉末位数码1,则新数是原数的1\2
5.(2020高三上·浙江月考)用Photoshop软件制作“绍兴旅游”作品,如图所示,下列说法正确的是(  )
A.“如画绍兴"图层设置了滤镜效果
B.调换“如画绍兴”和“人文景观"图层的次序,会影响图像效果
C.“如画绍兴”图层创建了变形文字
D.选中“绍”字,执行修改字号命令仅将“绍”字变大
6.(2020高三上·浙江月考)一个未经压缩的音频文件,相关参数及选取状态如图所示。
则该文件执行裁剪命令后,该音频文件的存储容量约为(  )
A.258KB B.602KB C.861KB D.881KB
7.(2021·浙江选考)x的范围为(0 255),下列选项中,与语句"n=x\128"功能相同的是(  )
A.n=0 If x> 128 Then n= 1 B.n=0 If x<128 Then n=1
C.n= 1 If x<128 Then n=0 D.n=1 If x>128 Then n=0
8.(2020高三上·浙江月考)某算法的部分流程图如图所示,执行这部分流程,若输人n值为35,k值为3,则输出c的值为(  )
A.35 B.62 C.90 D.93
9.(2020高三上·浙江月考)有如下VB程序段:
Dims As String, c As String, st As String
Dim n As Integer, i As Integer
s ="20zj20sx7":n=0:st=""
For i=1 To Len(s)
c=Mid(s,i,1)
If c>= "a" And c<= "z" Then
st=Chr(Asc("a") *2+25-Asc(c))+st
Else
n=n*10+ Val(c)
End If
Next i
st =st+str(n)
执行该程序段后,变量st的值是(  )
A.chqa 20207 B.cgpz 47 C.zpgc 20207 D.zjsx 47
10.(2020高三上·浙江月考)在字符串s中找连续最长不下降数字字符串长度max,如字符串“318714101223411624”连续最长不下降数字字符串为“012234”,其长度max为6,实现该功能的VB程序段如下:
s = "318714101223411624"
c=Mid(s, 1, 1):i=1:max=0
For j=2 To Len(s)
If t> c Or j = Len(s) Then
End If
Next j
上述程序段中方框处可选语句如下:
①i=j
②t=c
③c = Mid(s, j, 1)
④If j-i>max Then max=j-i
则(1)(2)(3)(4)处语句依次为(  )
A.③②④① B.②④③① C.②③④① D.③①④②
11.(2020高三上·浙江月考)有如下VB程序段:
a(1)=4:a(2)=5:a(3)=3:a(4)=1:a(5)=1:a(6)=5
s =0
For i=1 To 5
If a (i)t = a(i):a(i) =a(i + 1):a(i+1)=t
End If
s=s+a(i+ 1)
Next i
执行该程序段后,s的值是(  )
A.10 B.11 C.18 D.19
12.(2020高三上·浙江月考)某对分查找算法的VB程序段如下:
Key = Val(Text1.Text)
i=1:j=10
Do While i<= j
m= (i+j)\ 2
s= s+Str(a(m)\ Key)
If a(m) > Key Then j= m- 1 Else i=m+1
Loop
Text2.Text = s
数组元素a(1)到a( 10)的值依次为“2,3,5,8,9,10,13,17,19,20”。在文本框Text1中输入待查找的整数,执行该程序段,则文本框Text2中显示的内容可能的是(  )
A.2 1 1 B.0 1 1 1
C.0 0 1 0 D.0 2 0 1
二、非选择题(本大题共4小题,4+8+7+7,共26分)
13.(2020高三上·浙江月考)疫情期间学生在家进行网课学习,张老师对自己所带的两个班某节技术课的听课情况进行了统计分析,如下图a所示,请回答下列问题:
(1)单元格K4统计的是0301班在线时长率低于60%的学生人数,是使用COUNTIFS时计算得到的,并对K4:L5进行自动填充,K4单元格里的公式是   。
(提示:COUNTIFS函数用于计算多个区域中满足给定条件的单元格的个数。例如:= COUNTIFS(F4:F83,"<60",B4: B83,J5)表示求F4: F83区域内所选内容小于“60”且B4:B83区域内所选内容为“0302”的单元格数据,F列、G列均为百分数。)
(2)将工作表区域A3:H83的数据复制到新工作表,在新工作表中对“班级”和“总收看时长”进行筛选,如图b和图c所示,符合条件的筛选结果只有一项,原因是   。
(3)根据图a数据,制作图d,则该图表的数据源是   。
14.(2020高三上·浙江月考)使用Flash软件制作“鱼牛的故事”动画:
(1)创作多媒体作品需要进行需求分析和规划设计。下列属于创作需求分析的是   (多选,填字母:A .了解用户的计算机应用水平/B .考虑作品创作及运行需要的硬件设施/C .确定获取原始素材的方式/D .设计作品的主要界面/E .确定作品的发布方式)。
(2)测试该场景时,“鱼”图层内容在播放完第15帧后消失,为了使该图层延续到45帧,下列操作可行的是 。(多选题,填字母)
A.选中“鱼”图层第16帧执行“清除关键帧”操作
B.选中“鱼”图层第45帧执行“插人关键帧”操作
C.删除“鱼”图层第16帧
D.选中“鱼”图层第15帧执行“复制帧”操作,在第45帧执行“粘贴帧”操作
E.选中“鱼”图层第15帧执行“复制帧”操作,在第16帧执行“粘贴帧”操作
(3)“鱼”图层第1帧中的对象是完全透明的“鱼儿”元件实例。测试当前场景时,第1帧到15帧没有实现“鱼儿”元件实例由完全透明到完全显示的渐变动画效果,要实现该效果,则在“鱼”图层第1帧中将“鱼儿”实例的颜色Alpha值设为   %。
(4)删除声音图层的第20帧到第45帧,对动画整体音效    (填:有/无)影响。
(5)单击“replay”按钮,跳转到“第一幕”场景第1帧并开始播放,该按钮的动作脚本命令是   。
15.(2020高三上·浙江月考)在一个整数序列中找第k大的数,若有相同的整数,则位置靠前的整数的名次靠前。如有整数序列为“10,13,12,13,15”,则第1大的数为15,在第5个位置,第2大的数为13,在第2个位置,第3大的数还是13,在第4个位置,第4大的数是12,在第3个位置,第5大的数是10,在第1个位置。
编写一个VB程序,实现如下功能:程序启动时产生n个1~20之间的随机整数,在文本框
Text2中输人整数k(k≤n),单击“查找"按钮Command1后,在标签Label1上显示第k大的数及位置。程序运行界面如图所示。
(1)下列对象不具有Caption属性的是   (单选,填字母:mand1 /B .Form1 / C .Text1 /D .Label1)
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Const n= 10
Dima(1 To n) As Integer
Private Sub Form_ Load(  )
'本过程产生n个1~20之间的随机整数存数组a中,并在文本框Text1中显示,代码略
End Sub
Private Sub Command1_Click()
Dimi As Integer,key As Integer,c As Integer,k As Integer
Dim b(1 To 20) As Integer
   
For i= 1 To n
b(a(i)) = b(a(i)) +1
Next i
i= 20
Do While i> 1 And b(i) < k
   
i=i-1
Loop
   
Label3.Caption="第"+Str(k)+"大的数是"+Str( key)
c=0
For i=1 To n
If a(i) = key Then c= c+1
If c= Then Exit For
Next i
Label3.Caption =Label3.Caption + ",在第"+Str(i)+"位置"
End Sub
(3)程序代码中的加框处代码有误,请改正。
16.(2020高三上·浙江月考)学校餐厅实施套餐预订制度来提升窗口打菜效率,缩短学生排队时间。每周学校都会提供“ABCD”四种套餐供学生选择,然后按每种套餐的预定数量安排特定的点餐窗口(混合套餐窗口尽量少,一人只能预订一份套餐)。
安排方法如下:先计算出每个窗口的平均售卖套餐数量num=套餐总需求量(n)\窗口数(k),然后按平均套餐数量num顺次安排“ABCD"四种套餐(首轮每个窗口出售一种套餐,数量为num),当某种套餐需求数量或安排后剩余需求数量小于套餐平均数num时,待首轮安排结束后安排在混合窗口。如第一轮安排单-套餐窗口编号为1到b1,那么混合窗口编号为b1+1到k,为了均衡混合窗口的套餐种数,混合窗口从窗口编号k到b1+1按各类套餐剩余需求数由大到小安排一轮(安排k-b1种套餐),然后从窗口编号b1+1到k按各套餐剩余数量由大到小顺次安排,当窗口安排套餐数量达到num时,剩余套餐换至下一窗口继续安排,最后一个窗口(k窗口)人数允许大于num。
编写VB程序,实现窗口套餐分配功能:点击“载人口点某窗口安排套餐预订信息”按钮Command1后,将预订套餐总人数显示在文本框Text1中,各套餐预订人数显示在列表框List1中,在文本框Text2中输入点菜窗口数,然后点击“窗口安排方案”按钮Command2,在列表框List2中显示点菜窗口安排结果。程序运行界面如图所示。
(1)“ABCD”套餐预订人数如程序运行界面所示,当窗口数设置为“8”时,最后一个窗口(8号窗口)安排的套餐为   。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Dim a(1 To4) As Integer'顺次存储“ABCD"四种套餐预订人数
Dim b(1 To 20) As Integer'存储各窗口安排套餐数量
Dim c(1 To 20) As String '存储窗口套餐方案
Dim n As Integer
Private Sub Command1_Click()
'载人套餐预订信息,预订人数存人n,各套餐预订数量存人a数组,
代码略
End Sub
Private Sub Command2_ Click()
Dim k As
Integer,num As Integer, b1 As Integer
Dim i As
Integer,j As Integer, t As Integer, t1 As Integer
Dims As
String
Dim d(1 To
4) As Integer
s =
"ABCD"
k = Text2.Text
num = n\k '计算各窗口平均排队人数
b1= 1
For i=1 To
4
Do
While a(i):>=num
c(b1) = Mid(s, i, 1)
b(b1) = num
a(i) = a(i)-num
b1=b1+1
Loop
   
Next i
b1=b1-1
For i = 1
To 4
For j=i+1 To 4
If a(i) < a(j) Then
t=a(i):a(i)=a(j):a(j)=t
t=d(i):d(i)=d(j):d(j)=t
End If
Next j
Next i
t=k
For i=1 To
k-b1 '按各类套餐剩余需求数从大到小安排一轮
b(t)
= a(i)
c(t)
= Mid(s, d(i), 1)
a(i) = 0
t=t-1
Next i
t =i
For i=b1 To
k
Do While b(i)num*(k-1)+b(k)<>n
b(i) = b(i) 十a(t)
   
a(t) = 0
t=t+1
Loop
If b(i)>num And i<>k Then
t=t-1
   
b(i) = num
End If
Next i
List2.AddItem
"套餐数量”
For i =1
To k
List2.AddItem c(i) + ""+ Str(b(i))
Next i
End Sub
答案解析部分
1.【答案】B
【知识点】信息及其特征;人工智能的应用
2.【答案】C
【知识点】网络资源的类型、下载与保存;浏览器;网络资源的检索;网页标记语言及基本组成
3.【答案】A
【知识点】数据表的创建
4.【答案】D
【知识点】进制及数制转换
5.【答案】D
【知识点】图层及图层的基本操作
6.【答案】A
【知识点】声音、图像、视频编码
7.【答案】C
【知识点】分支结构语句及程序实现
【解析】【解答】大于等于128为1,小于128为0,故答案选C。
【分析】本题考查的是对语句的理解。
8.【答案】D
【知识点】流程图识读
9.【答案】A
【知识点】分支结构语句及程序实现;循环结构语句及程序实现;常用标准函数
10.【答案】C
【知识点】分支结构语句及程序实现;循环结构语句及程序实现
11.【答案】A
【知识点】排序算法及程序实现
12.【答案】B
【知识点】查找算法及程序实现
13.【答案】(1)=COUNTIFS(F$4:F$83,"<60", $B$4: $B$83, $J4)
(2)两次筛选间是“与”的关系,表示总收看时长最大的三项中符合班级为0301的只有一项
(3)J3:J5,L3:L5或J4:J5,L4:L5
【知识点】表格数据的处理与计算;表格数据的图表呈现
14.【答案】(1)BE
(2)A;E
(3)0
(4)无
(5)on( release) { gotoAndPlay(“第一幕” ,1);}或on( press) {gotoAndPlay(“第一幕” ,1);}或其他等价表述
【知识点】多媒体作品的规划和设计;时间轴、帧、图层、库的概念及基本操作;二维动画实例属性的设置;常用影片控制函数的应用
15.【答案】(1)C
(2)k = Val(Text2.Text);b(i-1)=b(i)+b(i-1);key=i
(3)k-b(key+1)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用;分支结构语句及程序实现;循环结构语句及程序实现
16.【答案】(1)DBC
(2)d(i) = i;c(i) = c(i) + Mid(s, d(t),1);a(t) = b(i) -num
【知识点】排序算法及程序实现
1 / 1浙江省2021届高三上学期信息技术9月百校联考试卷
一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
1.(2020高三上·浙江月考)下列有关信息与信息处理的说法,不正确的是(  )
A.“有一千个读者就有一千个哈姆雷特”,说明了信息可以被加工处理
B.扫描商品条码获取商品信息,说明信息可以脱离载体而存在
C.二维码过一段时间会失效,说明信息具有时效性
D.刷脸支付属于人工智能应用
【答案】B
【知识点】信息及其特征;人工智能的应用
2.(2020高三上·浙江月考)下列有关网页与浏览器的说法,正确的是(  )
A.在E浏览器中,以“网页,全部(*,Htm,*.html)”类型保存网页,可以同时保存视频
B.用HTTP语言可以描述网页中的文本、图像和超链接等元素
C.浏览器的“收藏夹”中保存了所收藏网页的URL
D.访问相同的网址,得到的网页内容一定相同
【答案】C
【知识点】网络资源的类型、下载与保存;浏览器;网络资源的检索;网页标记语言及基本组成
3.(2020高三上·浙江月考)使用Access软件设计一个数据表,存储如图所示的文章记录数据。
文章ID 文章标题 文章内容 发布时间 审核
1 扬帆起航逐梦高考 (略) 2020- 07-31 待审核
2 慧心尔雅待展芳华 (略) 2020- 08-01 通过
3 选择自己适合的路 (略) 2020-08-02 未通过
…… …… …… …… ……
注:因篇幅因素,表中省略了文章内容,该字段允许存储学生日常习作(5000字以内)。
下列表格设计合理的是(  )
A. B.
C. D.
【答案】A
【知识点】数据表的创建
4.(2020高三上·浙江月考)下列关于数制的说法,正确的是(  )
A.二进制数1010011转换为十六进制数是A3
B.二进制数110中的末位数码0对应的权值是0
C.ASCII码由128个代码组成,码值范围为1~128
D.若二进制数1101去掉末位数码1,则新数是原数的1\2
【答案】D
【知识点】进制及数制转换
5.(2020高三上·浙江月考)用Photoshop软件制作“绍兴旅游”作品,如图所示,下列说法正确的是(  )
A.“如画绍兴"图层设置了滤镜效果
B.调换“如画绍兴”和“人文景观"图层的次序,会影响图像效果
C.“如画绍兴”图层创建了变形文字
D.选中“绍”字,执行修改字号命令仅将“绍”字变大
【答案】D
【知识点】图层及图层的基本操作
6.(2020高三上·浙江月考)一个未经压缩的音频文件,相关参数及选取状态如图所示。
则该文件执行裁剪命令后,该音频文件的存储容量约为(  )
A.258KB B.602KB C.861KB D.881KB
【答案】A
【知识点】声音、图像、视频编码
7.(2021·浙江选考)x的范围为(0 255),下列选项中,与语句"n=x\128"功能相同的是(  )
A.n=0 If x> 128 Then n= 1 B.n=0 If x<128 Then n=1
C.n= 1 If x<128 Then n=0 D.n=1 If x>128 Then n=0
【答案】C
【知识点】分支结构语句及程序实现
【解析】【解答】大于等于128为1,小于128为0,故答案选C。
【分析】本题考查的是对语句的理解。
8.(2020高三上·浙江月考)某算法的部分流程图如图所示,执行这部分流程,若输人n值为35,k值为3,则输出c的值为(  )
A.35 B.62 C.90 D.93
【答案】D
【知识点】流程图识读
9.(2020高三上·浙江月考)有如下VB程序段:
Dims As String, c As String, st As String
Dim n As Integer, i As Integer
s ="20zj20sx7":n=0:st=""
For i=1 To Len(s)
c=Mid(s,i,1)
If c>= "a" And c<= "z" Then
st=Chr(Asc("a") *2+25-Asc(c))+st
Else
n=n*10+ Val(c)
End If
Next i
st =st+str(n)
执行该程序段后,变量st的值是(  )
A.chqa 20207 B.cgpz 47 C.zpgc 20207 D.zjsx 47
【答案】A
【知识点】分支结构语句及程序实现;循环结构语句及程序实现;常用标准函数
10.(2020高三上·浙江月考)在字符串s中找连续最长不下降数字字符串长度max,如字符串“318714101223411624”连续最长不下降数字字符串为“012234”,其长度max为6,实现该功能的VB程序段如下:
s = "318714101223411624"
c=Mid(s, 1, 1):i=1:max=0
For j=2 To Len(s)
If t> c Or j = Len(s) Then
End If
Next j
上述程序段中方框处可选语句如下:
①i=j
②t=c
③c = Mid(s, j, 1)
④If j-i>max Then max=j-i
则(1)(2)(3)(4)处语句依次为(  )
A.③②④① B.②④③① C.②③④① D.③①④②
【答案】C
【知识点】分支结构语句及程序实现;循环结构语句及程序实现
11.(2020高三上·浙江月考)有如下VB程序段:
a(1)=4:a(2)=5:a(3)=3:a(4)=1:a(5)=1:a(6)=5
s =0
For i=1 To 5
If a (i)t = a(i):a(i) =a(i + 1):a(i+1)=t
End If
s=s+a(i+ 1)
Next i
执行该程序段后,s的值是(  )
A.10 B.11 C.18 D.19
【答案】A
【知识点】排序算法及程序实现
12.(2020高三上·浙江月考)某对分查找算法的VB程序段如下:
Key = Val(Text1.Text)
i=1:j=10
Do While i<= j
m= (i+j)\ 2
s= s+Str(a(m)\ Key)
If a(m) > Key Then j= m- 1 Else i=m+1
Loop
Text2.Text = s
数组元素a(1)到a( 10)的值依次为“2,3,5,8,9,10,13,17,19,20”。在文本框Text1中输入待查找的整数,执行该程序段,则文本框Text2中显示的内容可能的是(  )
A.2 1 1 B.0 1 1 1
C.0 0 1 0 D.0 2 0 1
【答案】B
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题,4+8+7+7,共26分)
13.(2020高三上·浙江月考)疫情期间学生在家进行网课学习,张老师对自己所带的两个班某节技术课的听课情况进行了统计分析,如下图a所示,请回答下列问题:
(1)单元格K4统计的是0301班在线时长率低于60%的学生人数,是使用COUNTIFS时计算得到的,并对K4:L5进行自动填充,K4单元格里的公式是   。
(提示:COUNTIFS函数用于计算多个区域中满足给定条件的单元格的个数。例如:= COUNTIFS(F4:F83,"<60",B4: B83,J5)表示求F4: F83区域内所选内容小于“60”且B4:B83区域内所选内容为“0302”的单元格数据,F列、G列均为百分数。)
(2)将工作表区域A3:H83的数据复制到新工作表,在新工作表中对“班级”和“总收看时长”进行筛选,如图b和图c所示,符合条件的筛选结果只有一项,原因是   。
(3)根据图a数据,制作图d,则该图表的数据源是   。
【答案】(1)=COUNTIFS(F$4:F$83,"<60", $B$4: $B$83, $J4)
(2)两次筛选间是“与”的关系,表示总收看时长最大的三项中符合班级为0301的只有一项
(3)J3:J5,L3:L5或J4:J5,L4:L5
【知识点】表格数据的处理与计算;表格数据的图表呈现
14.(2020高三上·浙江月考)使用Flash软件制作“鱼牛的故事”动画:
(1)创作多媒体作品需要进行需求分析和规划设计。下列属于创作需求分析的是   (多选,填字母:A .了解用户的计算机应用水平/B .考虑作品创作及运行需要的硬件设施/C .确定获取原始素材的方式/D .设计作品的主要界面/E .确定作品的发布方式)。
(2)测试该场景时,“鱼”图层内容在播放完第15帧后消失,为了使该图层延续到45帧,下列操作可行的是 。(多选题,填字母)
A.选中“鱼”图层第16帧执行“清除关键帧”操作
B.选中“鱼”图层第45帧执行“插人关键帧”操作
C.删除“鱼”图层第16帧
D.选中“鱼”图层第15帧执行“复制帧”操作,在第45帧执行“粘贴帧”操作
E.选中“鱼”图层第15帧执行“复制帧”操作,在第16帧执行“粘贴帧”操作
(3)“鱼”图层第1帧中的对象是完全透明的“鱼儿”元件实例。测试当前场景时,第1帧到15帧没有实现“鱼儿”元件实例由完全透明到完全显示的渐变动画效果,要实现该效果,则在“鱼”图层第1帧中将“鱼儿”实例的颜色Alpha值设为   %。
(4)删除声音图层的第20帧到第45帧,对动画整体音效    (填:有/无)影响。
(5)单击“replay”按钮,跳转到“第一幕”场景第1帧并开始播放,该按钮的动作脚本命令是   。
【答案】(1)BE
(2)A;E
(3)0
(4)无
(5)on( release) { gotoAndPlay(“第一幕” ,1);}或on( press) {gotoAndPlay(“第一幕” ,1);}或其他等价表述
【知识点】多媒体作品的规划和设计;时间轴、帧、图层、库的概念及基本操作;二维动画实例属性的设置;常用影片控制函数的应用
15.(2020高三上·浙江月考)在一个整数序列中找第k大的数,若有相同的整数,则位置靠前的整数的名次靠前。如有整数序列为“10,13,12,13,15”,则第1大的数为15,在第5个位置,第2大的数为13,在第2个位置,第3大的数还是13,在第4个位置,第4大的数是12,在第3个位置,第5大的数是10,在第1个位置。
编写一个VB程序,实现如下功能:程序启动时产生n个1~20之间的随机整数,在文本框
Text2中输人整数k(k≤n),单击“查找"按钮Command1后,在标签Label1上显示第k大的数及位置。程序运行界面如图所示。
(1)下列对象不具有Caption属性的是   (单选,填字母:mand1 /B .Form1 / C .Text1 /D .Label1)
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Const n= 10
Dima(1 To n) As Integer
Private Sub Form_ Load(  )
'本过程产生n个1~20之间的随机整数存数组a中,并在文本框Text1中显示,代码略
End Sub
Private Sub Command1_Click()
Dimi As Integer,key As Integer,c As Integer,k As Integer
Dim b(1 To 20) As Integer
   
For i= 1 To n
b(a(i)) = b(a(i)) +1
Next i
i= 20
Do While i> 1 And b(i) < k
   
i=i-1
Loop
   
Label3.Caption="第"+Str(k)+"大的数是"+Str( key)
c=0
For i=1 To n
If a(i) = key Then c= c+1
If c= Then Exit For
Next i
Label3.Caption =Label3.Caption + ",在第"+Str(i)+"位置"
End Sub
(3)程序代码中的加框处代码有误,请改正。
【答案】(1)C
(2)k = Val(Text2.Text);b(i-1)=b(i)+b(i-1);key=i
(3)k-b(key+1)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用;分支结构语句及程序实现;循环结构语句及程序实现
16.(2020高三上·浙江月考)学校餐厅实施套餐预订制度来提升窗口打菜效率,缩短学生排队时间。每周学校都会提供“ABCD”四种套餐供学生选择,然后按每种套餐的预定数量安排特定的点餐窗口(混合套餐窗口尽量少,一人只能预订一份套餐)。
安排方法如下:先计算出每个窗口的平均售卖套餐数量num=套餐总需求量(n)\窗口数(k),然后按平均套餐数量num顺次安排“ABCD"四种套餐(首轮每个窗口出售一种套餐,数量为num),当某种套餐需求数量或安排后剩余需求数量小于套餐平均数num时,待首轮安排结束后安排在混合窗口。如第一轮安排单-套餐窗口编号为1到b1,那么混合窗口编号为b1+1到k,为了均衡混合窗口的套餐种数,混合窗口从窗口编号k到b1+1按各类套餐剩余需求数由大到小安排一轮(安排k-b1种套餐),然后从窗口编号b1+1到k按各套餐剩余数量由大到小顺次安排,当窗口安排套餐数量达到num时,剩余套餐换至下一窗口继续安排,最后一个窗口(k窗口)人数允许大于num。
编写VB程序,实现窗口套餐分配功能:点击“载人口点某窗口安排套餐预订信息”按钮Command1后,将预订套餐总人数显示在文本框Text1中,各套餐预订人数显示在列表框List1中,在文本框Text2中输入点菜窗口数,然后点击“窗口安排方案”按钮Command2,在列表框List2中显示点菜窗口安排结果。程序运行界面如图所示。
(1)“ABCD”套餐预订人数如程序运行界面所示,当窗口数设置为“8”时,最后一个窗口(8号窗口)安排的套餐为   。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Dim a(1 To4) As Integer'顺次存储“ABCD"四种套餐预订人数
Dim b(1 To 20) As Integer'存储各窗口安排套餐数量
Dim c(1 To 20) As String '存储窗口套餐方案
Dim n As Integer
Private Sub Command1_Click()
'载人套餐预订信息,预订人数存人n,各套餐预订数量存人a数组,
代码略
End Sub
Private Sub Command2_ Click()
Dim k As
Integer,num As Integer, b1 As Integer
Dim i As
Integer,j As Integer, t As Integer, t1 As Integer
Dims As
String
Dim d(1 To
4) As Integer
s =
"ABCD"
k = Text2.Text
num = n\k '计算各窗口平均排队人数
b1= 1
For i=1 To
4
Do
While a(i):>=num
c(b1) = Mid(s, i, 1)
b(b1) = num
a(i) = a(i)-num
b1=b1+1
Loop
   
Next i
b1=b1-1
For i = 1
To 4
For j=i+1 To 4
If a(i) < a(j) Then
t=a(i):a(i)=a(j):a(j)=t
t=d(i):d(i)=d(j):d(j)=t
End If
Next j
Next i
t=k
For i=1 To
k-b1 '按各类套餐剩余需求数从大到小安排一轮
b(t)
= a(i)
c(t)
= Mid(s, d(i), 1)
a(i) = 0
t=t-1
Next i
t =i
For i=b1 To
k
Do While b(i)num*(k-1)+b(k)<>n
b(i) = b(i) 十a(t)
   
a(t) = 0
t=t+1
Loop
If b(i)>num And i<>k Then
t=t-1
   
b(i) = num
End If
Next i
List2.AddItem
"套餐数量”
For i =1
To k
List2.AddItem c(i) + ""+ Str(b(i))
Next i
End Sub
【答案】(1)DBC
(2)d(i) = i;c(i) = c(i) + Mid(s, d(t),1);a(t) = b(i) -num
【知识点】排序算法及程序实现
1 / 1

展开更多......

收起↑

资源列表