专题10 算法的程序实现-备战2021年高考真题模拟题分项汇编（浙江专用）

专题十 算法的程序实现 考 试 条 目 单元 考试内容 考试要求 第二单元 信息的加工 5.算法的程序实现 ①对象、属性、事件和事件处理的概念 ②VB应用程序的界面设计与调试 ③基本数据类型、常量、变量、常用的标准函数(Abs、Int、Sqr、Rnd、Val、Str、Len、Mid) ④算术、关系、逻辑三类基本运算及表达式 ⑤赋值语句、选择语句、循环语句、注释语句 ⑥解析算法、枚举算法等常用算法的实现 c 直 击 高 考 1. （20.07 浙江选考）某校为学生期末考试分配考场，并编制准考证号。每个班级有班号，每位学生有班内序号，班内序号是按班级现有人数从1开始逐个编排的。准考证号格式为“入学年份+班号+班内序号”。每个考场有30个座位，座位号从1开始。连续分配座位的两个学生不属于同一个班级。 分配方法是：按考场号递增、同一考场座位号递增的顺序逐一分配座位。每次分配，先选班级，再选学生。选择班级时，在班级降序序列（按未分配人数）中选择第1个班级，但如果该班和前一次分配选定的班级相同，则改选第2个班级。选定班级后，再为该班耒分配学生中序号最大的学生分配考场座位，并维护班级降序序列（按未分配人数）。 编写VB程序，实现考场分配功能：在文本框Text1中填写入学年份，单击“读取”按钮Commandl后，将各班数据按人数降序显示在列表框List1中，然后单击“分配”按钮Command2，在列表框List2中显示分配结果。程序运行界面如图所示。 请回答下列问题： （1）下列对象中，有Caption属性的是______（单选，填字母：A．Command 1 / B．Text 1/C．List 1）。 （2）实现考场分配功能的VB程序如下，请在划线处填入合适的代码。 （3）程序中加框处代码有错，请改正。 Dim n As Integer, y As String Dim cla(1 To 20)As Integer, num(I To 20)As Integer Dim room as Integer ＇存储考场号 Dim seat as Integer ＇存储座位号 Function fm(k As Integer) As String ＇返回整数k（l≤k≤99）对应的数字字符串，不足两位左侧补“0”，代码略 End function Private