VB模拟试题一

模拟试题一

1．VB是一种面向对象的程序设计语言，（）不是面向对象系统所包含的三要素。 

Ａ.属性      Ｂ.变量      Ｃ.方法     Ｄ.事件 

2.不论何控件，共同具有的是(  )属性。

  A．Caption   B.Text     C. Name      D.ForeColor

3.程序代码如下：

Command1.Caption=”确定”，则Command1、Caption、“确定”分别代表（  ）  

A.属性、对象、值        Ｂ.对象、值、属性

C.对象、方法、属性　　   Ｄ.对象、属性、值

4.下面(  )是不合法的整型常数。

  A．278      B. &O278     C. &H278      D. 278％

5.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是(  )。

  A．x=y=z=1          B．x=1，y＝1，z＝1

C．x=1：y＝1：z＝1   D．xyz=1

6.赋值语句：a=123+Mid(“123456”，3，2)执行后，变量a中的值是(  )。

  A．”12334”   B．12334      C．157     D．123

7.数学关系3≤x<10表示成正确的VB表达式为（　　）
Ａ、3<=x<10      　　   Ｂ、3<=x AND x<10　

　Ｃ、x>=3 OR x<10    　　Ｄ、3<=x AND <10

8.产生[10，37]之间的随机整数的VB表达式（　）

Ａ.Int(Rnd(1)*27)+10      　　Ｂ.Int(Rnd(1)*28)+10　

　Ｃ.Int(Rnd(1)*27)+11      　　Ｄ.Int(Rnd(1)*28)+11

9.表达式16/4-2^5*8/4 MOD 5的值为（  ）。

  A.20        B.14         C.4            D.2

10.对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示图形，原因是没有对（  ）属性设置为1。

  A.MousePictrue   B.Style  

 C.DownPicture    D.DisabledPicture

11．下列对象中不能做为容器的控件是(   )。

  A．窗体          B．PictureBox控件 

 C．Image控件     D．Frame控件

12.下面程序段运行后，显示结果是(   )。

    Dim x

    If x Then Print x Else Print x+1

  A．0         B．1        C．－1      D．显示出错信息

13.循环语句For  i= -3.5 To 5.5 Step -0.5的循环次数是(   )。

  A．20        B．19       C．18       D．0

14.如下数组声明语句Dim a(3，-2 to 2，5) As Long，则数组a包含元素的个数是(   )。

  A．120       B．75       C．60        D．13

15．决定组合框样式的属性是(   )。

  A．List       B．Text     C．Style      D．Caption

16．滚动条的（　　）属性用于返回或设置滚动条的当前值。
Ａ.Ｖalue　　Ｂ.Max　　Ｃ.Min　　Ｄ.Data

17.下面子过程语句说明合法的是(   )。

  A．Function  f1%(f1%)             B．Function  f1(ByVal n%)

C．Sub f1(Byval  n%( ))           D．Sub f1(n%) As Integer

18.在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用(   )关键字的在过程中定义局部变量。

  A．Static       B．Public       C．Private       D．Dim

19.下列控件中没有Caption属性的是（   ）。

  A．框架       B．单选按钮       C．列表框    D．复选框

20. 以下不属于键盘事件的是（　　）

A.KeyDown　　B. KeyUp　　C. Unload　　D. KeyPress

21.下列关于菜单的说法，错误的是(   )。

A．每个菜单项都是一个控件，与其它控件一样也有自己的属性和事件

B．菜单项的快捷键不能任意设置

C．在程序运行时，如果菜单项的Enabled属性为False，则该菜单项编程灰色，不能被用户选择

D．除了Click事件之外，菜单项还能响应其它的事件，如DblClick

22.下列关于通用对话框的叙述中，错误的是(   )。

  A．通用对话框可以用来制作和显示“帮助”对话框

B．CommonDialog1.ShowFont显示“字体”对话框

C．在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回

D．在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回

23. 指令“Circle（1000，1000），500，，－6，－3”将绘制(   )。

  A．画圆    B．椭圆     C．扇形    D．圆弧

24．假如列表框（List1）有四个数据项，把数据项“数据库原理”添加到列表框的最后，应使用（   ）语句。

  A．List1.AddItem “数据库原理”，List1.ListCount

  B．List1.AddItem “数据库原理”，List1.ListCount-1

  C．List1.AddItem 3，“数据库原理”

 D．List1.AddItem “数据库原理”，3

25.VB提供了结构化程序设计的三种基本结构，三种基本结构是（    ）。

A．递归结构、选择结构、循环结构

B．选择结构、过程结构、顺序结构

C．过程结构、输入、输出结构、转向结构

D．选择结构、循环结构、顺序结构

26.在一个多窗体程序中，Form1是启动窗体，当程序运行后要想显示Form2窗体，正确的语句是(   )。

  A．Show  Form2       B．Form2.show       C．Load  Form2      D．Form2.Load

27．要从磁盘上读入一个文件名为“c: 1.txt”的顺序文件，下列（  ）正确。

  A.f=”c: 1.txt”                     B.f=”c: 1.txt”

     Open “f”For Input As #1             Open  f  For Input As #1

  C.Open ”c: 1.txt”For output As #1    D.Open  c: 1.txt  For input As #1

28．假定有如下事件过程：

  Private Sub Form_MouseDown(Button as Integer,Shift as Integer, X as Single,Y as Single)

        If Button=2 Then PopupMenu PopForm

  End Sub

  则以下描述中错误的是（   ）。
　A.该过程的功能是弹出一个菜单
　B.popForm是在菜单编辑器中定义的弹出式菜单的名称
　C.参数X、Y指明鼠标的当前位置
　D.Button＝2表示按下的是鼠标左键

29.Print #1,Str1$中的Print是(   ).

  A．在窗台上显示的方法       B．文件的写语句

C．子程序明                 D．以上均不是

30.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

 

 

 

 

　

 

 

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（   ）。

　　A. 北京　　   B. 上海　   　C. 天津　　   D. 重庆

 

二、填空题（每空2分，共20分）

1．ＶＢ是一种面向对象的可视化程序设计语言，采取了_[ 1]_的编程机制。

2．算术表达式|x+y|+3⁵  写成VB表达式的形式为[2 ]  。

3．使文本框可以获得焦点的方法是  [ 3 ]  。

4．表示x是5的倍数或是9的倍数的逻辑表达式为   [4]     。

5．Inputbox函数的返回值是[5]  类型，Msgbox函数的返回值是  [6] 类型。

7.在调用自定义函数时，参数的传递有[ 7 ] 和[ 8 ]  两种形式。

7．在默认情况下，如下数组声明语句中Dim s(4，4) As Integer，第二个数组元素的引用形式是   [9 ]   。

8．如果要每隔12s触发一个Timer事件，则Interval属性应设置为[ 10] 。

三、写出下列程序的正确运行结果（每题5分，共10分）

 1. Private Sub Command1_Click( )

   x=Int(Rnd)+3

   If x^2>8 Then  y=x^2+1

   If x^2=9 Then  y=x^2-2

   If x^2<8 Then  y=x^3

   Print “y=”;y

  End Sub

 

 2．Public Sub Swap(ByVal x As Integer, y As Integer)

       Dim t As Integer

       t=x: x=y: y=t

     End Sub

     Private Sub Command1_Click( )

       Dim a As Integer ,b As Integer

       a=30:b=20

       Swap a ,b

       Print “a=”; a ;”b=”; b

      End Sub

四、程序设计题（10分）

求1+2+3+……+100累加和（单击窗体执行程序）。