2017-2018學(xué)年浙江省嘉興市七校高二（下）期中信息技術(shù)試卷

一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯(cuò)選、多選均不得分．）

• 1．下列關(guān)于信息與信息技術(shù)的說(shuō)法，下列說(shuō)法不正確的是（　　）

  A．短信詐騙體現(xiàn)了信息具有真?zhèn)涡?/label>

  B．典型的近代信息技術(shù)有攝影技術(shù)、廣播和電視技術(shù)等

  C．計(jì)算機(jī)加工處理音頻信息，本質(zhì)上是通過(guò)計(jì)算來(lái)完成的

  D．信息表達(dá)的數(shù)字化就是表達(dá)信息時(shí)要遵循一定的標(biāo)準(zhǔn)，以利于信息的交流
  組卷：2引用：1難度：0.8

  解析

• 2．下列關(guān)于瀏覽器及網(wǎng)頁(yè)的說(shuō)法，下列說(shuō)法正確的是（　?。?/h2>

  A．網(wǎng)頁(yè)文件是用HTTP語(yǔ)言來(lái)描述的

  B．網(wǎng)頁(yè)可能含有圖形圖象、動(dòng)畫(huà)等素材，故不能用記事本編輯網(wǎng)頁(yè)

  C．在IE瀏覽器中清空歷史記錄，收藏夾中的內(nèi)容同時(shí)被清空

  D．將IE瀏覽器中將當(dāng)前瀏覽的網(wǎng)頁(yè)添加到收藏夾，實(shí)質(zhì)上是保存該網(wǎng)頁(yè)的URL
  組卷：8引用：2難度：0.6

  解析

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

  A．文中批注的用戶是S1

  B．刪除文中的“卜算子”，批注內(nèi)容不會(huì)被刪除

  C．文中有4處修訂

  D．修訂前，第一行文字為“驛外斷橋邊，寂寞開(kāi)無(wú)主。已是黃昏獨(dú)自愁，更著風(fēng)和雨。”
  組卷：23引用：3難度：0.5

  解析

• 4．使用Access軟件打開(kāi)數(shù)據(jù)庫(kù)，部分界面如下所示，下列說(shuō)法正確的是（　?。?/h2>

  A．當(dāng)前數(shù)據(jù)庫(kù)至少包含9張數(shù)據(jù)表

  B．當(dāng)前正處在“數(shù)據(jù)表視圖”界面，故不可以修改字段的數(shù)據(jù)類(lèi)型

  C．已打開(kāi)的數(shù)據(jù)表名稱是“學(xué)生”，共有23條記錄

  D．可以在當(dāng)前記錄前，插入一條新記錄
  組卷：0引用：1難度：0.6

  解析

• 5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量a的值是（　　）
  

  A．4

  B．2

  C．1

  D．46
  組卷：2引用：2難度：0.7

  解析

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

• 16．編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入自然數(shù)n,單擊“生成隨機(jī)數(shù)”命令按鈕Command1，則生成n個(gè)[1，100]區(qū)間內(nèi)的整數(shù)，并顯示在列表框List1中，單擊“計(jì)算”按鈕Command2，標(biāo)簽Label4中輸出最大數(shù)及該數(shù)在數(shù)列中的位置，標(biāo)簽Label6中輸出最小數(shù)及該數(shù)在數(shù)列中的位置，運(yùn)行效果如下圖所示，程序代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
  
  Dim d（1 To 100）As Integer
  Dim n As Integer
  Private Sub Command1_Click （　?。?br />Dim i As Integer
  Randomize
  n=Val（Text1．Text）
  For i=1 To n
  
  List1．AddItem Str（d（i））
  Next i
  End Sub
  Private Sub Command2_Click（　　）
  Dim i As Integer,min As Integer,max As Integer
  Dim maxpos As Integer,minpos As Integer
  max=d（1）
  
  For i=2 To n
  If max＜d（i） Then max=d（i）：maxpos=i
  If min＞d（i） Then min=d（i）：minpos=i
  Next i
  Label4．Caption=Str（max）+“位置：“+Str（maxpos）
  Label6．Caption=Str（min）+“位置：“+Str（minpos）
  End Sub
  組卷：1引用：1難度：0.6

  解析

• 17．編寫(xiě)VB應(yīng)用程序，當(dāng)用戶輸入的一串由字母、數(shù)字等字符組成的字符串，統(tǒng)計(jì)其中每個(gè)字母出現(xiàn)的次數(shù)（不分大小寫(xiě)）．程序運(yùn)行時(shí)界面如圖1所示．
  
  （1）設(shè)計(jì)應(yīng)用程序界面時(shí)，為添加標(biāo)簽對(duì)象“輸入字串：”，應(yīng)使用圖2所示的“控件工具箱”中的

   

  （填寫(xiě)相應(yīng)編寫(xiě)），并在圖3所示的“屬性窗口”中，將

   

  屬性設(shè)置為“輸入字串：”．
  
  （2）程序運(yùn)行時(shí)，在Text1中輸入字符串，單擊“統(tǒng)計(jì)”按鈕，在List1中顯示統(tǒng)計(jì)結(jié)果．請(qǐng)?jiān)跈M線處填入合適代碼．
  ‘函數(shù)IsLetter（x）功能，若x是字母，則返回值為字母x在字母序列“A”～“Z”中的序號(hào)，如字母“A”的序號(hào)為0，字母“D”的序號(hào)為3．若x不是字母，則返回值為-1．
  Function IsLetter（x As String） As Integer
  If“A“＜=x And x＜=“Z“Then
  IsLetter=Asc（x）-Asc（“A“）
  ElseIf“a“＜=x And x＜=“z“Then
  IsLetter=Asc（x）-Asc（“a“）
  Else
  

   

  
  End If
  End Function
  Private Sub Command1_Click

   

  
  Dim f（25）As Integer,m As Integer,n As Integer
  Dim s As String,c As String
  List1．Clear
  For m=0To 25‘初始化數(shù)組f
  f（m）=0
  Next m
  s=Text1．Text
  For m=1To Len（s）‘依次讀取字符串中的每個(gè)字符進(jìn)行判斷
  c=Mid（s,m,1）
  n=IsLetter（c）
  If n＜＞-1Then f（n）=f（n）+1
  Next m
  For m=0To 25‘輸出統(tǒng)計(jì)結(jié)果，沒(méi)有出現(xiàn)的字母不輸出
  If

   

  Then
  List1．AddItem （Chr（m+Asc（“a“）） &“：“& f（m））
  End If
  Next m
  End Sub.
  組卷：11引用：4難度：0.1

  解析