2017-2018學年浙江省稽陽聯誼學校高三（上）月考信息技術試卷（8月份）

一、選擇題（共12小題，每小題2分，滿分24分）

• 1．關于信息安全、網絡道德和知識產權，下列做法正確的是（　　）

  A．開啟智能手機的手勢密碼登錄驗證

  B．關閉操作系統更新，不安裝系統補丁

  C．在觀影時錄制影片并分享到網絡云盤

  D．未經許可使用他人相片制作宣傳海報
  組卷：8引用：2難度：0.9

  解析

• 2．關于搜索引擎和網頁，下列說法正確的是（　　）

  A．搜索引擎搜索信息時，可通過減少關鍵字來減少搜索到的信息數

  B．用搜索引擎搜索信息，本質上是檢索搜索引擎網站的索引數據庫

  C．網頁是由HTTP語言編寫的純文本文件，可以由記事本軟件編輯

  D．選擇“網頁，僅HTML”方式保存網頁，保存的文件不含超鏈接
  組卷：10引用：3難度：0.9

  解析

• 3．使用Word軟件編輯某文檔，部分界面如圖所示．下列說法正確的是（　　）

  A．文中有兩處批注，添加批注的用戶是“jw1”和“jw2”

  B．刪除第一處批注，文字“烏衣巷”會被刪除

  C．修訂前，古詩第二行文字是“烏衣巷口夕陽斜”

  D．接受所有修訂后，古詩第二行文字是“烏衣巷口夕陽斜”
  組卷：4引用：2難度：0.9

  解析

• 4．使用UltraEdit軟件觀察字符“Good Luck!”的內碼，部分界面如圖所示．下列說法正確的是（　　）
  

  A．字符“！”是ASCⅡ字符，其內碼是A1

  B．字符“Good Luck!”共占用10個字節

  C．字符“g”內碼用二進制表示是01100111

  D．字符“o”內碼轉十進制過程應為6×162+15×161
  組卷：12引用：5難度：0.7

  解析

• 5．使用Access軟件創建的“student”數據表，部分界面如圖所示．下列說法正確的是（　　）

  A．該數據表名稱是“student”，共有6條記錄

  B．“ID”字段的值一定是不相同的且不能為空值

  C．“身份證”字段的類型也可設置成“數字”型

  D．在數據表視圖下，可在“班級”字段輸入“1班”
  組卷：3引用：2難度：0.7

  解析

二、解答題（共5小題，滿分26分）

• 16．【加試題】尼克斯徹定理：任何一個大于等于1的整數的立方等于一串連續奇數之和，如：1³=1，2³=3+5，3³=7+9+11．編寫一個VB程序驗證尼克斯徹定理，程序運行時，在文本框Text1中輸入
  一個大于等于1的整數，單擊“驗證”按鈕Commandl,在文本框Text2中顯示驗證結果，運行界面如圖所示。
  實現上述功能的VB代碼如下，其中加框處代碼有錯，請改正。
  Dim n As Integer,i As Integer,t As Integer,sum As Long,s As string
  n=Val（Text1．Text）
  For i=1 Ton^3 Step 2'變量i表示連續奇數的首個整數 
      sum=0：t=i：flag=False
      Do While sum＜=n^3 And flag=False
  sum=sum+t
                          （1）
  　　If sum=n^3 Then flag=True
     Loop
     If  flag=True Then Exit For
  Next i
  s=Str（n）+“^“+Str（3）+“=“
  Do While sum＞0
                                                  （2）
      If sum=0 Then
         s=s+Str（i）
      Else
          s=s+Str（i）+''+“
      End If
          i=i+2
  Loop
  Text2．Text=s
  End Sub。
  組卷：6引用：3難度：0.3

  解析

• 17．【加試題】某校開展“七選三”選課調查，選課數據存數據庫文件“student.jye.ai”中，如圖a所示．“選課”字段存儲7位“0”、“1”組成的數串，每位對應一個科目，從左往右依次為“物化生政史地技”，“1”
  表示選擇，“0”表示未選擇，如“1110000”表示選擇科目“物化生”．小吳設計了一個VB程序統計全校選課情況，功能如下：程序啟動時從數據庫中讀入全校學生的學籍輔號、姓名、班級、選課信息，處理后在列表框List1中顯示，單擊“選課統計”按鈕Commandl,在列表框List2中按選課人數從高到低輸出各選課組及人數．程序界面如圖b所示（學籍輔號和姓名的部分內容不顯示）．
  實現上述功能的VB程序如下，請回答下列問題：
  （1）若某記錄“選課”字段值為“1100001”，則該生的選課科目是

   

  ．
  （2）請在橫線處填上合適的代碼．
  Const max=1000
  Const s=“物化生政史地技”
  Dim n As Integer'存放學生人數
  Dim xjfh（1To max）As String,xmm（1To max）As string
  '數組bj存放學生班級，數組xk存儲學生的選課標志
  Dim zh（1 To 35）As string,tj（1 To 35）As Integer
  '數組zh存儲不同選課組合，數組tj存儲某一組合選課的學生數
  Function adj（a As String,n As Integer）As string
  '函數功能：在被顯示數據之后添加上合適的空格，代碼略
  End Function
  Function convert（x As String）As String
  Dim i As Integer,st As String
  st=““
  For i=1 To Len（x）
  If Mid（x,i,1）=“1“Then st=st+Mid（s,i,1）
  Next i
  convert=st
  End Function
  Private Sub Form_-Load（　　）
      Dim i As Integer,km As String
      Dim conn As New ADODB．Connection
      Dim rs As New ADODB．Recordset
      conn.Connection String=“Provider=microsoft.ace.jye.ai.12.0；data source=“+App.Path
  +“\student.jye.ai“
      conn.Open
      Set rs.ActiveConnection=conn
       rs.Open“select*from stu_-info“
       n=0
       Do while Not rs.EOF
       n=n+1
       xjfh（n）=rs.Fields（0）：xm（n）=rs.Fields（1）
       bj（n）=rs.Fields（2）：xk（n）=rs.Fields（3）
  

   

  
       List1，AddItem xjfh（n）+adj（xm（n），4）+adj（Str（bj（n）），4）+adj（km,6）
       rs.MoveNext
   Loop
  '剩余部分代碼略
  功能：產生35種選課組合的“0”“1”數串，存數組zh,；數組tj各元素初始化為0．
  End Sub
  Private Sub Commandl_-Click（　　）
    Dim i As Integer,j As Integer,temp2 As Integer,temp1 As Integer
  For i=1 To 35
     For j=1 To n
     If xk（j）=zh（i） Then

   

  
     Next j
  Next i
  For i=1 To 34
  For j=35 To i+1 Step-1
      If

   

  Then
         temp1=zh（j）：zh（j）=zh（j-1）：zh（j-1）=temp1
         temp2=tj（j）：tj（j）=tj（j-1）：tj（j-1）=temp2
       End If
      Next j
  Next i
  For i=1 To 35
         List2．Str（i）+adj（convert（zh（i）），6）+adj（Str（tj（i）），6）
  Next i
  End Sub.
  組卷：0引用：1難度：0.3

  解析