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

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

• 1．關(guān)于病毒，下列說法正確的是（　　）

  A．下載安裝手機(jī)應(yīng)用軟件可能會感染病毒

  B．病毒隱藏在合法的文件中不被發(fā)現(xiàn)體現(xiàn)了病毒的傳染性

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

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

  解析

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

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

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

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

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

  解析

• 3．使用UltraEdit軟件觀察字符內(nèi)碼，部分界面如圖所示。下列關(guān)于字符組成的說法中，正確的是（　?。?br />

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

  解析

• 4．下列關(guān)于Access數(shù)據(jù)表中“自動編號”的說法中，正確的是（　　）

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

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

  C．某字段的數(shù)據(jù)類型為“自動編號”，該字段對應(yīng)的記錄值不能手工輸入

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

  解析

• 5．某算法的部分流程圖如圖所示。執(zhí)行這部分流程后s的值是（　?。?br/>

  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．一個正整數(shù)（非素數(shù)）可以表示成它的質(zhì)因子（“1”與其本身除外）的乘積。給出任一個整數(shù)N，求出它所有的質(zhì)因子以及每個因子出現(xiàn)的次數(shù)，并顯示乘積表達(dá)式。例如：整數(shù)120=2×2×2×3×5，所以它的質(zhì)因子是2，3，5，次數(shù)分別是3次，1次，1次。
  用Visual Basic編寫一個程序求質(zhì)因子，功能如下：在文本框Text1中輸入一個數(shù)，單擊“計算”命令按鈕Command1，在列表框中顯示該數(shù)的質(zhì)因子及相應(yīng)的次數(shù)，并顯示乘積表達(dá)式。程序運(yùn)行時的界面如圖所示。
  
  實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯，請改正：
  Private Sub Command1_Click （　?。?br />Dim a（1 To 100）As Integer'數(shù)組a存放該整數(shù)的質(zhì)因子出現(xiàn)的次數(shù)
  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“質(zhì)因子″&″″&″次數(shù)″
  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
  加框①處應(yīng)改為：

   

  ；加框②處應(yīng)改為：

   

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

  解析

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

   

  名學(xué)生可賦分為100。
  （2）分析數(shù)據(jù)，可知存放學(xué)生成績的數(shù)據(jù)表為

   

  。
  （3）請在橫線處填入合適的代碼。
  Dim kh（1 To 1500）As String'存放學(xué)生考號
  Dim a（1 To 1500）As Integer'存放學(xué)考成績
  Dim b（1 To 1500）As Integer'存放加試成績
  Dim pm（1 To 1500）As Integer'存放排名
  Dim n As Integer'存放總?cè)藬?shù)
  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.accdb″
  conn.Open
  Set rs.ActiveConnection=conn
  rs.Open″select*from stu_cj″
  List1．AddItem“考號″&″學(xué)考″&″加試″
  n=0
  Do While Not rs.EOF'到記錄集最后一條記錄后退出循環(huán)
  n=n+1'計數(shù)
  kh（n）=rs.Fields（″考號″）
  a（n）=rs.Fields（″學(xué)考成績″）
  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 （　?。?br />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″排名″&″考號″&″學(xué)考″&″加試“
  For i=1 To n
  List2．AddItem pm（i） &″″& kh（i） &″″& a（i） &″″& b（i）
  Next
  End Sub
  組卷：0引用：1難度：0.5

  解析