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

一、單選題（每題2分）

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

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

  解析

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

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

  解析

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

  A．Command1．Text=“轉換”

  B．Lable.Caption=“轉換”

  C．Command1．Caption=“轉換”

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

  解析

• 4．“如果 a,b,c 中任意一個為 0，那么 y=y²+1”。能實現該功能的 VB 語句是（　　）

  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．素數只能被 1 和它本身整除，不能被其他自然數整除。編寫 VB 程序實現如下功能：單擊“產 生奇數并判斷”按鈕 Command1，隨機產生一個三位正奇數顯示在文本框 Text1 中，并在文本框 Text2 中顯示其是否為素數的判斷結果。例如，當隨機產生的三位正奇數為 953 時，程序運行界面如圖 a 所示。
  
  （1）在設計程序界面時，應使用第 11 題圖 b 所示“控件工具箱”中的

   

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

   

  ‘n 為三位正奇數
  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）+“是素數”
  Else
  Text2．Text=Str（n）+“不是素數”
  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 碼轉換成對應的 2 位 16 進制數；
  （2）將產生的 16 進制數互換位置
  （3）步驟 2 產生的 16 進制數即為明文加密后的密文字符 根據上述加密算法，小明編寫了一個解密程序，界面如圖
  （1）如果明文為 24，那么密文是

   

  
  （2）請在橫線處填上合適的代碼
  Dims as string
  Private Sub Command1_Click（　　）
  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

  解析