ACCESS2010VBA程序设计题1[程序解答].pdf

《ACCESS2010VBA程序设计题1[程序解答].pdf》由会员分享，可在线阅读，更多相关《ACCESS2010VBA程序设计题1[程序解答].pdf（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、内容。Private Sub panduan_Click()Dim jg as string If xb=1 Then Select Case xhdb.Value Case Is 160 jg=偏高 Case Is=120 jg=正常 Case Else jg=偏低 End Select Else Select Case xhdb.Value Case Is 150 jg=偏高 Case Is=110 jg=正常 Case Else jg=偏低 名称：xb 名称：xhdb 名称：jieguo 名称：panduan 名称：qingkong End Select End If jieguo.Va

3、lue=jg End Sub Private Sub qingkong_Click()xhdb=jieguo=xhdb.SetFocus End Sub 2、【操作要求】新建一数据库，并在该数据库中创建一个标题为“成绩等级”的窗体，在“成绩”文本框中输入一个分数，单击“判断”命令按钮后，在“成绩等级”文本框中显示对应的成绩等级。输入的成绩在90 100 分为优秀，8089 分为良好，7079 分为中等，6069 分为合格，059 分为不合格，否则弹出消息框，显示“成绩输入有误，请重新输入！”的消息，清空文本框中原有内容，并将光标定位在“成绩”文本框中。输入90 的运行情况如下图。名称：cj 名

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

5、依次为宋体、仿宋体、楷体、黑体，再次单击重复显示“春”。结果如下图所示。名称：label1 名称：shiji 5、新建一数据库，并在该数据库中创建一个标题为“BMI计算器”的窗体，运行时窗体视图如下图所示，编写合适的代码，使得输入身高和体重值后，单击“开始计算”按钮，在其右侧的文本框中显示BMI指数（BMI 指数=体重（千克）除身高（米）的平方 Kg/m2），并且当 BMI 指数 30 时，在窗体上方的标签上显示“你想做压路车吗？”，当BMI 指数 18时，在窗体上方的标签上显示“你是一片树叶吗？”，当 BMI指数在 18 到 30 之间时，在窗体上方的标签上显示“恭喜你，太让人羡慕了！”。名

6、称：label7 名称：shengao 名称：tizhong 名称：command6 名称：bmi_text 6、新建一数据库，并在该数据库中创建一个标题为“变换颜色”窗体，窗体上有一个标签，两个命令按钮。设置标签的字体为36 磅，加粗、倾斜；窗体的标题为“变换颜色”；单击“开始”按钮，则标签上的文字“色彩缤纷”每隔0.5 秒随机变换颜色，单击“停止”按钮，则标签颜色停止变化，并且字体不加粗、不倾斜。运行时某一时刻的界面如图。名称：label0 名称：start 名称：stop 7、新建一数据库，并在该数据库中创建一个如下图所示的窗体，实现“体型测试”功能。当用户输入了身高、体重和性别后，单击

7、“测试”按钮，系统会在“下限”下面的文本框中自动给出测试结果，单击“清除”按钮，所有文本框和组合框均无显示。假设测试的结果是这样定义的：对于男性，体重上限=（身高（厘米数）-100）*1.1，体重下限=（身高（厘米数）-100）*0.9；对于女性，体重上限=（身高（厘米数）-105）*1.1，体重下限=（身高（厘米数）-105）*0.9。如果体重在上、下限范围内，显示“体形适中”；高于上限值，显示“体形偏胖”；低 于 下 限 值 显 示“体 形 偏瘦”。名称：upper 名称：bottom 名称：jieguo 名称：clear 名称：shengao 名称：tizhong 名称：xingbie

8、名称：test 8、新建一数据库，并在该数据库中创建一个“求阶乘”的窗体，窗体上有一个显示为“求阶乘”的按钮，单击该按钮，弹出一个输入对话框，在框中输入010 的数，单击“确定”按钮，在消息框显示所求数的阶乘。要求：若输入的数不在010 之间，重新弹出输入对话框，直到符合要求为止；消息框显示阶乘运算结果的格式形如“3!=6”。如输入5 时，弹出如下图所示的消息框。9、新建一数据库，并在该数据库中创建一个如下图所示的窗体，实现“除法运算”功能。当用户输入被除数、除数后，单击“计算”按钮，系统将自动给出结果，单击“清除”按钮，将清除文本框内所有数据。要求当输入除数为0 时，弹出“除数不能为零，请重

9、新输入！”的消息框，并将光标定位在“除数”文本框内。参考答案：名称：jisuan 名称：shang 名称：yushu 名称：cs 名称：bcs 名称：clear 10、【操作要求】新建一数据库，并在该数据库中创建一个窗体，实现“标签特殊效果”功能。窗体上有一个特殊效果是“平面”，显示文字为“平面效果”、文字大小为24 磅的标签和一个“切换”按钮。单击一次按钮，标签中显示一种特殊效果，每隔 0.5 秒依次显示“凸起”、“凹陷”、“蚀刻”、“阴影”和“凿痕”效果，并且标签上的文字同时变化，再次单击，重复显示“平面”效果。程序运行初始界面和第2 次单击“切换”按钮所显示的界面如下图。名称：label0 名称：command1