在考生文件夹下有“db4.mdb”数据库。(1)创建“闰年判断”模块，实现通过输入框输入某一年，判断是否闰年，判断结果用消息框显示。模块运行结果如图所示。单击“确定”显示如图。(2)创建“求和”模块，实现1+2+3+...+99+100计算。要求算法在子过程Sum中实现，在主过程L中调用Sum子过程。算法用For循环语句实现。计算结果用消息框显示。结果模块运行结果如图所示。
在考生文件夹下有“db4.mdb”数据库。
(1)创建“闰年判断”模块，实现通过输入框输入某一年，判断是否闰年，判断结果用消息框显示。模块运行结果如图所示。
单击“确定”显示如图。
(2)创建“求和”模块，实现1+2+3+...+99+100计算。要求算法在子过程Sum中实现，在主过程L中调用Sum子过程。算法用For循环语句实现。计算结果用消息框显示。
结果模块运行结果如图所示。
相关考题：
在考生文件夹下有“db4．mdb”数据库。创建模块“出错处理”，实现在主过程中M()调用F2()函数。F2()函数实现监控错误，安排错误处理至标号“CATCHBLOCK”位置，假设错误代码为102，没有错误显示“No Error!”信息，正常退出函数。在“CATCHBLOCK”位置显示错误的描述信息 (Err．Description)。
在考生文件夹下有“学生.mdb”数据库。(1)创建宏“关闭窗体”，实现关闭“窗体1”同时弹出“关闭窗体”消息框。(2)在“窗体1”窗体中添加“课程信息”和“关闭窗体”按钮，分别实现打开“课程”窗体和运行“关闭窗体”宏。窗体1结果显示如图所示。
在考生文件夹下有“db4．mdb”数据库。创建实现求“水仙花数”的模块“模块1”，实现求“水仙花数”并用消息框输出。“水仙花数”是指一个三位数，其各位数字的立方和恰好等于该数的本身。例如 153=1*1*1+5*5*5+3*3*3。要求：“水仙花数”用DO While循环实现。运行该模块的结果如图所示。
在考生文件夹下有“人事管理系统.mdb”数据库。(1)在“基本情况”窗体中添加“所属部门”按钮，编写按钮代码实现单击该按钮时弹出对应部门的消息框(要求用Select Case语句实现)。单击按钮后结果如图所示。(2)在“基本情况”窗体中添加“工龄”按钮，编写按钮代码实现单击该按钮时弹出人员的工龄(工龄=Date()—调入日期)。单击按钮结果如图所示。
在考生文件夹下有“xx”数据库。在“窗体1”窗体中添加标签和名称相同的文本框“请输入学号”和“学生姓名”，添加“显示学生姓名”按钮，编写程序实现输入学号后单击“显示学生姓名”按钮后显示学生姓名。要求用Dlookup()函数实现。窗体设计如图所示。
在考生文件夹下有“db4.mdb”数据库。(1)创建“计算圆面积”窗体，在窗体中添加“请输入半径”和“圆面积”文本框。(2)在窗体中添加“计算”按钮，实现圆面积计算，编写按钮代码，结果显示在“圆面积”文本框中。要求编写单独的函数实现圆面积的计算，只做半径r＜=0判断，此时面积的值为0，其他情况下面积的值=3.14×r×r。窗体设计结果如图所示。
在考生文件夹下有“db4．mdb”数据库。(1) 以“按货号查询销售金额”查询为数据源；自动创建纵栏表布局窗体“按货号查询销售金额”。窗体结果如图所示。单击“确定”后显示如图。(2) 创建窗体“综合操作：”。在“综合操作”窗体上添加按钮“价格调整”、“人员业绩”“按货号查询售金额”和退出标志按钮，分别实现运行价格调整查询、运行人员业绩宏、打开按货号查询销售金额窗体和关闭窗体操作。添加页眉标签“综合操作”（宋体， 12号，红色，居中显示)，窗体的宽度为8匣米，选择弹出格式。窗体结果如图所示。
在考生文件夹下有商品数据库。(1)在“雇员”窗体中添加“最小化窗体”和“关闭窗体”按钮，编写Ⅶ语句实现最小化窗体和关闭窗体的操作。结果如图所示。(2)编写VB代码，实现关闭“雇员”窗体时，显示如图所示消息框。