1112代码设计 “计划表1”、“计划表2”、“计划表3”工作表都定义了 个命令按钮“数据统计”。用来根据周学时和授课周数求每 课的“共计”、“讲授”、“实验”学时和同一类课的周 学时小计 个工作表上命令按钮的Cick事件代码都是一样的: .s Private Sub CommandButton Click Call calc 令 End sub 令它调用通用模块(模块1)中的过程calc对当前工作表根据 周学时和授课周数求每门课的“共计”、“讲授”、“实验” 学时和同一类课的周学时小计。 通用模块的建立方法是:在当前工程 VBAProject中,选 “插入”菜单的“模块”项,插入一个通用模块,用默认名 “模块1
11.1.2 代码设计 ❖ “计划表1”、“计划表2”、“计划表3”工作表都定义了一 个命令按钮“数据统计”。用来根据周学时和授课周数求每 门课的“共计”、“讲授”、“实验”学时和同一类课的周 学时小计。 ❖ 三个工作表上命令按钮的Click事件代码都是一样的： ❖ Private Sub CommandButton1_Click() ❖ Call calc ❖ End Sub ❖ 它调用通用模块（模块1）中的过程calc对当前工作表根据 周学时和授课周数求每门课的“共计”、“讲授”、“实验” 学时和同一类课的周学时小计。 通用模块的建立方法是：在当前工程VBAProject中，选 “插入”菜单的“模块”项，插入一个通用模块，用默认名 “模块1
cac是在模块1中定义的过程,其中有具体的代码 令)在cac过程中,定义了一个数组zs(8),用来存放每一类课1 至8学期周学时小计。从当前工作表第7行开始循环直至“课程编 号”为空 如果未遇到“小计”行,则每行1到8学期的周学时和对应的授 课周数(在第6行)相乘得到课程学时,填写到该课程的“共 计”、“讲授”、“实验”单元格,累加到相应的下标变量,同 时累加“共计”、“讲授”、“实验”学时以及“学分”和课程 门数。课程学时分为讲授、实验和总共三列。如果周学时仅为 个数,则为讲授学时;如果周学时中含有“+”号,则“+号左边 的数值为讲授学时,右边的数值为实验学时:如果周学时中有插 号,则括号里面的数值不计入课程学时 今如果遇到“小计”行,则分别填写各学期的周学时小计,“共 计”、“讲授”、“实验”学时小计,学分小计和课程门数小计
❖ calc是在模块1中定义的过程，其中有具体的代码。 ❖ 在calc过程中，定义了一个数组zxs(8)，用来存放 每 一类课1 至8学期周学时小计。从当前工作表第7行开始循环直至“课程编 号”为空。 ❖ 如果未遇到“小计”行，则每行1到8学期的周学时和对应的授 课周数（在第6行）相乘得到课程学时，填写到该课程的“共 计”、“讲授”、“实验”单元格，累加到相应的下标变量，同 时累加“共计”、“讲授”、“实验”学时以及“学分”和课程 门数。课程学时分为讲授、实验和总共三列。如果周学时仅为一 个数，则为讲授学时；如果周学时中含有“+”号，则“+”号左边 的数值为讲授学时，右边的数值为实验学时；如果周学时中有括 号，则括号里面的数值不计入课程学时。 ❖ 如果遇到“小计”行，则分别填写各学期的周学时小计，“共 计”、“讲授”、“实验”学时小计，学分小计和课程门数小计
1113应用 “计划表1”、“计划表2”和“计划表3”的 结构和代码设计完成之后,就可以输入或修 改各门课的编号、名称、学分、各学期的周 学时以及考试考查所在学期这样一些基本信
11.1.3 应用 “计划表1” 、 “计划表2”和“计划表3”的 结构和代码设计完成之后，就可以输入或修 改各门课的编号、名称、学分、各学期的周 学时以及考试考查所在学期这样一些基本信 息
图2为公共课计划表输入基本信息后的情形。 D⊥ EFGHIJKL MNOP Q 计算机科学与技术专业四年制本科课程设置与教学时间计划表 公共课) 4课|课 课程名称 程共讲 第第第|第第第第第所所 学计授验 期|期 育育语语语语语语 图2 3 14共[80100 修801009 法律基础 801010 马克思主义哲学 当代世界经济政治 801012 毛泽东思想概论 邓小平理论概论 801015 形势政策(讲庄) 科学方法论 802002 际关系学 公 艺术、音乐赏析 26选802004礼宾原理与礼节应用|2 备选课:大学应用语文、公其关系学、汽车驾驶、书法、现代科学技术导论、运筹学、科学方法论 人际关系学、艺术音乐欣赏、礼宾原理与礼节应用、讲演与口才
图２为公共课计划表输入基本信息后的情形。 图2