2019-2020學年浙江省紹興市諸暨中學高二（上）月考信息技術試卷（10月份）

一、單選題（每題2分）

• 1．有一個對象屬性面板如圖所示，回答1-3題。
  
  這是（　?。?/h2>

  A．窗體控件	B．屬性控件
  C．按鈕控件	D．標簽 Lable 控件
  組卷：1引用：0難度：0.50

  解析

• 2．有一個對象屬性面板如圖所示，回答1-3題。
  
  該對象名為（　?。?/h2>

  A．cmd_1	B．CommandButtom
  C．Caption	D．lable
  組卷：1引用：0難度：0.50

  解析

• 3．有一個對象屬性面板如圖所示，回答1-3題。
  
  若欲其中的屬性名 caption 獲得賦值為“轉(zhuǎn)換”正確的是（　?。?/h2>

  A．Command1．Text=“轉(zhuǎn)換”

  B．Lable.Caption=“轉(zhuǎn)換”

  C．Command1．Caption=“轉(zhuǎn)換”

  D．Lable.Text=“轉(zhuǎn)換”
  組卷：1引用：0難度：0.40

  解析

• 4．“如果 a,b,c 中任意一個為 0，那么 y=y²+1”。能實現(xiàn)該功能的 VB 語句是（　?。?/h2>

  A．If a=0 And b=0 And c=0 Then y=y*y+1

  B．If a*b*c=0 Then y=y^2+1

  C．If a=0，b=0，c=0 Then y=y^2+1

  D．If a=b=c=0 Then y=y*y+1
  組卷：5引用：1難度：0.5

  解析

二、填空題

• 15．素數(shù)只能被 1 和它本身整除，不能被其他自然數(shù)整除。編寫 VB 程序?qū)崿F(xiàn)如下功能：單擊“產(chǎn) 生奇數(shù)并判斷”按鈕 Command1，隨機產(chǎn)生一個三位正奇數(shù)顯示在文本框 Text1 中，并在文本框 Text2 中顯示其是否為素數(shù)的判斷結(jié)果。例如，當隨機產(chǎn)生的三位正奇數(shù)為 953 時，程序運行界面如圖 a 所示。
  
  （1）在設計程序界面時，應使用第 11 題圖 b 所示“控件工具箱”中的

   

  （填寫相應編號）添加文 本框 Text1。
  （2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填寫合適的代碼。
  Private Sub Command1Click（　?。?br />Dim n As Integer,i As Integer
  Dim flag As Boolean‘用于標記是否為素數(shù)
  Randomize
  n=①

   

  ‘n 為三位正奇數(shù)
  Text1．Text=Str（n）：flag=True：i=3
  Do While i＜=n-1 And flag=True
  Ifn Mod i=0Then flag=False
  End If
  i=i+2
  Loop
  If  ②

   

  Then
  Text2．Text=Str（n）+“是素數(shù)”
  Else
  Text2．Text=Str（n）+“不是素數(shù)”
  End If
  End Sub
  （3）以下選項中，與加框處表達式“n Mod i=0”等價的是

   

  （單選，填字母）。
  A．n\i=Int（n/i）B．n\i=n/iC．n Mod i=n\i
  組卷：0引用：2難度：0.6

  解析

• 16．某英文字符加密算法，對明文中的每個字符進行下列加密處理：
  （1）將該字符 ASCII 碼轉(zhuǎn)換成對應的 2 位 16 進制數(shù)；
  （2）將產(chǎn)生的 16 進制數(shù)互換位置
  （3）步驟 2 產(chǎn)生的 16 進制數(shù)即為明文加密后的密文字符 根據(jù)上述加密算法，小明編寫了一個解密程序，界面如圖
  （1）如果明文為 24，那么密文是

   

  
  （2）請在橫線處填上合適的代碼
  Dims as string
  Private Sub Command1_Click（　?。?br />Dim d as string,d1 as string,d2 as string
  Dim c as integer,c1 as integer,c2 as integer
  Dim ans as string,i as integer
  ‘讀取密文，顯示在 text1，并存儲在 s 中，代碼略
  Ans=””
  For i=1 To len（s） step 2
  d1=Mid（s,i,1）：d2=Mid（s,i+1，1）
  if d1＞=″A″then①

   

  elsec1=val（dl）
  c2=val（d2）：c=②

   

  
  d=chr（c）：ans=③

   

  
  Next i
  Text2．Text=ans
  End Sub
  組卷：0引用：1難度：0.6

  解析