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

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

• 1．小周定義了一個(gè)變量rs來存儲(chǔ)超市里商品條形碼，變量的數(shù)據(jù)類型應(yīng)是（　?。?/h2>

  A．Integer

  B．String

  C．Long

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

  解析

• 2．下列可作為VB變量名的是（　?。?/h2>

  A．true

  B．we*6

  C．dew3

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

  解析

• 3．隨機(jī)產(chǎn)生一個(gè)范圍為[8，89]的正整數(shù)的VB表達(dá)式是（　　）

  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表達(dá)式的值為True的是（　?。?/h2>

  A．1=2

  B．“78“＞“79“

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

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

  解析

• 5．將數(shù)學(xué)表達(dá)式sin（e³）+

  |

  x

  +

  y

  |

  寫成Visual Basic的表達(dá)式，其正確的形式是（　?。?/h2>

  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

  解析

二、程序設(shè)計(jì)題（本題共4個(gè)大題，共24分．）

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

   

  屬性。
  （2）要實(shí)現(xiàn)上述功能，請?jiān)跈M線處填入合適代碼。
  Private Sub Command1_Click （　?。?br />Randomize'隨機(jī)數(shù)初始化
  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'隨機(jī)投點(diǎ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．【加試題】李雷收到了朋友發(fā)給他的一封奇怪的郵件，里面有段內(nèi)容是由一些數(shù)字和符號(hào)組成，信上面說了，這段內(nèi)容是加密后的內(nèi)容，并給出了具體加密方法（假定原文的英文字母都是大寫的），具體方法如下：
  （1）“A”變?yōu)橐粋€(gè)1到100內(nèi)的隨機(jī)數(shù)*27+1，“B”變?yōu)橐粋€(gè)1到100 內(nèi)的隨機(jī)數(shù)*27+2，…，“Z”變?yōu)橐粋€(gè) 1 到 100 內(nèi)的隨機(jī)數(shù)*27+26；
  （2）每個(gè)字母變?yōu)閿?shù)字后會(huì)加上一個(gè)“-”用來分割數(shù)字；
  （3）其他空格和標(biāo)點(diǎn)字符都按原來的表示．
      李雷利用VB 編寫了一個(gè)解密程序，功能如下：將郵件中密文的內(nèi)容復(fù)制到文本框Text1中，點(diǎn)擊“解密”按鈕Command1后，程序會(huì)將密文解密并將解密后的內(nèi)容顯示在文本框 Text2 中．
  程序運(yùn)行界面如圖所示：
  
  （1）根據(jù)描述，若密文為“1905-1442-”，則表示的是：

   

  ．
  （2）實(shí)現(xiàn)上述功能的 VB 程序如下，請?jiān)跈M線處填入合適代碼．
  Private Sub Command1_Click（　?。?br />Dim s As String,yw As String,t As String
  Dim value As Integer'用于存儲(chǔ)某字母在密文中對應(yīng)數(shù)值的臨時(shí)變量
  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

  解析