ACCESS2010VBA程序设计题1[程序解答]VIP专享

1、【操作要求】新建一数据库，并在该数据库中创建一个名称为“血红蛋白判断”的窗体，可根据性别和血红蛋白值判断血红蛋白含量是否正常。女性血红蛋白在110～ 150 之间是正常的，小于110 属于偏低，大于150 属于偏高；男性血红蛋白在120～ 160 之间是正常的，小于120 属于偏低，大于160 属于偏高。运行时，先选择性别，然后输入一个血红蛋白值，程序运行时显示如下图。若点击选项按钮“女”，输入155，则显示“血红蛋白偏高！”；若点击选项按钮“男”，输入115，则显示“血红蛋白偏低！”；若点击选项按钮“男”，输入155，则显示“正常，请继续保持！”如下图。单击“清空”按钮，则清除两个文本框中的内容。 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 = "偏低" 名称：x b 名称：x hdb 名称：jiegu o 名称：p an du an 名称：q in gk o n g End Select End If jieguo.Value = jg End Sub Private Sub qingkong_Click() xhdb = "" jieguo = "" xhdb.SetFocus End Sub 2、【操作要求】新建一数据库，并在该数据库中创建一个标题为“成绩等级”的窗体，在“成绩”文本框中输入一个分数，单击“判断”命令按钮后，在“成绩等级”文本框中显示对应的成绩等级。输入的成绩在90 ~100 分为优秀，80~89 分为良好，70~79 分为中等，60~69 分为合格，0~59 分为不合格，否则弹出消息框，显示“成绩输入有误，请重新输入！”的消息，清空文本框中原有内容，并将光标定位在“成绩”文本框中。输入90 的运行情况如下图。 名称：cj 名称：cjdc 名称：p an du an 3、【操作要求】新建一数据库，并在该数据库中建一个名为“圆相关计算”的窗体，如下图所示，当在“请输入半径：”文本框中输入半径值，并选择一个选项按钮后，再单击“计算”按钮，会弹出一个消息框显示周长、面积或体积的值。如输入半径为3，单击面积，弹出的消息框见下图。 名称：banjing 名称：xuanze 4、【操作要求】新建一数据库，并在该数据库中创建一个标题为“四季交替”的窗体，上有一个标签和一个按钮“四季”；编写一...