2015年浙江省杭州市高考信息技术模拟试卷（4）
发布：2024/4/20 14:35:0
一、选择题（本大题有10小题，每小题4分，共40分．在每小题给出的四个选项中，只有一个是符合题目要求的．）
-
1．3月8日当天，某商家网上旗舰店搞促销优惠活动，并且可通过手机扫码进入商家店铺领取更多额度的优惠券，此扫码过程属于（ ）
组卷：4引用：1难度：0.9 -
2．用UltraEdit软件观察字符内码，结果如图所示：
由图可知，“2015，高考加油！”所占字节数及“高”的内码分别是（ ）组卷：8引用：5难度：0.7 -
3．新浪网发起了2015年“最喜爱的央视春晚节目”调查，调查投票结果如图所示：
则该调查结果的评价方式属于（ ）组卷：4引用：1难度：0.9 -
4．某用户使用Word软件编辑文档，部分界面如图所示：
下列说法正确的是（ ）组卷：4引用：2难度：0.9 -
5．实现计算器上xy运算处理的算法部分流程图如图所示：
下列说法正确的是（ ）组卷：4引用：4难度：0.9 -
6．校讯通中某班学生信息用Access打开“学生数据”数据表后如图所示，下列描述中正确的是（ ）
组卷：6引用：4难度：0.9 -
7．李明同学发现他的QQ农场内有很多蚊子，于是他拿起“蚊子拍”工具去“拍”蚊子，蚊子马上消失，同时人物经验值立即增加了2点，这主要体现多媒体技术的（ ）
组卷：6引用：1难度：0.7
二、综合题（本大题有3题，第5题2分，第6题6分，第7题6分，共14分）
-
20．素数：只能被1和它本身整除的自然数．要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如图所示．
请根据算法将下列程序补充完整．
Function prime（a As Integer） As Boolean
Dim j As Integer
prime=True
j=2
Do While prime And j＜=a\2
If a Mod j=0Then
prime=False
Exit Do
End If
Loop
End Function
Private Sub Command1_Click （ ）
Dim i As Integer,a As Integer,b As Integer
Dim count As Integer
a=Val（Text1．Text）
b=Val（Text2．Text）
For i=a To b
If=True Then
List1．AddItem Str（i）
count=count+1
End If
Next i
Label1．Caption=“素数共有“+Str（count）+“个!“
End Sub.组卷：7引用：1难度：0.1 -
21．某商场元月举行VIP客户积分换购活动，VIP客户根据卡内积分多少可换取不同额度的代金券．假设VIP客户共有n名，VIP卡内积分存放在数据库“customer.jye.ai”的Integral表中，换购活动的VB程序代码如下，程序运行时界面如第7题图所示．工作人员在文本框Text1中输入VIP卡号后，单击“换购”按钮Command1，在文本框Text2中输出VIP客户的积分数，在标签Label3中显示可以换购的代金券额度，积分清零．按此要求编写程序如下，但加框处代码有错，请改正．
Dim ID As String'用于存放客户卡号
Dim total As Long'用于存放积分数
Dim sc As Long'VIP客户人数
Dim jf As Long'积分数
Private Sub Command1_Click （ ）
Dim k As String'客户卡号
Dim q As Long'代金券额度
Dim i As Long
k=Text1．Text
For i=1To sc’顺序查找
If ID（i）=k Then
jf=total（i）
cash（jf）=q’①
Exit For
End If
Text2．Text=Str（jf）
Label3．Caption=“您可换购的代金券总额为：”+Str（q）+“元”
Next i
End If
End Sub
'cash函数用于计算VIP客户可换购的代金券额度
Function cash（jf As Long） As Long
If jf＞=2000And jf＜=20000Then
Cash=jf\2000*10
ElseIf jf＞20000And jf＜=50000Then
Cash=jf\2000*11
ElseIf jf＞50000And jf＜=100000Then
Cash=jf\2000*12
ElseIf jf＞100000And jf＜=150000Then
Cash=jf\2000*13
Else jf＞150000Then’②
Cash=jf\2000*14
End If
End Function
Private Sub Form_Load （ ）
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim intSQL As Long
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\customer.jye.ai“
conn.Open
intSQL=“SELECT score FROM Integral“
Set rs.ActiveConnection=conn
rs.CursorType=adOpenStatic
rs.Open intSQL
sc=0
Do While Not rs.EOF
sc=sc+1
total（sc）=rs.Fields（“score“）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
End Sub
（1）加框处①有错，应改为．
（2）加框处②有错，应改为．组卷：6引用：1难度：0.1
