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

  解析