大连医科大学 2007年辽宁省 计算机省二级 VB试卷
2007省VB试题
一、单项选择题本题共20 小题;每小题2分;共40分
    下面每题给出四个答案;用A; B; C; D标出;其中只有一个是正确的;将你选择的
    结果涂黑答题卡对应题号的方格..
1.在Visual Basic中;窗体文件的扩展名为
    A. bas    B. cls    C. frm  D. txt
2.工具栏中的“启动”按钮的作用是
  A.打开被选中对象的代码窗口  B.运行一个应用程序
  C.工程管理窗口              D.运行一个窗体
3.在结构化程序设计中;限制使用goto语句的原因是
鹿晗关晓彤结婚证图片
  A.该语句对任何结构的程序都不适用    B.便于程序的合成
  C.提高程序的执行效率                D.提高程序的清晰性和可读性
4.当拖动某对象A经过对象B时;将会发生对象B的
  A. DragOver事件                      B. DragDown事件
  C. Drag事件                          D. DragDrop事件
5.在使用菜单编辑器创建菜单时;可在菜单标题中某字符前插入一个符号;在运行程
  序时按<Alt>键和该字母键就可以打开该菜单;这个符号是
  A.＠                        B.＆
  C.＄                        D.下划线
6.在顺序文件中;当使用write#语句时;文件打开的方式可以是
  A. Append或Input              B. Output或Picture
  C. Output或Append            D. Output和Input
7.当运行程序时;系统执行启动窗体的某个事件过程是
  A. SetFocus                    B. Unload
  C. Click                      D. Load
8. Right“ABCDEFG”;3的执行结果是
  A. CDE                      B. DEF
  C. EFG                      D. ABC
9.要使窗体Forml的标题栏显示"Visual Basic语言”;下列语句正确的是
  A. Forml.caption="Visual Basic语言"
  B. Set Forml.caption="Visual Basic语言"
  C. Forml caption="Visual Basic语言"
  D. Forml.Name="Visual Basic语言"
10．设a=3;则执行x=IIFa>5;-1;0后;x的值是
  A. 5                          B. 3
  C. 0                          D.-1
11.如果X是一个正的实数;将千分位四舍五入;保留两位的表达式是
    A. 0. 01*Int X+0.005          B. 0. 01*Int 100* X+0.05
    C. 0. 01*Int100* X+0.005  D. 0. 01*Int X+0.05
12.整数除法的运算符是
    A. Mod                      B.＼
唐泽寿明    C. /                        D.％
13.多重窗体程序设计中;为了使窗体Forml从屏幕上消失但仍在内存中;所使用的方法或语句为
    A. Unload Form1              B. Close Forml
    C. Form 1.Hide              D. Form l.Close
14. Visual Basic中;运算符“＆”代表的运算是
    A.算术                    B.关系
    C.字符串连接              D.逻辑与
15.在窗体上画一个名称为Checkl的复选框;在程序运行的过程中;若选中复选框;则
    Checkl．Value的值是
    A. 3                        B. 2
    C. 1                        D. 0
16.以下事件中;不是鼠标事件的是
    A. Change                  B. Click
    C. MouseDown              D. MouseUp
17.定义货币类型数据应该用关键字
    A. Boolean                B. Currency
    C. Double                  D. Single
18.若使用键盘来访问菜单项“打开文件O”;应按的组合键是
    A Tab+O                  B. Shift+O
    C. Ctrl+O                  D. Alt+O
19.设在菜单编辑器里定义了一个菜单项;名为menul..为了在运行时隐藏该菜单项;应使用
  的语句是
    C .menul.Enabled=False        D. menul.Enabled=True
20.调试Visual Basic程序时;逐条语句执行的快捷键是
    A. F10                      B. F9
C. F8                      D. F7
二、多项选择题本题共5小题;每小题2分;共10分
下面每题给出五个答案;用A; B; C; D; E标出;其中有两个含两个以上是正确的;将你选择的结果填在答题纸对应题号的括号内..
  1.下面选项中;不能使控件得到焦点的操作是
      A.在程序运行期间;用鼠标单击对象  B.在程序运行期间;用快捷键选择对象
      C在程序运行期间;用Tab键        D.在程序运行期间;用Enter键
      E.在程序运行期间;用Esc键
  2. Visual Basic语言中;允许出现的数为
      A 3.47E-10        B 886         
      D. 34.75D+6      E. 12E3
  3.下面关于多重窗体程序设计描述正确的是
      A.在多重窗体程序中;只能有一个窗体是启动窗体
      B.在多重窗体程序中;系统默认第一个被装载内存的窗体成为启动窗体
      C.在多重窗体程序中包括多个窗体;每个窗体都要作为一个文件保存
      D.多重窗体程序的保存操作步骤按照先保存工程文件;再保存窗体文件
      E.在多重窗体程序中;允许为工程生成可执行文件
  4.组成结构化程序设计的结构是
    A顺序结构      B.等价结构    C.选择结构
    D.循环结构      E.转移结构
  5. Visual Basic的特点包括下面的
    A.不需编程      B.面向对象的程序设计    C.可视化程序设计
    D.事件驱动的程序设计  E.自动化程序设计
三、填空题本题共15小题;每小题2分;共30分
    请将正确答案填写在答题纸相应位置上;答在试卷上不能得分..
1. Visual Basic中;取出字符串中的一部分连续字符组成新的字符串的函数是        ..
2.设x=5; y=6;表达式x<y的值为        ..
美国亚马逊网站3.根据数据的存取方式和结构;文件可以分为顺序文件和        ..
4. Visual Basic中;将字符串转换成ASCII代码的函数是        ..
5.语句Print"25*40"输出的结果是        ..
6. Data控件是Visual Basic中用于访问数据库的标准控件. Data控件提供了        方法用于关闭一个数据库..
7.在Visual Basic中;工程文件的扩展名是        ..
8.假定建立了一个工程;该工程包括两个窗体;其名称分别为Form 1和Form2;启动窗体为Form 1;在Form 1上画一个命令按钮Command 1;程序运行后;要求当单击该命令按钮时;Form 1窗体消失;显示窗体Form2;请将程序补充完整..
  Private Sub Command l_Click
  Unload Form 1
  Form2．       
  End Sub
二级VB
9.下面程序计算2*4*6*…*16;请将程序补充完整..汤芳图片
  Private Sub Command 1_Click
  Dim t As Single; k As Integer
  k＝0: t＝1
  While k＜16
      k＝k＋2
道晖芝整容前后
  Wend
  Print t
  End Sub
10.执行下列程序段;输出结果是
    a=3
    b=5
    c=8
    Print a<b And b>c
11.设计一个显示时间的窗体;窗体有两个标签和一个计时器;Label1的标签为“时间”;另－个标签用于显示当前机器的时间..计时器的Interval属性为1000请将程序补充完整..
Private Sub timer1_timer
      Labe12.        =Time
End Sub
12.下面程序计算1+1+2＋1+2+3＋…＋1+2+3+4+……＋10..;请将程序补充完整..
  Private Sub Command1_Click
  Dim i As Integer; sum As Long
    For i＝1To10
      sum＝sum＋totali
    Next i