2017年浙江省高中技術選考模擬試卷（九）

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

• 1．下列有關信息安全的說法，正確的是（　　）

  A．定期卸載不常用軟件，可提升系統的安全性

  B．計算機病毒的防治可從預防、檢查和殺毒三方面著手

  C．對微信朋友圈的“點贊”和“轉發”，不涉及信息安全

  D．為系統修補漏洞，可完善系統功能，與系統的安全性無關
  組卷：11引用：4難度：0.9

  解析

• 2．下列可用于收發和管理電子郵件的軟件是（　　）

  A．Access	B．Windows Media Player
  C．Foxmail	D．PowerPoint
  組卷：9引用：4難度：0.9

  解析

• 3．用Word軟件編輯文檔，部分界面如圖所示，文中圖片使用的環繞方式是（　　）

  A．

  B．

  C．

  D．
  組卷：22引用：4難度：0.7

  解析

• 4．下列日常活動中，涉及數據庫操作的是（　　）

  A．公共自行車的取車和還車

  B．手機上直接瀏覽拍攝的照片和視頻

  C．使用便利貼，記錄日常生活中的重要點滴

  D．用 Excel 軟件管理家庭月收支
  組卷：13引用：5難度：0.9

  解析

• 5．運行下列VB程序，在文本框Text1中輸入“臺州”，單擊命令按鈕Command1后彈出如圖所示的出錯信息提示．
  Private Sub Command1_Click（　　）
        Dim City As String,file1 As String
        City=Text1．Text
        file1=City+“．jpg“
        Image1．Picture=LoadPicturt（file1）
        List1．AddItem City
  End Sub
  此時程序正在執行的語句是（　　）

  A．City=Text1．Text

  B．file=City+“．jpg“

  C．Image1．Picture=LoadPicture（file1）

  D．List.AddItem City
  組卷：8引用：2難度：0.7

  解析

二、非選擇題（本大題共5小題，共26分）

• 16．楊輝三角，又稱賈憲三角形，是我國古代數學的成就之一，如圖所示為楊輝三角前5行的數據排列．從圖可知，楊輝三角當前行的數值可由前一行推導計算得到．
  現要求楊輝三角第n行的數據，編寫的VB程序功能如下：在文本框Text1中輸入n值（n≤30），單擊按鈕Command1后，在標簽框Label1中輸出第n行的數據．實現上述功能的VB程序如下，但加框處代碼有錯，請改正．
  Private Sub Command1_Click（　　）
        Dim pre（0 to 30）As Long,cur（0 to 30）As Long
  '數值型數組的數組元素初值默認為0
        Dim s As String,i As Integer,j As Integer
        n=Val（Text1．Text）
  =1'（1）
        For i=1 To n
              s=““
              For j=1 To i
                    cur（j）='（2）
                    s=s & cur（j） &““
              Next j
              For j=1 To i
                    pre（j）=cur（j）
              Next j
        Next i 
        Label1．Caption=s
  End Sub.
  組卷：7引用：2難度：0.1

  解析

• 17．猜數字是一種古老的密碼破譯類益智小游戲．通常由兩個人玩，也可以由一個人和電腦玩，其標準規則為：
  1）一方出數字，出數字的人要想好一個無重復數字的4位數（如0165，5234等），不能讓猜的人知道；
  2）另一方猜數字，每猜一個數字，出數者根據結果給出“幾A幾B的提示”，其中A前面的數字表示位置正確的數字個數，而B前面的數字表示數字正確但位置不對的數字個數．（如要猜5234，猜的人給出5346，則提示1A2B）；
  3）重復第二步的猜測過程，直到猜中（即提示4A0B）為止．
  小林編寫了一個和電腦猜數字的VB程序，其功能如下：窗體加載時，調用自定義函數產生待猜的4位數字，并初始化猜測次數．用戶在文本框Text1中輸入猜的數字，單擊“我猜”按鈕Command1，程序進行判斷，并將結果顯示在列表框List1中．猜中后，在標簽框Label2中根據猜測次數給出評語．程序運行效果如1圖所示．
  （1）實現上述功能的VB程序如下，請在橫線處填入合適代碼．
  Dim result As String,total As Integer
  Dim flag（0 to 9）As Boolean'標記下標對應的數字是否存在，初值默認為False
  Private Sub Form_Load（　　）
  　　　　　result=

   

  
  　　　　　total=0
  End Sub
  Private Sub Command1_Click（　　）
  　　　　　Dim A As Integer,B As Integer
  　　　　　Dim C As Integer'變量C存儲數字正確（含位置正確）的數字個數
  　　　　　Dim guess As String,i As Integer,t1 As String,t2 As String
  　　　　　guess=Text1．Text
  　　　　　A=0：C=0
  　　　　　For i=1 To 4
  　　　　　　　　　　 t1=Mid（result,i,1）
  　　　　　　　　　　 t2=Mid（guess,i,1）
  　　　　　　　　　　 If t1=t2 Then A=A+1
  　　　　　　　　　　 If

   

  　Then C=C+1
  　　　　　Next i
  　　　　　total=total+1
  　　　　　B=

   

  
  　　　　　List1．AddItem Str（total） &““& guess &““& Str（A） &“A“& Str（B） &“B“
  　　　　　If A=4 Then
  　　　　　　　　　　　If total＜=8 Then
  　　　　　　　　　　　　　　 Label2．Caption=“太厲害了！您只用了“& total &“次．“
  　　　　　　　　　　 Else
  　　　　　　　　　　　　　　 Label2．Caption=“繼續鍛煉！您共花了“& total &“次．“
  　　　　　　　　　　　End If
  　　　　　End If
  End Sub
  'RndCode　函數用于隨機產生待猜測的n位不重復數字字符
  Function RndCode（n As Integer） As String
  　　　　　Dim x As Integer,i As Integer
  　　　　　Randomize
  　　　　　num=0：RndCode=““
  　　　　　Do While num＜n
  　　　　　　　　　 x=Int（Rnd*10）'隨機產生一個[0，9]的數字
  　　　　　　　　　　If flag（x）=False Then
  　　　　　　　　　　　　　　　 flag（x）=True
  　　　　　　　　　　　　　　　　num=num+1
  　　　　　　　　　　　　　　　 RndCode=RndCode & x
  　　　　　　　　　　 End If
  　　　　　Loop
  End Function
  （2）如果某次游戲過程如2圖所示，那么第7次要猜測成功，應輸入

   

  （單選，填字母：A.6321　　　　　 B.6312　　C.2531　 D.2513）．
  組卷：3引用：1難度：0.1

  解析