ACCESS2010VBA程序设计地的题目1[程序解答][整理].pdfVIP

1、【操作要求】新建一数据库，并在该数据库中创建一个名称为“血红蛋白判断”的 窗体，可根据性别和血红蛋白值判断血红蛋白含量是否正常。女性血红蛋白在 110～ 150 之 间是正常的，小于 110 属于偏低，大于 150 属于偏高；男性血红蛋白在 120～ 160 之间是正 常的，小于 120 属于偏低，大于 160 属于偏高。运行时，先选择性别，然后输入一个血红蛋 白值，程序运行时显示如下图。 若点击选项按钮 “女”，输入 155，则显示 “血红蛋白偏高！ ”； 若点击选项按钮“男” ，输入 115，则显示“血红蛋白偏低！ ”；若点击选项按钮“男” ，输入 155，则显示“正常，请继续保持！ ”如下图。单击“清空”按钮，则清除两个文本框中的内 容。 名称： xb 名称： xhdb 名称： jieguo 名称： panduan 名称： qingkong 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 2、【操作要求】新建一数据库，并在该数据库中创建一个标题为“成绩等级”的窗体， 在“成绩”文本框中输入一个分数，单击“判断”命令按钮后，在“成绩等级”文本框中显 示对应的成绩等级。输入的成绩在 90 ~100 分为优秀， 80~89 分为良好， 70~79 分为中等， 60~69 分为合格， 0~59 分为不合格， 否则弹出消息框， 显示 “成绩输入有误， 请重新输入！ ” 的消息，清空文本框中原有