资源简介 浙江省2021届高三上学期信息技术9月百校联考试卷一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)1.(2020高三上·浙江月考)下列有关信息与信息处理的说法,不正确的是( )A.“有一千个读者就有一千个哈姆雷特”,说明了信息可以被加工处理B.扫描商品条码获取商品信息,说明信息可以脱离载体而存在C.二维码过一段时间会失效,说明信息具有时效性D.刷脸支付属于人工智能应用2.(2020高三上·浙江月考)下列有关网页与浏览器的说法,正确的是( )A.在E浏览器中,以“网页,全部(*,Htm,*.html)”类型保存网页,可以同时保存视频B.用HTTP语言可以描述网页中的文本、图像和超链接等元素C.浏览器的“收藏夹”中保存了所收藏网页的URLD.访问相同的网址,得到的网页内容一定相同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转换为十六进制数是A3B.二进制数110中的末位数码0对应的权值是0C.ASCII码由128个代码组成,码值范围为1~128D.若二进制数1101去掉末位数码1,则新数是原数的1\25.(2020高三上·浙江月考)用Photoshop软件制作“绍兴旅游”作品,如图所示,下列说法正确的是( )A.“如画绍兴"图层设置了滤镜效果B.调换“如画绍兴”和“人文景观"图层的次序,会影响图像效果C.“如画绍兴”图层创建了变形文字D.选中“绍”字,执行修改字号命令仅将“绍”字变大6.(2020高三上·浙江月考)一个未经压缩的音频文件,相关参数及选取状态如图所示。则该文件执行裁剪命令后,该音频文件的存储容量约为( )A.258KB B.602KB C.861KB D.881KB7.(2021·浙江选考)x的范围为(0 255),下列选项中,与语句"n=x\128"功能相同的是( )A.n=0 If x> 128 Then n= 1 B.n=0 If x<128 Then n=1C.n= 1 If x<128 Then n=0 D.n=1 If x>128 Then n=08.(2020高三上·浙江月考)某算法的部分流程图如图所示,执行这部分流程,若输人n值为35,k值为3,则输出c的值为( )A.35 B.62 C.90 D.939.(2020高三上·浙江月考)有如下VB程序段:Dims As String, c As String, st As StringDim n As Integer, i As Integers ="20zj20sx7":n=0:st=""For i=1 To Len(s)c=Mid(s,i,1)If c>= "a" And c<= "z" Thenst=Chr(Asc("a") *2+25-Asc(c))+stElsen=n*10+ Val(c)End IfNext ist =st+str(n)执行该程序段后,变量st的值是( )A.chqa 20207 B.cgpz 47 C.zpgc 20207 D.zjsx 4710.(2020高三上·浙江月考)在字符串s中找连续最长不下降数字字符串长度max,如字符串“318714101223411624”连续最长不下降数字字符串为“012234”,其长度max为6,实现该功能的VB程序段如下:s = "318714101223411624"c=Mid(s, 1, 1):i=1:max=0For j=2 To Len(s)If t> c Or j = Len(s) ThenEnd IfNext 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)=5s =0For i=1 To 5If a (i)t = a(i):a(i) =a(i + 1):a(i+1)=tEnd Ifs=s+a(i+ 1)Next i执行该程序段后,s的值是( )A.10 B.11 C.18 D.1912.(2020高三上·浙江月考)某对分查找算法的VB程序段如下:Key = Val(Text1.Text)i=1:j=10Do While i<= jm= (i+j)\ 2s= s+Str(a(m)\ Key)If a(m) > Key Then j= m- 1 Else i=m+1LoopText2.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 1C.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= 10Dima(1 To n) As IntegerPrivate Sub Form_ Load( )'本过程产生n个1~20之间的随机整数存数组a中,并在文本框Text1中显示,代码略End SubPrivate Sub Command1_Click()Dimi As Integer,key As Integer,c As Integer,k As IntegerDim b(1 To 20) As Integer For i= 1 To nb(a(i)) = b(a(i)) +1Next ii= 20Do While i> 1 And b(i) < k i=i-1Loop Label3.Caption="第"+Str(k)+"大的数是"+Str( key)c=0For i=1 To nIf a(i) = key Then c= c+1If c= Then Exit ForNext iLabel3.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 IntegerPrivate Sub Command1_Click()'载人套餐预订信息,预订人数存人n,各套餐预订数量存人a数组,代码略End SubPrivate Sub Command2_ Click()Dim k AsInteger,num As Integer, b1 As IntegerDim i AsInteger,j As Integer, t As Integer, t1 As IntegerDims AsStringDim d(1 To4) As Integers ="ABCD"k = Text2.Textnum = n\k '计算各窗口平均排队人数b1= 1For i=1 To4DoWhile a(i):>=numc(b1) = Mid(s, i, 1)b(b1) = numa(i) = a(i)-numb1=b1+1Loop Next ib1=b1-1For i = 1To 4For j=i+1 To 4If a(i) < a(j) Thent=a(i):a(i)=a(j):a(j)=tt=d(i):d(i)=d(j):d(j)=tEnd IfNext jNext it=kFor i=1 Tok-b1 '按各类套餐剩余需求数从大到小安排一轮b(t)= a(i)c(t)= Mid(s, d(i), 1)a(i) = 0t=t-1Next it =iFor i=b1 TokDo While b(i)num*(k-1)+b(k)<>nb(i) = b(i) 十a(t) a(t) = 0t=t+1LoopIf b(i)>num And i<>k Thent=t-1 b(i) = numEnd IfNext iList2.AddItem"套餐数量”For i =1To kList2.AddItem c(i) + ""+ Str(b(i))Next iEnd 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.浏览器的“收藏夹”中保存了所收藏网页的URLD.访问相同的网址,得到的网页内容一定相同【答案】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转换为十六进制数是A3B.二进制数110中的末位数码0对应的权值是0C.ASCII码由128个代码组成,码值范围为1~128D.若二进制数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=1C.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 StringDim n As Integer, i As Integers ="20zj20sx7":n=0:st=""For i=1 To Len(s)c=Mid(s,i,1)If c>= "a" And c<= "z" Thenst=Chr(Asc("a") *2+25-Asc(c))+stElsen=n*10+ Val(c)End IfNext ist =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=0For j=2 To Len(s)If t> c Or j = Len(s) ThenEnd IfNext 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)=5s =0For i=1 To 5If a (i)t = a(i):a(i) =a(i + 1):a(i+1)=tEnd Ifs=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=10Do While i<= jm= (i+j)\ 2s= s+Str(a(m)\ Key)If a(m) > Key Then j= m- 1 Else i=m+1LoopText2.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 1C.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= 10Dima(1 To n) As IntegerPrivate Sub Form_ Load( )'本过程产生n个1~20之间的随机整数存数组a中,并在文本框Text1中显示,代码略End SubPrivate Sub Command1_Click()Dimi As Integer,key As Integer,c As Integer,k As IntegerDim b(1 To 20) As Integer For i= 1 To nb(a(i)) = b(a(i)) +1Next ii= 20Do While i> 1 And b(i) < k i=i-1Loop Label3.Caption="第"+Str(k)+"大的数是"+Str( key)c=0For i=1 To nIf a(i) = key Then c= c+1If c= Then Exit ForNext iLabel3.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 IntegerPrivate Sub Command1_Click()'载人套餐预订信息,预订人数存人n,各套餐预订数量存人a数组,代码略End SubPrivate Sub Command2_ Click()Dim k AsInteger,num As Integer, b1 As IntegerDim i AsInteger,j As Integer, t As Integer, t1 As IntegerDims AsStringDim d(1 To4) As Integers ="ABCD"k = Text2.Textnum = n\k '计算各窗口平均排队人数b1= 1For i=1 To4DoWhile a(i):>=numc(b1) = Mid(s, i, 1)b(b1) = numa(i) = a(i)-numb1=b1+1Loop Next ib1=b1-1For i = 1To 4For j=i+1 To 4If a(i) < a(j) Thent=a(i):a(i)=a(j):a(j)=tt=d(i):d(i)=d(j):d(j)=tEnd IfNext jNext it=kFor i=1 Tok-b1 '按各类套餐剩余需求数从大到小安排一轮b(t)= a(i)c(t)= Mid(s, d(i), 1)a(i) = 0t=t-1Next it =iFor i=b1 TokDo While b(i)num*(k-1)+b(k)<>nb(i) = b(i) 十a(t) a(t) = 0t=t+1LoopIf b(i)>num And i<>k Thent=t-1 b(i) = numEnd IfNext iList2.AddItem"套餐数量”For i =1To kList2.AddItem c(i) + ""+ Str(b(i))Next iEnd Sub【答案】(1)DBC(2)d(i) = i;c(i) = c(i) + Mid(s, d(t),1);a(t) = b(i) -num【知识点】排序算法及程序实现1 / 1 展开更多...... 收起↑ 资源列表 浙江省2021届高三上学期信息技术9月百校联考试卷(学生版).docx 浙江省2021届高三上学期信息技术9月百校联考试卷(教师版).docx