2016-2017學年浙江省溫州中學高二（上）期中信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個是符合題目要求的．）
-
1．微信新騙局：騙子取一個類似“交通違章查詢”這樣的公眾賬號，一旦用戶信以為真，向該公眾號發送截圖，會收到提示“需要提交你剛剛收到的手機驗證碼”，若將驗證碼發過去，用戶微信錢包的錢就會被立即轉走．這說明信息具有（ ）
組卷：8引用：3難度：0.9 -
2．二進制數1000B是十六進制數2H的（ ）倍．
組卷：4引用：1難度：0.9 -
3．下列軟件中不屬于文字處理軟件的是（ ）
組卷：5引用：6難度：0.7 -
4．防止黑客入侵的方法，最有效的是（ ）
組卷：4引用：5難度：0.9 -
5．下列哪一個表達式能產生一個屬于區間[100，999]內的整數（ ）
組卷：7引用：1難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題8分，第15小題5分，第16小題4分，第17小題5分，共26分）
-
16．（1）某省實施《中華人民共和國道路交通安全法》辦法中規定，機動車駕駛人駕駛機動車超過規定時速但未超過百分之五十的，處予二百元罰款．超過百分之五十（未造成交通事故）的，處五百元罰款，每多超過五公里，加處二百元罰款，不足五公里的忽略不計，但最高罰款不得超過二千元．用于計算罰款額的Visual Basic程序如下：
Private Sub Command1_Click （ ）
Dim v0As Integer,v As Integer,x As Integer
v0=Val（Text1．Text）'v0 存儲規定速度
v=Val（Text2．Text）'v存儲實際速度
If v＞v0And v＜=1.5*v0Then
x=200
ElseIf v＞1.5*v0Then
x=500+Int（（v-1.5*v0）/5）*200
Else
x=0
End If
If x＞2000Then x=2000
Label1．Caption=Str（x）
End Sub
運行該程序時，在Text1文本框中輸入50，在Text2文本框中輸入60，點擊Command1時，在Label1的Caption上顯示的罰款金為．
（2）如下一段Visual Basic程序：
Private Sub Command1_Click（ ）
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val（Text1．text）
sum=0
For i=1To n
x=Int（Sqr（i））
If x*x=i Then sum=sum+x
Next i
Label1．Caption=Str（sum）
End Sub
在Text1框中輸入10時，點擊Command1時，Label1上顯示的是．組卷：6引用：1難度：0.3 -
17．在一次學校的運動會上，高一女子100米決賽的成績已出來，前8名的成績記錄單由于不小心丟掉一張，只剩下7 個成績，并已按成績排序，分別是（單位：秒）14.5，15.1，16.5，16.8，17.1，17.5，17.9，后來找到了，請將找到的成績插入相應的位置，使數據序列仍保持有序，并求出該成績的名次．根據已有程序段，請補齊流程圖中的空格．
程序如下：
Dim a（1To 8）As Integer
Dim n,i,j,x As Integer
Private Sub Command1_Click（ ）
x=Val（Text2．Text）
If x＞a（n） Then
i=n+1
else
i=1
Do While x＞a（i）
i=i+1
Loop
End If
Text3．text=str（i）‘在文本框text3 顯示名次
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer
輸出
If KeyAscii=13Then
n=n+1
a（n）=Val（Text1．Text）
List1．AddItem Str（a（n））
Text1．Text=““：Text1．SetFocus‘準備在text1 接受下一個數據
End If
End Sub.組卷：6引用：1難度：0.1