赣南师范学院VB程序设计考试A.docx

赣南师范学院VB程序设计考试A.docx

《赣南师范学院VB程序设计考试A.docx》由会员分享，可在线阅读，更多相关《赣南师范学院VB程序设计考试A.docx（15页珍藏版）》请在冰豆网上搜索。

赣南师范学院VB程序设计考试A

VB程序设计考试A

一、单选题（每题1分，共50题）

1.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ 未填 ）。

A.工程资源管理器窗口 

B.工具箱窗口 

C.代码窗口 

D.属性窗口    正确答案：

C

2.以下不属于Visualbasic的工作模式的是（ 未填 ）模式。

A.编译   

B.设计   

C.运行    

D.中断正确答案：

A

3.设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用（ 未填 ）属性。

A.Controlbox 

B.Clipcontrol 

C.BordeStyle 

D.AutoRedraw 正确答案：

D

4.函数Int（Rnd*6+1）的取值范围是（ 未填 ）。

A.从1到7共7个整数

B.从0到7共8个整数

C.从1到6共6个整数

D.从0到6共7个整数正确答案：

C

5.以下叙述中正确的是（ 未填 ）。

A.窗体的Name属性指定窗体的名称，用来标记一个窗体 

B.窗体的Name属性的值是显示在窗体标题栏中的文本 

C.可以在运行期间改变对象的Name属性的值 

D.对象的Name属性可以为空 正确答案：

A

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

PrivateSubCommand1_Click（）

c=1234

c1=Trim（Str（c））

ForI=1To4

Print　（）

Next

EndSub

程序运行后，单击命令按钮，要求在窗体上显示如下内容

1

12

123

1234

则在括号内应填入的内容为（ 未填 ）。

A.Right（c1,I）

B.Left（c1,I）

C.Mid（c1,I,1）

D.Mid（c1,I,I）正确答案：

B

7.VisualBasic布尔运算符Xor，Or，Eqv，And中，级别最高的运算符是（ 未填 ）。

A.Xor

B.Or

C.Eqv

D.And正确答案：

D

8.下面（ 未填 ）是合法的单精度型变量。

A.Kum!

B.sum%   

C.mytm$   

D.Km#正确答案：

A

9.在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：

PrivateSubCommand1_Click（）

a=Ucase$（Text1.Text）+Left$（Text2.Text，2）

Printa

EndSub

PrivateSubForm_Load（）

Text1.Text="aB"

Text2.Text="123456"

EndSub

程序运行后，单击命令按钮，输出结果为（ 未填 ）。

  错误  正确答案：

B

A.Ab12

B.AB12

C.AB56

D.Ab56

10.执行以下程序段后，变量C$的值为（ 未填 ）。

A$="VisualBasicPrograming"

B$="Quick"

C$=B$&Ucase（Mid$（A$，7，6））&Right$（A$，11）  错误  正确答案：

D

A.VisualBASICPrograming

B.QuickBasicPrograming

C.QUICKBasicPrograming

D.QuickBASICPrograming

11.表达式InStr（3,”EFABCDEFG”,”EF”）的值为（ 未填 ）。

  错误  正确答案：

B

A.1

　　B.7

　　C.2

　　D.“EF”

12.有如下事件过程:

PrivateSubCommand1_Click（）

b=10

DoUntilb=-1

a=InputBox（""输入a的值""）

a=Val（a）

b=InputBox（""输入b的值""）

b=Val（b）

a=a*b

Loop

Printa

EndSub

程序运行后，依次输入数值30，20，10，-1，输出结果为（ 未填 ）。

  错误  正确答案：

D

A.6000

B.-6000

C.200

D.-10

13.Print#1,STR$1中的Print是（ 未填 ）。

  错误  正确答案：

A

A.文件的写语句

B.在窗体上显示的方法

C.子程序名

D.以上均不是

14.VB表达式Format（CInt（"3.14"）,"00.00"）的值是（ 未填 ）  错误  正确答案：

A

A.03.00

B.03.14

C.3.14

D.3

15.执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是（ 未填 ）。

PrivateSubCommand1_Click（）

X=InputBox（"请输入x的值"）

y=InputBox（"请输入y的值"）

s=X

Ifx>yThens=y

s=s*s

Prints

EndSub  错误  正确答案：

B

A.4

B.16

C.20

D.25

16.文本框没有（）属性。

（ 未填 ）  错误  正确答案：

D

A.Name

B.Left

C.Font

D.Caption

17.以下Case语句中错误的是（ 未填 ）。

  错误  正确答案：

C

A.Case0To10

B.CaseIs>10

C.CaseIs>10AndIs<50

D.Case3,5,Is>10

18.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将（ 未填 ）。

  错误  正确答案：

D

A.发生DeActivate事件

