ACCESS 2010 VBA程序设计题1[程序解答].docx

上传人:11****ws 文档编号:3258924 上传时间:2019-05-27 格式:DOCX 页数:11 大小:530.17KB
下载 相关 举报
ACCESS 2010 VBA程序设计题1[程序解答].docx_第1页
第1页 / 共11页
ACCESS 2010 VBA程序设计题1[程序解答].docx_第2页
第2页 / 共11页
ACCESS 2010 VBA程序设计题1[程序解答].docx_第3页
第3页 / 共11页
ACCESS 2010 VBA程序设计题1[程序解答].docx_第4页
第4页 / 共11页
ACCESS 2010 VBA程序设计题1[程序解答].docx_第5页
第5页 / 共11页
点击查看更多>>
资源描述

1、1、 【操作要求】新建一数据库,并在该数据库中创建一个名称为“血红蛋白判断”的窗体,可根据性别和血红蛋白值判断血红蛋白含量是否正常。女性血红蛋白在 110150 之间是正常的,小于 110 属于偏低,大于 150 属于偏高;男性血红蛋白在 120160 之间是正常的,小于 120 属于偏低,大于 160 属于偏高。运行时,先选择性别,然后输入一个血红蛋白值,程序运行时显示如下图。若点击选项按钮“女” ,输入 155,则显示“血红蛋白偏高!” ;若点击选项按钮“男” ,输入 115,则显示“血红蛋白偏低!” ;若点击选项按钮“男” ,输入 155,则显示“正常,请继续保持!”如下图。单击“清空”

2、按钮,则清除两个文本框中的内容。 Private Sub panduan_Click()Dim jg as stringIf xb = 1 ThenSelect Case xhdb.ValueCase Is 160jg = “偏高“Case Is = 120jg = “正常“Case Elsejg = “偏低“End SelectElseSelect Case xhdb.ValueCase Is 150jg = “偏高“Case Is = 110jg = “正常“Case Elsejg = “偏低“名称:xb名称:xhdb名称:jieguo名称:panduan名称:qingkongEnd Se

3、lectEnd Ifjieguo.Value = jgEnd SubPrivate Sub qingkong_Click()xhdb = “jieguo = “xhdb.SetFocusEnd Sub2、 【操作要求】新建一数据库,并在该数据库中创建一个标题为“成绩等级”的窗体,在“成绩”文本框中输入一个分数,单击“判断”命令按钮后,在“成绩等级”文本框中显示对应的成绩等级。输入的成绩在 90 100 分为优秀,8089 分为良好,7079 分为中等,6069 分为合格,059 分为不合格,否则弹出消息框,显示“成绩输入有误,请重新输入!”的消息,清空文本框中原有内容,并将光标定位在“成绩”文

4、本框中。输入 90 的运行情况如下图。名称:cj名称:cjdc名称:panduan3、 【操作要求】新建一数据库,并在该数据库中建一个名为“圆相关计算”的窗体,如下图所示,当在“请输入半径:”文本框中输入半径值,并选择一个选项按钮后,再单击“计算”按钮,会弹出一个消息框显示周长、面积或体积的值。如输入半径为 3,单击面积,弹出的消息框见下图。名称:banjing名称:xuanze4、 【操作要求】新建一数据库,并在该数据库中创建一个标题为“四季交替”的窗体,上有一个标签和一个按钮“四季” ;编写一个程序,实现以下功能:单击一次按钮,文本框中显示一个季节名称,依次是绿色的“春” 、黄色的“夏”

5、、蓝色的“秋”和红色的“冬” ,文字大小为 72 磅,字体依次为宋体、仿宋体、楷体、黑体,再次单击重复显示“春” 。结果如下图所示。名称:label1名称:shiji5、新建一数据库,并在该数据库中创建一个标题为“BMI 计算器”的窗体,运行时窗体视图如下图所示,编写合适的代码,使得输入身高和体重值后,单击“开始计算”按钮,在其右侧的文本框中显示 BMI 指数(BMI 指数= 体重(千克)除身高(米)的平方 Kg/m2) ,并且当 BMI 指数30 时,在窗体上方的标签上显示“你想做压路车吗?” ,当 BMI 指数18时,在窗体上方的标签上显示“你是一片树叶吗?” ,当 BMI 指数在 18

6、到 30 之间时,在窗体上方的标签上显示“恭喜你,太让人羡慕了!” 。名称:label7名称:shengao名称:tizhong名称:command6名称:bmi_text6、新建一数据库,并在该数据库中创建一个标题为“变换颜色”窗体,窗体上有一个标签,两个命令按钮。设置标签的字体为 36 磅,加粗、倾斜;窗体的标题为“变换颜色” ;单击“开始”按钮,则标签上的文字“色彩缤纷”每隔 0.5 秒随机变换颜色,单击“停止”按钮,则标签颜色停止变化,并且字体不加粗、不倾斜。运行时某一时刻的界面如图。名称:label0名称:start名称:stop7、新建一数据库,并在该数据库中创建一个如下图所示的窗

7、体,实现“体型测试”功能。当用户输入了身高、体重和性别后,单击“测试”按钮,系统会在“下限”下面的文本框中自动给出测试结果,单击“清除”按钮,所有文本框和组合框均无显示。假设测试的结果是这样定义的:对于男性,体重上限=(身高(厘米数)-100)*1.1,体重下限=(身高(厘米数)-100)*0.9;对于女性,体重上限=(身高(厘米数)-105)*1.1,体重下限=(身高(厘米数)-105)*0.9。如果体重在上、下限范围内,显示“体形适中” ;高于上限值,显示“体形偏胖” ;低于下限值显示“体形偏瘦” 。名称:upper8、新建一数据库,并在该数据库中创建一个“求阶乘”的窗体,窗体上有一个显示

8、为“求阶乘”的按钮,单击该按钮,弹出一个输入对话框,在框中输入 010 的数,单击“确定”按钮,在消息框显示所求数的阶乘。要求:若输入的数不在 010 之间,重新弹出输入对话框,直到符合要求为止;消息框显示阶乘运算结果的格式形如“3!=6” 。如输入 5时,弹出如下图所示的消息框。名称:bottom名称:jieguo名称:clear名称:shengao名称:tizhong名称:xingbie名称:test9、新建一数据库,并在该数据库中创建一个如下图所示的窗体,实现“除法运算”功能。当用户输入被除数、除数后,单击“计算”按钮,系统将自动给出结果,单击“清除”按钮,将清除文本框内所有数据。要求当输入除数为 0 时,弹出“除数不能为零,请重新输入!”的消息框,并将光标定位在“除数”文本框内。参考答案:名称:jisuan名称:shang名称:yushu名称:cs名称:bcs名称:clear

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 重点行业资料库 > 医药卫生

Copyright © 2018-2021 Wenke99.com All rights reserved

工信部备案号浙ICP备20026746号-2  

公安局备案号:浙公网安备33038302330469号

本站为C2C交文档易平台,即用户上传的文档直接卖给下载用户,本站只是网络服务中间平台,所有原创文档下载所得归上传人所有,若您发现上传作品侵犯了您的权利,请立刻联系网站客服并提供证据,平台将在3个工作日内予以改正。