首页 > 学生作文 > 读后感 > 读后感800字 >

2017年四川省对口升学（信息技术类）专业综合高考题（附答案）

由天下分享时间：2024/12/12 2:46:04 加入收藏我要投稿点赞

(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)

Set db=CurrentDb

SQL1=\① '(3分) B=0:Str1=\

Set rs=db.OpenRecordset(SQL1) While Not rs.EOF B=B+1

Str1=Str1+rs(1)+Chr(10) rs.MoveNext Wend

MsgBox \擅长'\语言的同学有\个，分别是：\End Sub

Private Sub 按姓名查询_Click() Dim db As Database 姓名文本.SetFocus A=Trim(姓名文本.Text) Set db=CurrentDb

SQL1=\② '(3分） B=0:Str1=\

Set rs=db.OpenRecordset(SQL1) While Not rs.EOF B=B+1

Str1=Str1+rs(1)+\rs.MoveNext Wend

MsgBox \姓名的同学有\个，分别是：\End Sub

Private Sub 按分组查询_Click() 分组文本.SetFocus

A = Trim(分组文本.Text) Dim db As Database Set db = CurrentDb

SQL1 = ③ '(3分) B = 0: str1 = \

Set rs = db.OpenRecordset(SQL1) While Not rs.EOF B = B + 1

str1 = str1 + rs(0) & \的个数：\ rs.MoveNext Wend

MsgBox \按照'\分组查询结果是：\个，分别是：\End Sub

Private Sub 添加_Click()

Me. ④ =True '(3分） DoCmd.GoToRecord,,acNewRec

End Sub

Private Sub 删除_Click()

If MsgBox(\是否删除该记录\确认\

Me.Recordset. ⑤ '(3分) End If End Sub

97.计算机网络综合应用题(每空3分，共15分）

某软件公司向ISP购买了网络号地址为202.98.66.0的网络，请补全下面描述缺失部分以实现题目要求。

(1)该网络是一个 ① 类IP地址网络。

(2)使用该网络号，该公司最多能容纳主机 ② 台。

(3)IP地址为202.98.66.3的主机是否属于该网络？ ③ (属于/不属于）。 (4)若该公司要划分Java开发部，移动开发部和软件测试部三个部门，各个部门现有主机数为16台、10台和40台，为满足以上需求，使用子网划分技术，子网掩码为 ④ ，划分子网后，每个部门最多容纳主机 ⑤ 台。 98.计算机网络综合应用题(每空3分，共15分）某电子商务网站需制作如题98图所示网页。

题98图网页

设计要求：

(1)该网页文件名是main.html、使用的CSS文件是demo. css。 (2)网页中使用的图片文件名是huawei.jpg。

(3)3个文件main.html、demo.css和huawei.jpg存储在Web服务器相同文件夹中。 (4)页面中的标题、段落文字和图片均居中显示。

根据以上设计要求，补全main.html和demo.css文件中的代码。 main.html文件代码：

手机卖场