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

1、【操作要求】新建一数据库，并在该数据库中创建一个名称为“血红蛋白判断”的窗体，可根据性别和血红蛋白值判断血红蛋白含量是否正常。女性血红蛋白在110～150之间是正常的，小于110属于偏低，大于150属于偏高；男性血红蛋白在120～160之间是正常的，小于120属于偏低，大于160属于偏高。运行时，先选择性别，然后输入一个血红蛋白值，程序运行时显示如下图。若点击选项按钮“女”，输入155，则显示“血红蛋白偏高！”；若点击选项按钮“男”，输入115，则显示“血红蛋白偏低！”；若点击选项按钮“男”，输入155，则显示“正常，请继续保持！”如下图。单击“清空”按钮，则清除两个文本框中的内容。 名称：qingkong名称：panduan名称：jieguo 名称：qingkong 名称：panduan 名称：jieguo 名称：xhdb 名称：xb 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 = 偏低 End Select End If jieguo.Value = jg End Sub Private Sub qingkong_Click() xhdb = jieguo = xhdb.SetFocus End Sub 名称：cj 名称：cj 名称：panduan名称： 名称：panduan 名称：cjdc 3、【操作要求】新建一数据库，并在该数据库中建一个名为“圆相关计算”的窗体，如下图所示，当在“请输入半径：”文本框中输入半径值，并选择一个选项按钮后，再单击“计算”按钮，会弹出一个消息框显示周长、面积或体积的值。如输入半径为3，单击面积，弹出的消息框见下图。 名称：xuanze名称：banjing 名称：xuanze 名称：banjing  名称：label14、【操作要求】新建一数据库，并在该数据库中创建一个标题为“四季交替”的窗体，上有一个标签和一个按钮“四季”；编写一个程序，实现以下功能：单击一次按钮，文本框中显示一个季节名称，依次是绿色的“春”、黄色的“夏”、蓝色的“秋”和红色的“冬”，文字大小为72磅 名称：label1 名称：shiji 名称：shiji  名称：label75、 名称：label7 名称：bmi_text名称：command6名称： 名称：bmi_text 名称：command6 名称：tizhong 名称：shengao  6、新建一数据库，并在该数据库中创建一个标题为“变换颜色”窗体，窗体上有一个标签，两个命令按钮。设置标签的字体为36磅，加粗、倾斜；窗体的标题为“变换颜色”；单击“开始”按钮，则标签上的文字“色彩缤纷”每隔0.5秒随机变换颜色，单击“停止”按钮，则标签颜色停止变化，并且字体不加粗、不倾斜。运行时某一时刻的界面如图。 名称：stop名称：start名称：label0 名称：stop 名称：start 名称：label0 7、新建一数据库，并在该数据库中创建一个如下图所示的窗体，实现“体型测试”功能。当用户输入了身高、体重和性别后，单击“测试”按钮，系统会在“下限”下面的文本框中自动给出测试结果，单击“清除”按钮，所有文本框和组合框均无显示。假设测试的结果是这样定义的：对于男性，体重上限=（身高（厘米数）-100）*1.1，体重下限=（身高（厘米数）-100）*0.9；对于女性，体重上限=（身高（厘米数）-105）*1.1，体重下限=（身高（厘米数）-105）*0.9。如果体重在上、下限范围内，显示“体形适中”；高于上限值，显示“体形偏胖”；低于下限值显示“体形偏瘦”。 名称： 名称：upper 名称：tizhong名称：xingbie名称：test名称：shen