【真题】2017年四川省对口升学(信息技术类)专业综合高考题

1 2 3 4

题93 - 7图 图文混排效果 题93 - 8图 文字环绕选项

(5)题93-9图中的表格可通过“文本转换成表格”命令并选择“文字分隔位置”为题93-10图中序号为 ⑤ 的选项来实现。

2 1 4 5 3 题93 - 9图 表格效果 题93 - 10图 “文字分隔位置”选项 94.Excel 2010综合应用题(每空3分，共15分） 初始表格如题94-1图所示，经过格式设置和相关计算后，最终表格如题94-2图所示。请补全下描述中缺失部分以实现题目要求。

题94-1图 初始表格

题94-2图 最终表格

(1)设置表格标题居中显示。

选择单元格范围 ① ，使用“合并后居中”命令实现

1 表格标题居中显示。

(2)设置表格边框。

2 选中A3:G8单元格范围，使用题94-3图中序号为 ② 的边框类型为表格添加边框。 3 (3)用当前年份减去出生年份计算年龄。

4 选中D4单元格，输入公式=YEAR(TODAY())-MID( ③ )计

算第一个员工的年龄，使用填充柄计算出其他员工的年龄。

题94-3图 边框类(4)计算各员工的补助标准。补助标准为：年龄40岁及以上的员

工200元/天，年龄40岁以下的员工150元/天。

选中E4单元格，输入公式=IF( ④ )计算第一个员工的补助标准，使用填充柄计算出其他员工的补助标准。

(5)计算补助总计。

选中G4单元格，输入公式 ⑤ 计算第一个员工的补助总计，使用填充柄计算出其他员工的补助总计。

95.Access综合应用题(14分）

若一个数是素数，该数反序后的数也是素数，则称该数为回文素数。例如：13是素数，反序得到31，31也是素数，则称13为回文素数。下面程序需要实现的功能是查找10到用户输入的边界值中最大的一个回文素数。具体要求如下：

(1)单击“查找回文素数”按钮，开始进行查找。

(2)等待用户通过输入框输入一个介于10到99之间的正整数作为边界值，如题95-1图所示。若点击“取消”按钮，会要求再次输入边界值；若点击“确定”按钮，会进行输入值的检查并输出相应结果。

(3)若用户输入的边界值小于10或大于99，则弹出题95-2图所示消息框，点击“确认”按钮后重新弹出题95-1图所示“输入边界值”输入框。

题95-1图 输入边界值 题95-2图 输入边界值超界提示

(4)若在10到用户输入的边界值中没有找到回文素数，则弹出题95-3图所示消息框。

题95-3图所示消息框 题95-4 图所示消息框

(5)若在10到用户输入的边界值中找到回文素数，则弹出题95-4图所示消息框。请补全下面程序中缺失部分以实现题目要求。 Private Sub 查找回文素数_Click()

Dim i As Integer,j As Integer,k As Integer Dim MyValue As String

Message=\请输入一个100以下的两位正整数\Title=\输入边界值\

MyValue=InputBox(Message,Title,1)

Do While ReNum( ① )=False '(3分)

MyValue=InputBox(Message,Title,1)

Loop '本循环体用于等待用户输入有效边界值

For i=CInt(MyValue) To 10 ② '(3分)

Title=\规定范围的最大回文素数\If prim(i) Then j=i k=0

Do While j>0

k=k*10+j Mod 10 j=j\\10 Loop

If prim(k) Then

MsgBox \你输入值范围内最大的回文素数是：\& Chr(10)

③ ,vbOKOnly,Title '(3分)

④ '(3分) End If End If Next i

If i= ⑤ Then '(2分) MsgBox \没有小于你输入数值的回文素数！\End If End Sub

Public Function ReNum(n As Integer) As Boolean If n=2 then ReNum=True Else

ReNum=False

MsgBox \需要输入的是100以下的两位正整数，输入不符合规定请重新输入！\End If End Function

Public Function prim(n As Integer) As Boolean ...

'判断该值是否是素数，若是素数返回true;若不是素数返回flase。此处代码略。 End Function

96.Access综合应用题(14分）

为响应国家号召，提高少数民族地区师生信息技术水平，共同建设美丽四川，特面向省内高校计算机相关专业招募一批大学生志愿者，在暑期进行少数民族地区义务支教活动。设计如题96-1图所示“大学生志愿者统计表”窗体，以便更好完成人员统计和更新工作。

该窗体显示学生(学号，姓名，性别，语言，民族，专业名称)的数据，需实现功能： (1)题96-1图中，“擅长语言:”标签后文本框名为“语言文本”，输入需要查询的语言，例如：汉或汉语，点击“按语言查询”按钮可进行模糊查询，弹出题96-2图所示消息框。

(2)题96-1图中，“志愿者姓名：”标签后文本框名为“姓名文本”，输入需要查询的姓名，例如：宁亮，点击“按姓名查询”按钮可进行精准查询，弹出题96-3图所示消息框。

(3)题96-1图中，“分组字段:”标签后文本框名为“分组文本”，输入需要查询的字段名，例如：性别，点击“按分组查询”按钮可进行查询，弹出题96-4图所示消息框。

(4)题96-1图中，窗体不能直接添加记录，需点击“添加”按钮，窗体变为“允许添加”状态，在表最后一行输入数据后直接更新表。

(5)题96-1图中，点击“删除”按钮，弹出如题96-5图所示消息框，单击“是”，删除当前记录；单击“否”，不进行任何操作。

题96-1图 大学生志愿者统计表窗体 题96-2图 语言查询

题96-3图 姓名查询 题96-4图 分组查询 题96-5图 提示消息框

请补全下面程序缺失部分以实现题目要求。 Private Sub 按语言查询_Click() Dim db As Database 语言文本.SetFocus A=Trim(语言文本.Text)