SQL查询及程序设计题答案.ppt

说明 2至5张幻灯片是查询操作题中的SQL查询 后面是8道程序设计题 查询试题1 创建一个名为“SQ2”的SQL查询，查找身份证以“3301”开头的旅客信息，依次显示“姓名”、“籍贯”和“身份证号”等三个字段。 SELECT 姓名,籍贯,身份证号 FROM 旅客 WHERE left(身份证号,4)=3301 查询试题2 创建一个名为“SQ3”的Select查询，查询职工的实发工资信息，并依次显示“部门名”、“姓名”、“实发工资”和“银行帐号”等四个字段。其中实发工资的计算公式为：基本工资+补贴+奖励-医疗统筹-失业保险。 SELECT 部门.部门名, 工资.姓名, 工资.[基本工资]+[补贴]+[奖励]-[医疗统筹]-[失业保险] AS 实发工资, 工资.银行帐号 FROM 部门 INNER JOIN 工资 ON 部门.部门号 = 工资.部门号; 查询试题5 创建一个名为“SQ1”的Select查询，查找单价在10000元以上的设备信息，依次显示“部门名称”、“设备名称”、“价格”和“启用日期”等四个字段，并按“部门名称”字段降序排列。 SELECT 部门.部门名称, 设备.设备名称, 设备.价格, 设备.启用日期 FROM 部门 INNER JOIN 设备 ON 部门.部门号 = 设备.部门号 WHERE 价格10000 ORDER BY 部门名称 DESC 查询试题7 创建一个名为“SQ2”的Select查询，查找语文、数学、英语三门课的成绩均大于100（不包括100）分的学生信息，依次显示“准考证号”、“姓名”和“籍贯”等三个字段。 SELECT 考生成绩.准考证号, 考生信息.姓名, 考生信息.籍贯 FROM 考生信息 INNER JOIN考生成绩 ON 考生信息.准考证号 = 考生成绩.准考证号 WHERE 语文100 and 数学100 and 英语100 程序设计1 已经设计“计算阶乘”窗体。窗体样式如下图所示。 请按以下要求设计相关程序： 1、在Txt1文本框中输入一个整数，单击“计算”按钮，若输入的数小于0，在Txt2文本框中显示“输入错误”；若等于0，在Txt2中显示1；若大于0，在Txt2中显示该数的阶乘； 2、单击“退出”按钮，退出Access。 Private Sub cmd1_Click() Dim N As Integer, i As Integer Dim jc As Long N = txt1.Value If N 0 Then txt2.Value = 输入错误 ElseIf N = 0 Then txt2.Value = 1 Else jc = 1 For i = 1 To N jc = jc * i Next i txt2.Value = jc End If End Sub 程序设计2 已经设计“评选最佳场馆”窗体。窗体样式如下图所示： 请按以下要求设计相关程序： 1、如果只选中一个场馆选项，单击“投票”按钮，则显示“谢谢您的投票”； 2、如果选中多个场馆选项，单击“投票”按钮，则显示“最佳场馆只能有一个，请重新选择”； 3、如果没有选择,单击“投票”按钮，则显示“请选择一个最佳场馆”； 4、单击“关闭”按钮，退出Access。 注：可以使用MsgBox函数显示相关文本信息。 Private Sub cmd1_Click() If check1.Value + check2.Value + Check3.Value + Check4.Value + Check5.Value + Check6.Value = -1 Then MsgBox 谢谢您的投票 ElseIf check1.Value + check2.Value + Check3.Value + Check4.Value + Check5.Value + Check6.Value -1 Then MsgBox 最佳场馆只能有一个，请重新选择 Else MsgBox 请选择一个最佳场馆 End If End Sub Private Sub cmd2_Click() DoCmd.Quit End Sub 程序设计3 已经设计“计算三角形面积”窗体。窗体样式如下图所示。 请按以下要求设计相关程序： 1、分别在Text1、Text2、Text3中输入三个正数。单击“计算”按钮，判断这三个数能否构成三