B.发生LostFocus事件

C.发生DeActivate和LostFocus事件

D.DeActivate和LostFocus事件都不发生

19.下列语句错误的是（ 未填 ）。

  错误  正确答案：

B

A.ExitFor

B.ExitWhile

C.ExitDo

D.ExitSub

20.在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：

PrivateSubCommand1_Click（）

x=0

DoWhilex<50

x=（x+2）*（x+3）

n=n+1

Loop

Text1.Text=Str（n）

Text2.Text=Str（x）

EndSub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ 未填 ）。

  错误  正确答案：

B

A.10

B.272

C.350

D.4168

21.设置标签Label1的（ 未填 ）属性使它不可见。

  错误  正确答案：

D

A.Label1.Visible=0

B.Label1.Visible==1

C.Label1.Visible=True

D.Label1.Visible=False

22.Msgbox函数与Msgbox语句的区别是（ 未填 ）。

   错误  正确答案：

D

A.执行Msgbox函数会自动显示一个对话框，而执行Msgbox语句不会显示对话框 

B.执行Msgbox函数显示的对话框是模式的，而执行Msgbox语句显示的对话框是非模式的

C.Msgbox函数的参数与Msgbox语句的参数不同（个数不同） 

D.Msgbox函数会返回函数值，而Msgbox语句没有返回值 

23.下列程序段的执行结果为（ 未填 ）

a=0：

b=1

DO

a=a+b

b=b+1

LoopWhilea<10

Printa；b  错误  正确答案：

A

A.105

B.ab

C.01

D.1030

24.为程序的空白行选择适当的语句，使程序段完成相应计算。

程序段的功能是：

当x>10时，y=2x；当0≤x≤10时，y=3x；当x<0时，输出“x为负值”的信息。

PrivgeSubForm_Click（）

X=InputBox（”请输入x的值”）

Ifx>10Then

Y=X*X

（）

Y=X*x*X

Else

Print"x为负值"

EndIf

Print"y"+Format（y）

EndSub（ 未填 ）  错误  正确答案：

C

A.Else0<=xAndx<=10Then

B.ElseIf0<=xAndx<=10

C.ElseIf0<=xAndx<=10Then

D.ElseIf0<=xAndx<=10Then

25.设有数组定义：

dima（5To15）和赋值语句k=4。

下列数组引用错误的是（ 未填 ）。

  错误  正确答案：

C

A.a（5．6） 

B.a（10） 

C.a（k*k） 

D.a（Sqr（k^3）） 

26.有VB语句Dima（10）asString以下关于该语句，叙述错误的是（ 未填 ）。

  错误  正确答案：

B

A.每个数组元素的类型都为字符串型

B.定义数组有10个元素

C.数组的上界为10

D.数组的下界为0

27.有如下程序:

　　Constn=-5:

ConstM=6

　　Dima（nToM）

　　Fori=LBound（a,1）ToUBound（a,1）

　　a（i）=i

　　Nexti

　　Printa（LBound（a,1）;a（UBound（a,1））

运行后输出结果为（ 未填 ）  错误  正确答案：

C

A.00

B.-50

C.-56

D.06

28.要分配存放如下方阵的数据，可使用（ 未填 ）数组声明语句来实现（不能浪费空间）。

  错误  正确答案：

C

A.Dimx（9）AsSingle

B.Dimx（3,3）AsSingle

C.Dimx（-1to1,-5to-3）AsSingle

D.Dimx（-3to-1,5to7）AsInteger

29.以下是窗体的Click事件过程Form_Click的程序代码：

OptionBase1

PrivateSubForm_Click（）

DimaAsVariant

DimIAsInteger,mAsInteger,indexAsInteger

a=Array（345,-54,200,356,65,23）

m=a（LBound（a））

Index=Lbound（a）

ForI=Lbound（a）ToUbound（a）

Ifa（i）>mThen

m=a（i）

Index=I

Endif

NextI

Printm;index

EndSub

在程序运行过程中，单击窗体时，程序的输出结果为（ 未填 ）。

  错误  正确答案：

B

A.–242

B.3564

C.3451

D.3563

30.下列叙述中，正确的是（ 未填 ）。

  错误  正确答案：

C

A.控件数组的每一个成员的Caption属性值都必须相同 

B.控件数组的每一个成员的Index属性值都必须相同 

C.控件数组的每一个成员都执行同样的事件过程 

D.对已经建立的多个类型相同的控件，这些控件不能组成控件数组

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

  错误  正确答案：

D

A.Dim

B.Private

C.Public

D.Static

32.设有如下过程：

Subff（x，y，z）

x=y+z

EndSub

以下所有参数的虚实结合都是传址方式的调用语句是（ 未填 ）。

  错误  正确答案：

