在考生文件夹下有“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循环实现。运行该模块的结果如图所示。

在考生文件夹下有“db4.mdb”数据库。鸡和兔子共30只,脚共90只,编写模块“模块1”实现计算鸡和兔子共多少只,结果用消息框显示,要求用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代码,实现关闭“雇员”窗体时,显示如图所示消息框。