2015年浙江省杭州市高考信息技術模擬試卷（4）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題有10小題，每小題4分，共40分．在每小題給出的四個選項中，只有一個是符合題目要求的．）
-
1．3月8日當天，某商家網(wǎng)上旗艦店搞促銷優(yōu)惠活動，并且可通過手機掃碼進入商家店鋪領取更多額度的優(yōu)惠券，此掃碼過程屬于（ ?。?/h2>
組卷：4引用：1難度：0.9 -
2．用UltraEdit軟件觀察字符內(nèi)碼，結(jié)果如圖所示：
由圖可知，“2015，高考加油！”所占字節(jié)數(shù)及“高”的內(nèi)碼分別是（ ?。?/h2>組卷：8引用：5難度：0.7 -
3．新浪網(wǎng)發(fā)起了2015年“最喜愛的央視春晚節(jié)目”調(diào)查，調(diào)查投票結(jié)果如圖所示：
則該調(diào)查結(jié)果的評價方式屬于（ ?。?/h2>組卷：4引用：1難度：0.9 -
4．某用戶使用Word軟件編輯文檔，部分界面如圖所示：
下列說法正確的是（ ?。?/h2>組卷：4引用：2難度：0.9 -
5．實現(xiàn)計算器上xy運算處理的算法部分流程圖如圖所示：
下列說法正確的是（ ?。?/h2>組卷：4引用：4難度：0.9 -
6．校訊通中某班學生信息用Access打開“學生數(shù)據(jù)”數(shù)據(jù)表后如圖所示，下列描述中正確的是（ ?。?br />
組卷：6引用：4難度：0.9 -
7．李明同學發(fā)現(xiàn)他的QQ農(nóng)場內(nèi)有很多蚊子，于是他拿起“蚊子拍”工具去“拍”蚊子，蚊子馬上消失，同時人物經(jīng)驗值立即增加了2點，這主要體現(xiàn)多媒體技術的（ ?。?/h2>
組卷：6引用：1難度：0.7
二、綜合題（本大題有3題，第5題2分，第6題6分，第7題6分，共14分）
-
20．素數(shù)：只能被1和它本身整除的自然數(shù)．要求編寫VB程序找出任意兩個整數(shù)之間中所有的素數(shù)及個數(shù)，程序運行界面如圖所示．
請根據(jù)算法將下列程序補充完整．
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 （ ?。?br />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=“素數(shù)共有“+Str（count）+“個!“
End Sub.組卷：7引用：1難度：0.1 -
21．某商場元月舉行VIP客戶積分換購活動，VIP客戶根據(jù)卡內(nèi)積分多少可換取不同額度的代金券．假設VIP客戶共有n名，VIP卡內(nèi)積分存放在數(shù)據(jù)庫“customer.jye.ai”的Integral表中，換購活動的VB程序代碼如下，程序運行時界面如第7題圖所示．工作人員在文本框Text1中輸入VIP卡號后，單擊“換購”按鈕Command1，在文本框Text2中輸出VIP客戶的積分數(shù)，在標簽Label3中顯示可以換購的代金券額度，積分清零．按此要求編寫程序如下，但加框處代碼有錯，請改正．
Dim ID As String'用于存放客戶卡號
Dim total As Long'用于存放積分數(shù)
Dim sc As Long'VIP客戶人數(shù)
Dim jf As Long'積分數(shù)
Private Sub Command1_Click （ ?。?br />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函數(shù)用于計算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 （ ?。?br />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