B

A.Callff（5，7，z）

B.Callff（x，y，z）

C.Callff（3+x，5+y，z）

D.Callff（x+y，x-y，z）

33.在VB中，过程共有三种，它们是（ 未填 ）。

  错误  正确答案：

A

A.事件过程，子过程和函数过程

B.Sub过程，函数过程和属性过程

C.事件过程，函数过程和通用过程

D.Sub过程，函数过程和通用过程

34.Sub过程与Function过程最根本的区别是（ 未填 ）。

  错误  正确答案：

D

A．Sub过程可以直接使用过程名调用，而Function过程不可以

B．Function过程可以有参数，而Sub过程不可以

C．两种过程参数传递方式不同

D．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值

35.声明一个变量为全局变量应该用（ 未填 ）关键字。

  错误  正确答案：

D

A.Dim 

B.Private 

C.Static

D.Public

36.阅读下列代码：

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=2Then

PopupMenuMenu1

EndIf

EndSub

以下叙述中正确的是（ 未填 ）。

  错误  正确答案：

C

A.单击鼠标左键时弹出菜单

B.单击鼠标中键时弹出菜单

C.单击鼠标右键时弹出菜单

D.参数X、Y设置鼠标当前位置的坐标

37.设置列表框选中的文本用（ 未填 ）属性  错误  正确答案：

D

A.selected

B.caption

C.text

D.list

38.表示滚动条控件取值范围最大值的属性是（ 未填 ）。

  错误  正确答案：

A

A.Max 

B.LargeChange  

C.Value  

D.Max-Min

39.在窗体中添加一个水平滚动条，单击滚动条箭头时每次移动5个单位，正确的语句（ 未填 ）。

  错误  正确答案：

D

A.Hscroll1.Max=5

B．Hscroll1.Min=5

C．Hscroll1.LargeChange=5

D．Hscroll1.SmallChange=5

40..复选框的Value属性为1时，表示该复选框（ 未填 ）。

  错误  正确答案：

B

A.未被选中 

B.被选中

C.有灰色的勾

D.操作错误

41.为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（ 未填 ）。

  错误  正确答案：

D

A.ControlBox

B.MinButton

C.Enabled

D.MaxButton

42.下列关于图片框的语句中错误的是（ 未填 ）。

  错误  正确答案：

D

A.Pieturel.Picture=Picture2.Picture

B.Picturel.Picture=LoadPicture（"C:

\vb60\Arw04Up.ico"）

C.Picturel.PrintTab（20）;CurrentX,CurrentY

D.Picturel.Stretch=True

43.将数据项“China”添加到列表框List1中成为第二项应使用（ 未填 ）语句。

  错误  正确答案：

A

A.List1.AddItem"China",1

B.List1.AddItem"China",2

C.List1.AddItem1,"China"

D.List1.AddItem2,"China"

44.有关多文档界面（Multipledocument．nbspInterface）的不正确描述是（ 未填 ）。

  错误  正确答案：

D

A.多文档界面（MDI）是指在一个父窗口下面可以同时打开多个子窗口

B.子窗口归属于父窗口

C.如果父窗口关闭，则所有子窗口全部关闭

D.如果所有子窗口全部关闭，则父窗口关闭

45.在用菜单编辑器设计菜单时，必须输入的项有（ 未填 ）。

  错误  正确答案：

D

A.标题

B.快捷键

C.索引

D.名称

46.数据库管理系统DBMS中用来定义模式、内模式和外模式的语言为（ 未填 ）  错误  正确答案：

C

A.C

B.Basic

C.DDL

D.DML

47.model数据库是（ 未填 ）。

  错误  正确答案：

B

A.临时数据库

B．新建数据库的模板数据库

C.用户数据库

D．备份数据库

48.下列Data1_Validate事件的功能为（ 未填 ）。

PrivateSubData1_Validate（ActionAsInteger,SaveAsInteger）

IfSavaAndlen（Trim（TxtBook））=0ThenAction=0

EndSub

  错误  正确答案：

B

A.如果文本框TxtBook被置空，则确认写入数据库。

B.如果文本框TetBook被置空，则取消对数据控件的操作。

C.如果TxtBook内的数据发生变化，则关闭数据库。

D.如果TxtBook内的数据发生变化，则加入新记录。

49.在SQL的UPDATE语句中，要修改某列的值，必须使用关键字（ 未填 ）。

  错误  正确答案：

A

A.Set

B.Select

C.DISTINCT

D.Where

50.如果程序在打开软盘上的指定文件时产生“文件未找到”的错误，则引起该错误的原因是（ 未填 ）。

  错误  正确答案：

B

A.文件类型不正确

B.文件不存在

C.文件名无效或路径不存在

D.驱动器未准备好