2018-2019學年浙江省臺州市臨海市白云高級中學高三（上）第一次月考信息技術試卷

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

• 1．關于病毒，下列說法正確的是（　　）

  A．下載安裝手機應用軟件可能會感染病毒

  B．病毒隱藏在合法的文件中不被發現體現了病毒的傳染性

  C．殺毒軟件只需經常更新升級，就能有效查殺所有病毒

  D．QQ好友之間發送的文件肯定是安全的，不需要查殺病毒
  組卷：8引用：2難度：0.9

  解析

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

  A．刪除批注內容“江蘇文藝出版社出版”，則批注也被刪除

  B．不能再為《你必須很努力，才能看起來毫不費力》添加批注

  C．圖片與文字的環繞方式可能是“緊密型”

  D．接受所有修訂后，第三行的部分文字是“該書通過四十個真實有料的故事，讓人直面追夢路”
  組卷：7引用：2難度：0.9

  解析

• 3．使用UltraEdit軟件觀察字符內碼，部分界面如圖所示。下列關于字符組成的說法中，正確的是（　　）
  

  A．5個漢字	B．10個ASCII碼
  C．2個漢字和8個ASCII碼	D．4個漢字和2個ASCII碼
  組卷：12引用：2難度：0.5

  解析

• 4．下列關于Access數據表中“自動編號”的說法中，正確的是（　　）

  A．可以同時存在兩個數據類型為“自動編號”的字段

  B．某字段的數據類型為“自動編號”，該字段不能設置為主鍵

  C．某字段的數據類型為“自動編號”，該字段對應的記錄值不能手工輸入

  D．刪除記錄，剩余記錄中數據類型為自動編號的字段值會自動更新
  組卷：3引用：2難度：0.5

  解析

• 5．某算法的部分流程圖如圖所示。執行這部分流程后s的值是（　　）
  

  A．28

  B．4

  C．18

  D．8
  組卷：2引用：2難度：0.9

  解析

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

• 16．一個正整數（非素數）可以表示成它的質因子（“1”與其本身除外）的乘積。給出任一個整數N，求出它所有的質因子以及每個因子出現的次數，并顯示乘積表達式。例如：整數120=2×2×2×3×5，所以它的質因子是2，3，5，次數分別是3次，1次，1次。
  用Visual Basic編寫一個程序求質因子，功能如下：在文本框Text1中輸入一個數，單擊“計算”命令按鈕Command1，在列表框中顯示該數的質因子及相應的次數，并顯示乘積表達式。程序運行時的界面如圖所示。
  
  實現上述功能的VB程序如下，但加框處代碼有錯，請改正：
  Private Sub Command1_Click （　　）
  Dim a（1 To 100）As Integer'數組a存放該整數的質因子出現的次數
  Dim i As Integer,m As Integer,n As Integer,k As Integer,s As String
  n=Val（Text1．Text）
  m=n
  k=Int（Sqr（n））
  For i=2 To k
  a（i）=0
  Next i
  For i=2 To k
  Do While n Mod i=0
  

  a（k）=a（k）+1'

  ①
  n=n\i
  If

  n=1

  Then s=s+Str（i）+″×″Else s=s+Str（i）：Exit For'②
  Loop
  Next i
  List1．AddItem“質因子″&″″&″次數″
  For i=2 To k
  If a（i）＜＞0 Then List1．AddItem Str（i） &″″& Str（a（i））
  Next i
  List1．AddItem Str（m）+″=″+s
  End Sub
  加框①處應改為：

   

  ；加框②處應改為：

   

  。
  組卷：0引用：1難度：0.5

  解析

• 17．小王準備編寫一個依據技術學考、加試成績進行賦分的VB程序，需對成績進行預處理。預處理算法的基本思想：先從數據庫中讀取考生的考號、學考、加試成績，然后進行排序，排序規則是按學考+加試的總分降序，若總分相同按加試成績降序排列。再根據排序結果給出名次，同分同名，學考、加試成績相同，則名次相同。
  程序運行時，學生數據顯示在列表框List1中，單擊“計算”按鈕Command1，計算結果顯示在列表框List2中，程序運行界面如圖所示。
  
  實現上述功能的VB程序如下，請回答下列問題：
  （1）如圖所示，學生總數為1500人，排名前1%的學生可賦分為100，則共有

   

  名學生可賦分為100。
  （2）分析數據，可知存放學生成績的數據表為

   

  。
  （3）請在橫線處填入合適的代碼。
  Dim kh（1 To 1500）As String'存放學生考號
  Dim a（1 To 1500）As Integer'存放學考成績
  Dim b（1 To 1500）As Integer'存放加試成績
  Dim pm（1 To 1500）As Integer'存放排名
  Dim n As Integer'存放總人數
  Private Sub Form_Load （　　）
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  conn.ConnectionString=″Provider=Microsoft.ace.OLEDB.12.0；DATA Source=″+App.Path+″\cj.jye.ai″
  conn.Open
  Set rs.ActiveConnection=conn
  rs.Open″select*from stu_cj″
  List1．AddItem“考號″&″學考″&″加試″
  n=0
  Do While Not rs.EOF'到記錄集最后一條記錄后退出循環
  n=n+1'計數
  kh（n）=rs.Fields（″考號″）
  a（n）=rs.Fields（″學考成績″）
  b（n）=rs.Fields（″加試成績″）
  List1．AddItem kh（n） &″″& a（n） &″″& b（n）
  rs.MoveNext'移動到下一條記錄
  Loop
  rs.Close
  conn.Close
  Set rs=Nothing
  Set conn=Nothing
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t As Integer,k As String
  For i=1 To n-1
  For j=n To i+1 Step-1
  If a（j）+b（j）＞a（j-1）+b（j-1）Or ①

   

  Then
  t=a（j）：a（j）=a（j-1）：a（j-1）=t
  t=b（j）：b（j）=b（j-1）：b（j-1）=t
  k=kh（j）：kh（j）=kh（j-1）：kh（j-1）=k
  End If
  Next
  Next
  pm（1）=1
  For i=2 To n
  If a（i）=a（i-1）And b（i）=b（i-1）Then
  ②

   

  
  Else
  pm（i）=i
  End If
  Next
  List2．Clear
  List2．AddItem″排名″&″考號″&″學考″&″加試“
  For i=1 To n
  List2．AddItem pm（i） &″″& kh（i） &″″& a（i） &″″& b（i）
  Next
  End Sub
  組卷：0引用：1難度：0.5

  解析