2018-2019学年浙江省绍兴市诸暨中学高二（上）期中信息技术试卷

一、单选题（每题2分，共28分）

• 1．在Visual Basic代码中，将多个语句合并在一行上的并行符是（　　）

  A．撇号（'）

  B．冒号（：）

  C．感叹号（!）

  D．问号（？）
  组卷：11引用：2难度：0.9

  解析

• 2．下列控件中可用于接受用户输入文本，又可用于显示文本的是（　　）

  A．Label 控件	B．TextBox 控件
  C．Timer 控件	D．CommandButton 控件
  组卷：12引用：4难度：0.7

  解析

• 3．Visual Basic规定工程文件的扩展名是（　　）

  A．exe

  B．frm

  C．vbp

  D．bas
  组卷：7引用：2难度：0.5

  解析

• 4．在程序中用到某一整型变量的数据范围为-40000至40000，则该变量类型应该说明为（　　）

  A．Integer

  B．Byte

  C．Long

  D．Boolean
  组卷：8引用：1难度：0.7

  解析

• 5．用语句Dim A（-3To 3）As Integer 所定义的数组的元素个数是（　　）

  A．3

  B．4

  C．6

  D．7
  组卷：4引用：1难度：0.7

  解析

• 6．下列逻辑运算结果为“true“的是（　　）

  A．flase or not true	B．flase and not true
  C．true or not true	D．true and not true
  组卷：11引用：2难度：0.7

  解析

二、填空题（15题4分，16题6分，17题6分，18题6分，共22分）

• 17．一个程序实现如下功能：在文本框text1中输入一个数，在文本框text2中输入需要转换的进制（小于等于16），点击转换按钮，在标签Label3输出转换后的十进制数，程序运行界面如图所示：
  （1）请在横线处填入合适的代码
  Private Sub Commandl Click
  Dim s As String,k As Integer
  （1）

   

  
  k-Val（Text2Text
  Labl3．Caption=“对应的十进制数：“+St（toD（s,k））
  End Sub
  Function toD（s As String,k As Integer） As Integer
  Dim ans As Integer,x As Integer
  ans=o
  For i-I To Len（s）
  If Mid（s,i,1）＞=“A“And Mid （s,i,1）＜=“F”Then
  x=Asc（Mid（s,i,1）-Asc（A“）+10
  x=Val（Mid（s,i,1））
  End If
  （2）

   

  
  Next i
  （3）

   

  。
  End Function
  组卷：2引用：1难度：0.5

  解析

• 18．哥德巴赫1742年给欧拉的信中提出了以下猜想：任一大于2的偶数都可写成两个质数之和，是为著名的哥德巴赫猜想。下面VB程序用来验证4-10000的偶数分解。
  请完善下列程序代码：
  Function prime（x As Integer） As Boolean’此函数判断x是否为质数
  prime=True
  For i=2To Int（Sqr（x））
  If

   

   Then prime=False：Exit For
  Next i
  End Function
  Private Sub Command2_Click （　　）
  Dim a As Integer,b As Integer
  Dim n As Integer
  

   

  
  For a=2To n\2
  b=n-a
  If

   

   Then
  List1．AddItem Str（a）+““+Str（b）+““+Str（n）
  End If
  Next
  End Sub
  组卷：2引用：1难度：0.5

  解析