2016-2017學(xué)年浙江省溫州中學(xué)高二（上）期中信息技術(shù)試卷

一、選擇題（本大題12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)是符合題目要求的．）

• 1．微信新騙局：騙子取一個(gè)類似“交通違章查詢”這樣的公眾賬號，一旦用戶信以為真，向該公眾號發(fā)送截圖，會收到提示“需要提交你剛剛收到的手機(jī)驗(yàn)證碼”，若將驗(yàn)證碼發(fā)過去，用戶微信錢包的錢就會被立即轉(zhuǎn)走．這說明信息具有（　?。?/h2>

  A．載體依附性	B．傳遞和共享性
  C．時(shí)效性	D．真?zhèn)涡?/label>
  組卷：8引用：3難度：0.9

  解析

• 2．二進(jìn)制數(shù)1000B是十六進(jìn)制數(shù)2H的（　?。┍叮?/h2>

  A．100

  B．8

  C．4

  D．2
  組卷：4引用：1難度：0.9

  解析

• 3．下列軟件中不屬于文字處理軟件的是（　?。?/h2>

  A．Windows

  B．Word

  C．記事本

  D．寫字板
  組卷：5引用：6難度：0.7

  解析

• 4．防止黑客入侵的方法，最有效的是（　?。?/h2>

  A．不隨便使用光盤和硬盤	B．不隨意轉(zhuǎn)載別人的信息
  C．經(jīng)常整理磁盤碎片	D．在計(jì)算機(jī)中安裝防火墻
  組卷：4引用：5難度：0.9

  解析

• 5．下列哪一個(gè)表達(dá)式能產(chǎn)生一個(gè)屬于區(qū)間[100，999]內(nèi)的整數(shù)（　?。?/h2>

  A．Int（Rnd*1000）+100	B．Int（Rnd*900）+100
  C．Rnd+998	D．Rnd*1000
  組卷：7引用：1難度：0.7

  解析

二、非選擇題（本大題共5小題，其中第13小題4分，第14小題8分，第15小題5分，第16小題4分，第17小題5分，共26分）

• 16．（1）某省實(shí)施《中華人民共和國道路交通安全法》辦法中規(guī)定，機(jī)動(dòng)車駕駛?cè)笋{駛機(jī)動(dòng)車超過規(guī)定時(shí)速但未超過百分之五十的，處予二百元罰款．超過百分之五十（未造成交通事故）的，處五百元罰款，每多超過五公里，加處二百元罰款，不足五公里的忽略不計(jì)，但最高罰款不得超過二千元．用于計(jì)算罰款額的Visual Basic程序如下：
  Private Sub Command1_Click （　?。?br />Dim v0As Integer,v As Integer,x As Integer
  v0=Val（Text1．Text）'v0 存儲規(guī)定速度
  v=Val（Text2．Text）'v存儲實(shí)際速度
  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
  運(yùn)行該程序時(shí)，在Text1文本框中輸入50，在Text2文本框中輸入60，點(diǎn)擊Command1時(shí)，在Label1的Caption上顯示的罰款金為

   

  ．
  （2）如下一段Visual Basic程序：
  Private Sub Command1_Click（　?。?br />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時(shí)，點(diǎn)擊Command1時(shí)，Label1上顯示的是

   

   ．
  組卷：6引用：1難度：0.3

  解析

• 17．在一次學(xué)校的運(yùn)動(dòng)會上，高一女子100米決賽的成績已出來，前8名的成績記錄單由于不小心丟掉一張，只剩下7 個(gè)成績，并已按成績排序，分別是（單位：秒）14.5，15.1，16.5，16.8，17.1，17.5，17.9，后來找到了，請將找到的成績插入相應(yīng)的位置，使數(shù)據(jù)序列仍保持有序，并求出該成績的名次．根據(jù)已有程序段，請補(bǔ)齊流程圖中的空格．
  
  程序如下：
  Dim a（1To 8）As Integer
  Dim n,i,j,x As Integer
  Private Sub Command1_Click（　?。?br />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‘準(zhǔn)備在text1 接受下一個(gè)數(shù)據(jù)
  End If
  End Sub.
  組卷：6引用：1難度：0.1

  解析