2019-2020学年浙江省金华市东阳中学高二（下）期中信息技术试卷
发布：2024/4/20 14:35:0
一.单选题（本大题共12小题，每小题4分，共24分，每小题列出的四个选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列关于信息的相关说法不正确的是（ ）
组卷：16引用：2难度：0.7 -
2．下列关于网页及电子邮件的描述，正确的是（ ）
组卷：1引用：1难度：0.6 -
3．如图所示Access数据库文件的界面，下列说法正确的是（ ）
组卷：8引用：2难度：0.6 -
4．使用Word软件编辑某文档，部分界面如图所示。下列说法正确的是（ ）
组卷：11引用：3难度：0.5 -
5．使用UltraEdit软件观察字符“Plus版红绿灯！”的内码，部分界面如图所示，以下说法正确的是（ ）
组卷：3引用：2难度：0.6
二.非选择题(本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分)
-
15．在一个数组中存储了若干个同学的技术成绩小题分，其中a（1）存储学生个数，a（2）开始按顺序存储小题分数据。每个学生有33个小题的数据，例：a（2）～a（13）是学生1的信息选择题得分，a（27）～a（30）是学生1的信息4个主观题得分。具体如表
小李根据上述描述，设计了一个统计所有同学信息各题得分率的算法。程序运行后首先在列表框List1显示信息技术各小题得分，单击“计算”按钮“Command1”，在列表框List2显示信息各题的题号和得分率，在文本框Text1输出所有同学的信息平均分（平均分=各题得分率*分值之和）。算法的VB程序如下，回答下列问题题号 1-12 13-25 26-29 30-33 科目题型 信息客观题 通用客观题 信息主观题 通用主观题 满分分值 每题2分 每题2分 4/8/7/7 6/9/3/6 
（1）根据题目描述，使用如图所示数据，a（95）的数值是。
（2）在程序横线处填上合适代码，使程序完整
Dima（1To1000）AsInteger,nAsInteger
PrivateSubCommand1_Click（ ）
DimiAsInteger,jAsInteger
Dimfz（1To16）AsInteger′fz数组存储信息各题满分值
Dimb（1To33）AsDouble′数组b存储全卷各题的平均得分Fori=1To16‘数组fz存储信息16个小题的满分值
Ifi＜=12Thenfz（i）=2
fz（13）=4：fz（14）=8：fz（15）=7：fz（16）=7Nexti
Fori=2Ton'把数组a数据分别统计到各题中
①
b（j）=a（i）+b（j）Nexti
Fori=1To33′仅处理信息各题的平均分
Ifi＜=12Then
b（i）=b（i）/（a（1）*fz（i））'计算信息选择题各题的得分率ElseIfi＞=26Andi＜=29Then
b（i）=②
EndIf
Nexti
Fori=1To16
Ifi＞12Thenj=i+13Elsej=i
b（j）=Int（b（j）*1000+0.5）/10′对结果四舍五入保留1位小数List2．AddItemStr（i）+Str（b（j））+″%'
ave=③
Nexti
Text1．Text=Str（ave/100）EndSub
PrivateSubForm _Load（ ）
‘读入数据到数组a,数据个数n,代码略
EndSub组卷：0引用：1难度：0.3 -
16．幻方是一种将数字安排在正方形格子中，使每行、列和对角线上的数字和都相等的方法。n阶幻方是由1～n2之间的自然数组成的一个n阶方阵，其各行、各列及对角线所含的数字之和均相等。例如3阶幻方（如图1），幻和为15。
奇数阶幻方的构造是所有幻方中最简单的，可以按照如下规则来实现：
（1）将1放在第一行中间一列；（如图2）
（2）从2开始直到n*n为止，各数按下列规则存放：假设当前要存放的数为k,则k存放在（k-1）数的右上方并按照规则：
①若（k-1）放在第1行且不是最后一列，则将k存放在n行，（k-1）所在列右侧；（如图3）
②若（k-1）放在第n列且不是第一行，则将k存放在第1列，（k-1）的上1行；（如图4）
③若（k-1）即不在第1行也不在最后1列：
若（k-1）右上方有数，则将k放在（k-1）的下1行的同一列。（如图5）
若（k-1）右上方没有数，则将k放在（k-1）的右上方；（如图6）
④若（k-1）在第1行第n列，将k填在（k-1）的正下方（如图7）
1．用如图8的程序生成5阶幻方后，List1中的第一行显示的是。
2.30阶以内的幻方程序如图，代码如下，请完成代码填空：
PrivateSubCommand1_Click（ ）
DimiAsInteger,jAsInteger,nAsInteger'i表示行，j表示列
Dima（1To1000）AsInteger,kAsInteger'数组a依次保存幻方中的数DimsAsString
n=Val（Text1．Text）
j=①
a（j）=1
i=1
Fork=2Ton*n
Ifi=1Andj＜＞nThen
i=n：j=j+1
a（（i-1）*n+j）=k
ElseIfj=nAndi＜＞1Then
②j=1
a（（i-1）*n+j）=k
ElseIfi=1Andj=nThen
i=i+1
a（（i-1）*n+j）=k
ElseIfi＜＞1Andj＜＞nThen
If
③Then
i=i-1：j=j+1
a（（i-1）*n+j）=k
Else
i=i+1
a（（i-1）*n+j）=k
EndIf
EndIfNextk
List1．Clear
Fori=1Ton
s=″″
Forj=1Ton
s=s+format（a（（i-1）*n+j））
Nextj
List1．AddItemsNexti
EndSub
Functionformat（xAsInteger）AsString'将数字字符串格式化为4个字符长度DimnAsInteger,iAsInteger
format=Str（x）
n=Len（format）
Fori=1To④
④format=““+formatNexti
EndFunction组卷：2引用：1难度：0.2
