2017-2018學年浙江省紹興市諸暨市牌頭中學高二（上）月考信息技術試卷（1月份）

一、選擇題（本題共13小題，每小題2分，只有一個答案是正確的，多選或不選均不得分）

• 1．小周定義了一個變量rs來存儲超市里商品條形碼，變量的數據類型應是（　　）

  A．Integer

  B．String

  C．Long

  D．Date
  組卷：10引用：3難度：0.9

  解析

• 2．下列可作為VB變量名的是（　　）

  A．true

  B．we*6

  C．dew3

  D．3ABC
  組卷：6引用：2難度：0.9

  解析

• 3．隨機產生一個范圍為[8，89]的正整數的VB表達式是（　　）

  A．8+int（82*rnd）	B．8+int（90*rnd）
  C．int（90*Exp）	D．int（82*rnd）
  組卷：9引用：1難度：0.9

  解析

• 4．下列Visual Basic表達式的值為True的是（　　）

  A．1=2

  B．“78“＞“79“

  C．Len（“78“）=Len（“中國“）

  D．Mid（“abcdef“，2，3）=“abc“
  組卷：6引用：1難度：0.9

  解析

• 5．將數學表達式sin（e³）+

  |

  x

  +

  y

  |

  寫成Visual Basic的表達式，其正確的形式是（　　）

  A．sin（exp（3））+sqr（abs（x+y））

  B．sin（e^3）+sqr（abs（x+y））

  C．sin（exp（3））+sqr（|x+y|）

  D．sin（e^3）+sqr（|x+y|）
  組卷：6引用：3難度：0.7

  解析

二、程序設計題（本題共4個大題，共24分．）

• 16．用蒙特卡洛法求圓周率PI的近似值，其算法如下：使用隨機函數Rnd,隨機生成兩個[0，1）之間的隨機數，由此構成一個投點坐標（x,y），然后根據x²+y²＜=1投點是否在圓內來求PI的近似值。其中總共隨機投點n次，統計落點在單位圓內的點數為s,則4s/n即為所求PI的近似值。程序界面如圖所示，在Text1中輸入投點的個數，單機“計算”按鈕，PI的近似值結果顯示在Text2中。）
  
  （1）要使得按鈕的文字顯示為“計算”，應該修改該對象的

   

  屬性。
  （2）要實現上述功能，請在橫線處填入合適代碼。
  Private Sub Command1_Click （　　）
  Randomize'隨機數初始化
  Dim i As Long,n As Long,s As Long
  Dim x As Double,y As Double,z As Double
  n=Val（Text1．Text）
  

   

  ①
  s=0
  Do While i＜=n'隨機投點n次
  x=Rnd：y=Rnd
  z=

   

  ②
  If z＜=1Then
  s=s+1
  End If
  i=i+1
  Loop
  Text2．Text=

   

  ③
  組卷：2引用：1難度：0.6

  解析

• 17．【加試題】李雷收到了朋友發給他的一封奇怪的郵件，里面有段內容是由一些數字和符號組成，信上面說了，這段內容是加密后的內容，并給出了具體加密方法（假定原文的英文字母都是大寫的），具體方法如下：
  （1）“A”變為一個1到100內的隨機數*27+1，“B”變為一個1到100 內的隨機數*27+2，…，“Z”變為一個 1 到 100 內的隨機數*27+26；
  （2）每個字母變為數字后會加上一個“-”用來分割數字；
  （3）其他空格和標點字符都按原來的表示．
      李雷利用VB 編寫了一個解密程序，功能如下：將郵件中密文的內容復制到文本框Text1中，點擊“解密”按鈕Command1后，程序會將密文解密并將解密后的內容顯示在文本框 Text2 中．
  程序運行界面如圖所示：
  
  （1）根據描述，若密文為“1905-1442-”，則表示的是：

   

  ．
  （2）實現上述功能的 VB 程序如下，請在橫線處填入合適代碼．
  Private Sub Command1_Click（　　）
  Dim s As String,yw As String,t As String
  Dim value As Integer'用于存儲某字母在密文中對應數值的臨時變量
  s=Text1．Text
  value=0
  yw=””
  For i=1 To Len（s）
  t=

   

  
  If t＞=“0“And t＜=“9“Then
  value=value*10+Val（t）
  ElseIf t=“-“Then
  yw=yw+Chr（Asc（“A“）+value Mod 27-1）
  

   

  
  Else
  yw=yw+t
  End If
  Next i
  Text2．Text=yw
  End Sub.
  組卷：7引用：2難度：0.1

  解析