2015年浙江省杭州市高考信息技术模拟试卷（9）
发布：2024/4/20 14:35:0
一、选择题（共9小题，每小题2分，满分18分）
-
1．微信“扫一扫”功能能够扫描二维码得到相关人员的名片或网站网址信息，该过程属于（ ）
组卷：6引用：2难度：0.9 -
2．用UltraEdit软件观察“Yellow黄色”这几个字符的内码，如图所示：
则“Zoo”这几个字符的内码是（ ）组卷：6引用：2难度：0.9 -
3．某网店有评价如图所示，则该评价属于（ ）
组卷：6引用：2难度：0.9 -
4．使用Word编辑某文档，部分界面如图所示
如果全部接受图中所示的修订内容，则第一句中的文字将变为（ ）组卷：7引用：2难度：0.9 -
5．某access数据库打开后如图所示，下列描述正确的是（ ）
组卷：6引用：2难度：0.7 -
6．某算法流程图如图所示，该算法实现的功能为（ ）
组卷：8引用：4难度：0.5
二、综合题：共7分．
-
19．自幂数是指一个 n 位数，它的每个位上的数字的 n 次幂之和等于它本身。使用枚举法寻找5位数以内的自幂数算法如下：
（1）使用循环列出1到99999中的每一个数zmsknz
（2）通过自定义函数ddknzms拆解得到每个数中的每位数上的数码及它们对应的n次幂之和
（3）将zmsknz与ddknzms进行比较，若相等则说明是自幂数，可将其加入列表。
编写VB程序，使用枚举法得到5位数以内的自幂数，程序设计界面如图所示：
请根据算法及相应注释将下面的程序补充完整：
Function ddknzms（zmsknz As Long） As Long'得到可能的自幂数
Dim zmsknz_str As String'字符串类型自幂数可能值
Dim zmsknz_length As Integer,zmswsxh As Integer'字符串类型自幂数可能值字符个数
zmsknz_str=Trim（Str（zmsknz））
zmsknz_length=Len（zmsknz_str）
For zmswsxh=1To zmsknz_length
ddknzms=ddknzms+Val（Mid（zmsknz_str,zmswsxh,1））^①
Next zmswsxh
End Function
Private Sub Command1_Click
Const ZMSWS=
Dim zmsknz As Long,zmsknz_zz As Long
zmsknz_zz=10^ZMSWS-1
For zmsknz=1To zmsknz_zz
If ②Then List1．AddItem （Str（zmsknz））
Next zmsknz
End Sub。组卷：8引用：1难度：0.1 -
20．某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据库文件名为school。mdb,其中数据表student存储有关学生学号（xuehao）、姓名（xingming）相关信息，括号内的内容为对应字段名。该程序编辑界面如图所示，相关对象名可参考标识图。
cqxhxm
xskcqxhxm
当主持人点击按钮“生成抽号”后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。
cz
cq
'xxxss：学校学生数，kcq：可抽取
'xhxm：学号姓名，kcq：可抽取
Dim xxxss As Integer
xhxmbq
Dim xhxm（3000）As String
Dim kcq（3000）As Boolean
'cq_Click：启用两个定时器
Private Sub cq_Click （ ）
cqxhxm.Enabled=True
xskcqxhxm.Enabled=True
End Sub
Private Sub cz_Click'初始化数组kcq,使每个元素数据都处于可显示状态
For i=0To xxxss-1
①
Next i
End Sub
Private Sub xskcqxhxm_Timer'若数组kcq第x个元素处于可抽取状态，则显示数组xhxm第x个元素
x=Int（Rnd*xxxss）
If kcq（x） Then xhxmbq.jye.ai=kcq（x）'②
End Sub
Private Sub Form_Load （ ）'从数据库中提取需要的学号姓名相关数据并初始化数组kcq
Randomize
xxxss=0
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim str_conn as String,str_sql As String
str_conn=“driver=Microsoft access driver（*．mdb）；DBQ=“&app.jye.ai&“\school.jye.ai“；
conn.jye.ai str_conn
str_sql=“select*from students“
rs.jye.ai str_sql
Do While Not rs.eof
xxxss=xxxss+1
xhxm（xxxss）=rs.jye.ai（“xuehao“）&rs.jye.ai（“xingming“）
rs.movenext
Loop
For i=0To xxxss-1
kcq（i）=True
Next i
End Sub
Private Sub cqxhxm_Timer'决定抽取的学号姓名作为监票人
xskcqxhxm.Enabled=False
For i=0To xxxss-1
If xhxmbq.Caption=xhxm（i） Then kcq（i）=False
Next i
cqxhxm.Enabled=False
End Sub。组卷：3引用：1难度：0.1
