单选题汇总VB题

概论

I从功能上讲，VisualBasic6.0有3种版本，下列不属于这3种版本的是_标准版。

2与传统的程序设计语言相比，VisualBasic最突出的特点是—小:件驱动编程机制。

A结构化程序设计

B程序开发环境

C事件驱动编程机制

D程序调试技术

参考答案

C

3VisualBasic6.0集成环境的主窗口中不包括―状态右。

4用标准工具栏中的工具按钮不能执行的操作是一打印源程方•

A添加工程

B打印源程序

C运行程序

D打开工程

5以下不属于键盘事件的是（Unload）

AKeyDown

BKeyUp

CUnload

DKeyPress

参考答案

C

6关于VisualBasic”方法"的概念错误的是（方法是对事件的响应）

A方法是对象的一部分

B方法是预先定义好的操作

C方法是对事件的响应

D方法用于完成某些特定的功能

7下列说法有错误的是（设置Visible属性同设置Enabled属性的功能是相同的，都是使控件

处于失效状态）

A默认情况下，属性Visible的值为False

B如果设置控件的Visible属性为False,则运行时控件会隐藏

CVisible的值可设为True或者False

D设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态

8下列各控件不包含滚动条的控件是（Label）

AListBox

BComboBox

CTextBox

DLabel

9刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（通用对话框）

A单选按钮

B图片框

C通用对话框

D文本框

7。在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（代码窗口）

A工程资源管理器窗口

B工具箱窗口

C代码窗口

D属性窗口

〃以下叙述中正确的是（窗体的Name属性指定窗体的名称，用来标识一个窗体）

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

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

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

D对象的Name属性值可以为空

12以下不能在"工程资源管理器”窗口中列出的文件类型是（.fnn）

A-bas

B.res

C.fnn

D.ocx

13如果要改变窗体的标题，则需要设置的属性是（Caption）

ACaption

BName

CBackColor

DBorderStyle

在VisualBasic中，窗体文件的扩展名为（FRM）

AEXE

BBAS

CFRM

DVBP

75以下叙述中正确的是（窗体的Name属性指定窗体的名称，用来标识一个窗体）

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

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

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

D对象的Name属性值可以为空

16下列不属于对象的基本特征的是（函数）

A属性

B方法

C事件

D函数

17在VisualBasic中，称对象的数据为（属性）

A属性

B方法

C事件

D封装

18以下能在窗体Forml的标题栏中显示"VisualBasic窗体"的语句是

（Form1.Caption="VisualBasic窗体”）

AForml.Name="VisualBasic窗体”

BForml.Title="VisualBasic窗体"

CForml.Caption="VisualBasic窗体"

DForml.Text="VisualBasic窗体"

19在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的下面哪一个属性设

置为True（Enabled）

AValue

BDefault

CCancel

DEnabled

20以下叙述中错误的是（VisualBasic应用程序只能以解释方式执行）

A打开一个工程文件时，系统自动装入与该工程有关的窗体?标准模块等文件

B保存VisualBasic程序时，应分别保存窗体文件及工程文件

CVisualBasic应用程序只能以解释方式执行

D事件可以由用户引发，也可以由系统引发

21系统符号常量的定义可以通过（对象浏览器）获得.

A对象浏览器

B代码窗口

C属性窗口

D工具箱

参考答案

A

22下列方法中不能退出VisualBasic的是（按F10键，然后按F键，再按X键）

A按Alt+Q组合键

B按下Alt+F组合键，然后按Esc键

C打开"文件”菜单，执行"退出”命令

D按F10键，然后按F键，再按X键

参考答案

D

23窗体文件的扩展名是（.frm）

A.bas

B,cls

C.frm

D.res

参考答案

C

24下列可以启动VisualBasic的方法是（A）打开峨的电脑"，找到存放VisualBasic所在系

统文件的硬盘及文件夹，双击"VB6.exe"图标和C）利用"开始"菜单中的"程序"命令可启动

VisualBasic）

A打开"我的电脑"，找到存放VisualBasic所在系统文件的硬盘及文件夹，双击"VB6.exe”图

标

B在DOS窗口中，键入VisualBasic的路径，执行VisualBasic可执行文件

C利用"开始"菜单中的"程序"命令可启动VisualBasic

DA）和C）

参考答案

D

25VisualBasic集成的主窗口中不包括（属性窗口）

A属性窗口

B标题栏

C菜单栏

D工具栏

参考答案

A

26下列说法错误的是（在调用方法时，对象名是不可缺少的）

A方法是对象的一部分

B在调用方法时，对象名是不可缺少的

C方法是一种特殊的过程和函数

D方法的调用格式和对象属性的使用格式相同

参考答案

B

27关于VisualBasic”方法”的概念错误的是（方法是对事件的响应）

A方法是对象的一部分

B方法是预先定义好的操作

C方法是对事件的响应

D方法用于完成某些特定的功能

参考答案

C

28下列说法错误的是（VisualBasic中的一个工程只包含一个窗体）

A窗体文件的扩展名为.frm

B一个窗体对应一个窗体文件

CVisualBasic中的一个工程只包含一个窗体

DVisualBasic中一个工程最多可以包含255个窗体

参考答案

C

29任何控件都有的属性是（Name）

ABackColor

BCaption

CName

DBorderStyle

参考答案

c

30下列说法错误的是（在调用方法时:对象名是不可缺少的）

A方法是对象的一部分

B在调用方法时，对象名是不可缺少的

C方法是一种特殊的过程和函数

D方法的调用格式和对象属性的使用格式相同

参考答案

B

31以下能在窗体Forml的标题栏中显示"VisualBasic窗体"的语句是

（Form1.Caption="VisualBasic窗体"）

AForml.Name="VisualBasic窗体”

BForm1.Title=MVisualBasic窗体”

CForml.C叩tion二"VisualBasic窗体”

DForm1.Text=HVisualBasic窗体”

参考答案

C

32下列不能打开属性窗口的操作是(按Ctrl+T)

A执行“视图“菜单中的“属性窗口”命令

B按F4键

C按Ctrl+T

D单击工具栏上的“属性窗口”按钮

参考答案

C

33下列可以打开立即窗口的操作是(Ctrl+G)

ACtrl+D

BCtrl+E

CCtrl+F

DCtrl+G

参考答案

D

34以卜不属于VisualBasic系统的文件类型是(.bat)

A.frm

B.bat

C.bas

D.vbp

参考答案

B

35为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置

为True,这个属性是(Default)

ALoad

BClick

CUnload

DGotFocus

参考答案

A

36当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是(Load)

37无论何控件，都具有一个共同属性。这个属性是(Name)

A执行“视图”菜单中的”属性窗口“命令

B按F4键

C按Ctrl+T

D单击工具栏上的“属性窗口"按钮

参考答案

C

38以下能在窗体Forml的标题栏中显示"VisualBasic窗体"的语句是

Form1.Caption="VisualBasic窗体”

ACtrl+D

BCtrl+E

CCtrl+F

DCtrl+G

参考答案

D

39以下不属于VisualBasic系统的文件类型是

A.frm

B.bat

C.bas

D.vbp

参考答案

B

设菜单中有一个菜单项为“Open”。若要为该菜单命令设计访问键，即按下Alt及字母O时，

能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是

（把Caption属性设置为&Open）

40以下叙述中错误的是（对象事件的名称可以由编程者指定）

40当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是

ALoad

BClick

CUnload

DGotFocus

参考答案

A

41能够改变窗体边框线类型的属性是_BorderStyle_

42VisualBasic是一种面向对象的可视化程序设计语言,采取了一事件驱动的编程机制。

43在VisualBasic中最基本的对象是一窗体,它是应用程序的基石，是其他控件的容

器。

44在VB中，通过改变表框（）属性的值，可以为列表框添加项目。

AList

B名称

CCaption

DText 

参考答案

A

45在VB中，执行“A=5：A=A+5”语句后，变量A的值为（）

AO

B5

C10

D不一定

参考答案

C

46若要退出For循环，可使用的语句为()

AExit

BExitDo

CTime

DExitFor

参考答案

D

47改变控件在窗体中的上下位置应修改控件的( )属性。

ATop

BLeft

CWidth

DHeight

参考答案

A

48以下关于MsgBox的叙述中，错误的是

AMsgBox函数返回一个整数

B通过MsgBox函数可以设置信息框中图标和按钮的类型

CMsgBox语句没有返回值

D MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量

参考答案

D

49假定以下循环结构：DoUntil条件

循环体

Loop

则正确的描述是

A如果“条件”是一个为0的常数，则一次循环体也不执行

B如果“条件”是一个为0的常数，则至少执行一次循环体

C如果“条件”是一个不为0的常数，则至少执行一次循环体

D不论“条件”是否为真，至少要执行一次循环体

参考答案

B

50假定窗体上有一个标签，名为LABEL1,为了使该标签透明并且没有边框，则正确

的属性设置为

ALABEL1.BACKSTYLE=O

LABEL1.BORDERSTYLE=0

BLABELl.BACKSTYLE=l

LABEL1.BORDERSTYLE=1

CLABEL1.BACKSTYLE=TRUE

LABEL1.BORDERSTYLE=TRUE

DLABEL1.BACKSTYLE=FALSE

LABEL1.BORDERSTYLE=FALSE

参考答案

A

51变量未赋值时，数值型变量的值为

A0

B空

C1

D无任何值

参考答案

A

52任何控件都具有的属性是

ATEXT

BCAPTION

CNAME

DFORECOLOR

参考答案

C

53耍是一个文本框可以显示多行文本，应设置为True的属性为：

AEnabled

BMultiLine

CMaxLength

DWidth

参考答案

B

54在设计阶段，当双击窗体上的某个控件时，所打开的窗口是()

A工程资源管理器 

B工具箱窗口

C代码窗口

D属性窗口

参考答案

C

55决定窗体标题条显示内容的属性是()

AText 

BName

CCaption

DBackStyle

参考答案

c

56以下叙述中错误的是

A在KeyPress事件过程中不能识别键盘的按下与释放

B在KeyPress事件过程中不能识别回车键

C在KeyDown和KeyUp事件过程中，将键盘输入的A和a视作相同的字母

D在KeyDown和KeyUp事件过程中，从大键盘上输入的1和从右侧小键盘上输入的1被视

作不同的字符

参考答案

B

57下列中的哪个符号不能作为VB中的变量名()

AABCDE

BP0000

C89TEF

Dxyz

参考答案

C

58以下能够触发文本框Change事件的操作是()

A文本框失去焦点

B文本框获得焦点

C设置文本框的焦点

D改变文本框的内容

参考答案

D

59执行下面的语句后，所产生的信息框的标题是()a=MsgBox(“AAAA”,“BBBB”,5)vbr>

ABBBB

B空

CAAAA

D出错，不能产生消息框

参考答案

A

60“x是小于100的非负数”，用VB表达式表示正确的是()

A0=<x<=100

B0=<x<100

C0=<xAndx<100

D0<xOrx<100

参考答案

c

61

假定有以下程序段：Fori=lTo3Forj=5To1step-IPrinti*jNextjNexti

则语句的执行次数是()

A15

B16

C17

D18

参考答案

A

62以下程序段的输出结果是()

x=l

y=4

DoUntily>4

x=x*y

y=y+l

Loop

Printx

A1

B4

C8

D20

参考答案

B

63a=6,则执行x=nf(a>5,-l,0)后,x的值为()

A5

B6

CO

D-l

参考答案

D

64用下面的语句所定义的数组的元素的个数是()Dimarr(3To5,-2To2)

A20

B12

C15

D24

参考答案

C

65在设计菜单时，为了创建分隔线，要在()中输入连字符-

A名称栏

B标题栏

C索引栏

D显示区

参考答案

B

66以下叙述正确的是()

A用属性窗口只能设置窗体的属性

B用属性窗口只能设置控件的属性

C用属性窗口能设置窗体和控件的属性

D用属性窗口只能设置界面的属性

参考答案

C

67若要使标签的大小自动适应所显示的文本，可通过设置()属性的值来实现

AAutoSize

BAlignment

CEnabled

DVisble

参考答案

A

68下列哪一个属性用于设置或返回文本框中的文本。

ACaption

BText

C名称

DTag

参考答案

B

69()属性可以使命令按钮对用户产生的命令无效。

Adefault

Bcaption

Cenabled

Dcancel

参考答案

C

70以下哪种对象没有Caption属性：

AForm

BTextBox

CCommandButton

DLabel<br>

参考答案

B

71当按钮的()属性设置为False时，该按钮为不可见：

AEnable

BVisible

CDefault

DCancel

参考答案

B

VB语言基础

1.用于从字符串左边截取字符的函数是()Left

2.可获得当前系统日期的函数是()Date

3.下列符号中哪个是VB程序中合法的变量名()ab7

4.X是小于100的非负数，用VB表达式表达正确的是()0<=XandX<100

5.、执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123,在列表框Listl选中1

个列表项(数据为456),使有的值使123456的语句是y=x$+Listl.List(0)

6.下面有关注释语句的格式，错误的是

A.Rem注释内容B.'注释内容C.a=3:b=2'对a、b赋值

D.PrivateSubCommandl_MouseDown(buttonAsInteger,shiftAsInteger

Rem鼠标按下事件的命令调用过程XAsSingle,YAsSingle)

7.下列可以打开立即窗口的操作是_Ctrl+G。

8.表达式4+5\6*7/8Mod9的值是—5。

9.以下语句的输出结果是—032,548.50。

PrintFormat$(32548.5,"000,000.00")

10.执行以下程序段后，变量c$的值为(QuickBASICPrograming)

a$="VisualBasicPrograming"

b$="Quick"

c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,11)

11.在窗体上•个文本框，其名称为Textl,然后编写如下事件过程：

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

DimstrAsString,nAsInteger

str=UCase(Chr(KeyAscii))

n=Len(str)

Textl=String(n,str)

EndSub

程序运行后，如果在键盘上输入单字母"K",则在文本框Textl中显示的内容为(KK)

12.设有如下变量声明DimTeslDateAsDale为变量TestDate正确赋值的表达方式是

TextDate=#l/l/2002#

13.设有如下声明：

DimXAsInteger如果Sgn(X)的值为-1,则X的值是小于0的数

14.设a=3,b=5,则以下表达式值为真的是(a>b)Or(b>0)

15.设2="VisualBasic",下面使6=生2加”的语句是b=Left(a,8,5)

16.函数String(n,"str")的功能是返回由n个字符组成的字符串

17.设a=10,b=5,c=l,执行语句Prima>b>c后，窗体上显示的是False

18.系统符号常量的定义可以通过(对象浏览器)获得.

©.Integer类型的数据由(2)字节组成

20.Long类型的数据由(4)字节组成.

21.已知X<Y,A>B,正确表示它们之间关系的式子是(Sgn(Y-X)-Sgn(A-B)=-2)

22.下面程序运行后，窗体(Forml)中输出的结果是TrueTrue

PrivateSubForm_Load()

Forml.AutoRedraw=True

X=3:y=5

Printx=3;y=5

23.下面程序执行的结果是579

PrivateSubCommand1_Click()

A=,,123,':b=,,456u

C=Val(a)+Val(b)

Printc

EndSub

24.在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺

序为②①③

25.运算符"'”两边的操作数若类型不同，则先(取整为Integer类型)再运算

26似F合法的VisualBasic标识符是ForLoop

27.设有如下变量声明

DimTestDateAsDate

为变量TestDate正确赋值的表达方式是TextDate=#l/l/2002#

28.下列哪组语句可以将变量A、B值互换A=A+B:B=A-B:A=A-B

29.要声明一个长度为256个字符的定长字符串变量str,以下语句正确的是

DimstrasString*256

30.函数Left("Hello",2)的值为He

31.设有如下变量声明

DimTestDateAsDate

为变量TestDate正确赋值的表达方式是TextDate=#l/l/2002#

32.能正确表示条件"整型变量x值是大于等于-5并且小于等于5”的逻辑表达式

-5<=xandx<=5

.33.能够返回删除字符串前导和尾随空格符后的字符串，用函数Trim

34.表达式4+5\6*7/8Mod9的值是？，表达式5Mod3+3\5*2的值是5,2

35.设a=2,b=4,c=6,下列表达式的值为真的是a>bEqvc<a

36.设S="中华人民共和国”,表达式Left(S,l)+Right(S,l)+Mid(S,3,2)的值为

“中国人民”

37.获得系统日期的函数是date$

38.VB表达式Sqr(a+b『3*2中优先进行运算的是(+)

39.表达式2*4人2-2*6/3+3\2的值是(29)

40.下列叙述不正确的是()

A注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译

B注释语句可以放在代码中的任何位置

C注释语句不能放在续行符的后面

D代码中加入注释语句的目的是提高程序的可读性

4LRnd函数不可能产生(1)值。

42.下面表达式中，(Exp(-3.5))的运算结果与其他三个不同。

43.数学式子sin30°写成VB表达式是：Sin(30*3.14/180)

44.表达式5八2Mod252-2的值是(1)

45.函数UCase(Mid("visualbasic",8,8))的值为(BASIC)

46.函数InStr("VB程序设计教程"，"程序")的值为(3)

47.表达式Int(4*Rnd+l)*(Int(4*Rnd-l))值的范围是([-4,8])

48.在以下四个逻辑表达式中，其逻辑值为“真”的是(Not(l>2))

49.表达式"Turbo"+"c">"True"+"Basic,z的值是(-1)

50.下面程序运行后，m的值是(9)

a=12.3

b=-123

m=Len(Str(a)+Str(b))

51.任何控件都有的属性是Name

52.关于货币型数据的说明，正确的是货币型数据是小数点位置固定的实型数

53.如果一个变量未经定义就直接使用，则该变量的类型为Variant

54.如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性？

Enabled

55.下列语句的输出结果为(005,689.360)

PrintFormat$(5689.36,”000,000.000”)

56.下面有关注释语句的格式，错误的是

A.Rem注释内容B.'注释内容C.a=3:b=2'对a、b赋值D.PrivateSub

Commandl_MouseDown(buttonAsInteger,shiftAsInteger，—Rem鼠标按下事件的命令

调用过程XAsSingle,YAsSingle)

57.通常情况下，垂直滚动条的值是由上往下递增

58.表达式5Mod3+3\5*2的值是2

59.设x=4,y=8,z=7,以下表达式的值是(False)

x<yAnd(Noty>z)Orz<x

60.设a=5,b=4,c=3,d=2,下列表达式的值是(True)

3>2*bOra=cAndbocOrc>d

61.设a="MicrosoftVisualBasic”则以下使变量b的值为“VisualBasic”的语句是

b=Mid(a,10)

62.执行如下两条语句，窗体上显示的是($0,009.86)

a=9.8596

PrintFormat(a；'$00,00.00u)

63.执行以下程序段

a$="abbacddcbaM

Fori=6To2Step-2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(X&Y&z)

Nexti

Printz

输出结果为BBABBA

63.可以同时删除字符串前导和尾部空白的函数是Trim

64.表达式4+5\6*7/8Mod9的值是(5)

65.执行以下程序段后，变量c$的值为(QuickBASICPrograming)

a$="VisualBasicPrograming"

b$=nQuickn

c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,ll)

66.卜面的变量名合法的是k_name

67.以下合法的VisualBasic标识符是ForLoop

68.设x=4,y=8,z=7,以下表达式的值是(false)

x<yAnd(Noty>z)Orz<x

69.执行以下程序段

a$="abbacddcba"

Fori=6To2Step-2

X=Mid(a,i,i)

Y=Lel't(a,i)

z=Right(a,i)

z=UCase(X&Y&z)

Nexti

Printz

输出结果为BBABBA

70.设a=5,b=4,c=3,d=2,下列表达式的值是(True)

3>2*bOra=cAndbocOrc>d

71.^a="MicrosoftVisualBasic",则以下使变量b的值为"VisualBasic”的语句是

b=Mid(a,10)

72.表达式Str(Len("123"))+Str(77.7)的值为(U3U77.7_)_,

注意：“U”表示空格

73.Abs(-8)+Len("ABCD")的值是」2»

74.如果A为整数，且IAI>=100,则打印“OK”，否则打印“Error”，表示这个条件语句的单

行语句是__IfFix(A)=AAndABS(A)>=100ThenPrint"Ok"ElsePrint"Error"_»

75.如果设计时在属性窗口将命令按钮的—Visible—属性设置为False,则运行时按钮从窗体

上消失。

76.如果X是一个正实数，将百分位四舍五入，保留一位小数的表达方式是

_0.1*Int(10*(X+0.05))_»

77.以下不合法的常量是10八2一。

78.表达式Int(8*Sqr(36(*l0A(-2)*10+0.5)/10的值是_5一。

79.如果x是一个正实数，对x的第3位小数四舍五入的表达式是」).01*Int(100*(x+0.005))—。

80.下列事件过程实现从键盘输入任意一个实数，用Print方法在窗体上显示其平方和平方根,

要求每个数

保留三位小数，数据之间有间隔。

PrivateSubForm_Chck()

DimaAsSingle

a=Abs(Val(InputBox("请输入一个实数”)))

PrintFormat(a*a,00.000");—Spc(4)_;Format(Sqr(a),,,0.000,')

EndSub

81.函数Int(Rnd(0)*10)是哪个范围内的整数［0,10).

82.语句print5*5\5/5输出结果是(25)

83.决定窗体标题条显示内容的属性是(caption)

84.下列可作为VB的变量名的是(Alpha)

85.设a=2,b=3,c=4,d=5,下列表达式的值是(false)

a>bandc<=dor2*a>c

86.下列叙述中不正确的是—

A变量名的第一个字符必须是字母

B变量名的长度不超过255个字符

C变量名可以包含小数点或者内嵌的类型声明字符

D变量名不能使用关键字

87.变量未赋值时，数值型变量的值为

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

PrivateSubCommand1_Click()

a=12345

PrintFormat$(a,u000.00")

EndSub

程序运行后，单击命令按钮，窗体上显示的是12345.00

89似下程序段的输出结果是(True)

a=sqr(3)

b=sqr(2)

c=a>b

printc

90.表达式(7\3+l)*3的值是_9-

91.表达式5Mod3+3\5*2的值是2

92.设x=4,y=8,z=7,以下表达式的值是(False)

x<yAnd(Noty>z)Orz<x

选择结构程序

1.计时器控件的(Interval)属性用于设置Timer事件发生的时间间隔。

2.运行下列程序段后，显示的结果为(9)

Jl=4

J2=9

IfJ1<J2ThenPrintJ2ElsePrintJI

3.下列语句正确的是IfAoBThenPrint"A不等于B”

4.下列程序段执行结果为（・33）

x=5

y=-6

IfNotx>0Thenx=y-3Elsey=x+3

Printx-y;y-x

5.设a=6,则执行x=IIf（a>5,-l,0）后,x的值为（）

6•假设有以下程序段：

For1=1to3

Forj=5to1Step-1

PrintI*j

Nextj

NextI

则语句PrintI*j的执行次数I、j的值分别是（1540）

7.在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为TxtTime：一

个计时器控件，名称为Timed的时间。程序为：

PrivateSubTimer1_（）

TxtTime.text=Time

EndSub

在下划线上应填入的内容是Timer

8.为了暂时关闭计时器，应把该计时器的某个属性设置为False,这个属性是Enabled

9.下列语句正确的是（IfXV>YThenPrint”X不等于Y”）

10.计算分段函数：

0x<0

y=10<=x<l

2I<=x<2

3x>=2

下面程序段中正确的是（selectcasex

CaseIs<0

Y=0

CaseIs<l

Y=1

CaseIs<2

Y=2

Caseelse

Y=3

Endselect）

11.

下列关于SelectCaseIs的叙述中，错误的是

ACase10To100表示判断Is是否介于10与100之间

BCase”abc”,“ABC”表示判断Is是否和，be“、"ABC“两个字符串中的一个相同

CCase"X”表示判断Is是否为大写字母X

DCase-7,0,100表示判断Is是否等于字符串0,100”

12.VB算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余

13.如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于1000

14.能够改变复选框中背景颜色的属性是Backcolor

15.下列语句正确的是（IfXV〉YThenPrint"X不等于Y”）

16.在VB语言中，6个关系运算符在运算过程中优先级从高到低的顺序是（不分先后顺序）

17.下列赋值语句中，（）是错误的。

Ax=x+lBx=x+yCx+y=xDx=4>6

18.表达式1.5+32>2Or7Mod3<4AndNot1的运算结果是（-1）

19.如果将文本框的MaxLength属性设置为0,则文本框中的字符不能超过32K

20.设在窗体上有个文本框，然后编写如下的事件过程：

PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

ConstAlt=4

ConstKey_F2=&H71

altdown%=（ShiftAndAlt）>0

f2down%=（KeyCode=Key_F2）

Ifaltdown%Andf2down%Then

Textl.Text="BBBBB"

EndIf

EndSub

上述程序运行后，如果按[Shift+F2],则在文本框中显示得是文本框平均内容无变化

21似下程序段运行时从键盘上输入字符则输出结果为（-2）

op$=InputBox（nop="）

Ifop$=M+"Thena=a+2

Ifop$=n-uThena=a-2

Printa

22.下列程序段的执行结果为（I=4）

a=75

Ifa>60Then1=1

Ifa>70Then1=2

Ifa>80Then1=3

Ifa<90Then1=4

PrintHI=U;I

23.下面程序段执行结果为（Pass）

x=Int（Rnd（）+3）

SelectCasex

Case5

Print"excellent"

Case4

Print"good',

Case3

Print"pass"

CaseElse

PrintnfailM

EndSelect

24.F列程序段的执行结果为（

a=l

b=0

SelectCasea

Case1

SelectCaseb

Case0

Print”**0**”

Case1

Print”**1*

EndSelect

Case2

Print*2*

EndSelect

25.下面程序段执行结果为(Good)

x=Int(Rnd()+4)

SelectCasex

Case5

Print"excellent*'

Case4

Print"good'1

Case3

PrintMpassn

CaseElse

Print•Tail',

EndSelect

26.运行下列程序段后，显示的结果为(32)

Jl=23

J2=32

IfJ1<J2ThenPrintJ2ElsePrintJ1

27.下列语句正确的是IfAoBThenPrint不等于B”

28.下面语句正确的是Ifxv3yAndx>yTheny=xA3

29.计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是Ifx>=yThenz=x:z=y

30.下列程序段执行结果为(-33)

x=5

y=-6

IfNotx>0Thenx=y-3Elsey=x+3

Printx-y;y-x

31.以下程序段运行时从键盘上输入字符则输出结果为(・2)

op$=InputBox(”op=")

Ifop$=n+uThena=a+2

Ifop$=M-uThena=a-2

Printa

32.在窗体(名称为Forml)上画一个名称为Textl的文本框和一个名称为Commandl的命令按

钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮

的标题设置为"计算机等级考试"。以下能实现上述操作的事件过程是：

PrivateSubTextl_Change()

Commandl.Caption="计算机等级考试”

EndSub

33.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Textl和Text2)和一个命

令按钮(Name属性为Commandl),然后编写如下两个事件过程：

PrivateSubCommand1_Click()

a=Textl.Text+Text2.Text

Printa

EndSub

PrivateSubFormm_Load()

Textl.Text=u"

Text2.Text=,,H

Endsub

程序运行后，在第一个文本框(Textl)和第二个文本框(Text2)中分别输入123和321,然

后单击命令按钮，则输出结果为123321

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

PrivateSubCommand1_Click()

x=InputBox("Input")

SelectCasex

Case1,3

Print”分支P

CaseIs>4

Print”分支2"

CaseElse

Print"Else分支”

EndSelect

EndSub

程序运行后，如果在输入对话框中输入2,则窗体上显示的是Else分支

35.在窗体上画一个命令按钮和一个文本框名称分别为Commandl和Textl然后编写如下程序:

PrivateSubCommand1_Click()

a=InputBox("请输入日期(1~31)")

t="旅游景点:"&IIf(a>0Anda<=10,"长城_

&IIf(a>10Anda<=20，"故宫"_

&IIf(a>20Anda<=30,"颐和园

Text1.Text=t

EndSub

程序运行后如果从键盘输入16则在文本框中显示的内容是：旅游景点：故宫

36.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Textl、Text2的文本框，

然后编写如下事件过程：

PrivateSubCommand1_Click()

n=Text1.Text

SelectCasen

Case1To20

x=10

Case2,4,6

x=20

CaseIs<10

x=30

Case10

x=40

EndSelect

Text2.Text=x

EndSub

程序运行后，如果在文本框Text1中输入10,然后单击命令按钮，则在Text2中显示的内容是

10

37.在窗体上画一个名称为Timerl的计时器控件，要求每隔0.5秒发生一次计时器事件，则以

下正确的属性设置语句是Timer1.Interval=500

38.表达式5Mod3+3\5*2的值是2

39.设@="屋力二%卜士七\(1=(",执行语句4项9(1),么”,旧)后，x的值为“A”

40.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timed,在属性窗口中把计

时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后，如果单击命令按钮，

则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：

PrivateSubCommandl_Click()

Timerl._________

EndSub

PrivateSubTimerl_Timer()

Text1.Text=Time

EndSub

在处应填入的内容是Enabled=True

41.如果X的值小于或等于Y的平方，则打印“0K”，表示这个条件的单行格式If语句是_If

x<=yA2ThenPrintnOkn

42.表达式Y+1>=X是一个—关系表达式

43.有一个分段函数，当X<0时，Y=-l；当X=0时，Y=0；当X>0时，Y=k该分段函数在程

序段中可表达为：

IfX<0Then

Y=-l

ElseIfX=OThen.

Y=0

Else

Y=1

44.以卜Case语句中错误的是

A.Case0To10B.CaseIs>10C.CaseIs>10AndIs<50D.Case3,5,Is>10

45.关于语句Ifx=lTheny=l,下列说法正确的是—x=l为关系式表达式，y=l为赋值语句—。

46.窗体上有命令按钮（COMMAND1）和文本输入框TEXT1,命令按钮click中代码如下：

PrivateSubCommandl_Click（）

A=75

IfA>60ThenI=1

IfA>70ThenI=2

IfA>80ThenI=3

IfA>90Then1=4

Text1.Text=I

EndSub

运行后，单击命令按钮，textl中显示_2__。

47.设有如下程序：

PrivateSubCommandl_Click（）

DimcAsInteger,dAsInteger

c=4

d=InputBox（"请输入一个整数”）

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

d=InputBox（"请输入一个整数”）

Loop

Printc+d

EndSub

程序运行后，单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则

输出结果是：9

多重窗体与环境应用

1.在VisualBasic中，要将•个窗体加载到内存进行预处理但不显示，应使用的语句是（Load）

2.以下叙述中错误的是（窗体的Hide方法和Unload方法的作用完全相同）

3.以下叙述中错误的是（在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同

类型的磁盘文件）

4.以下叙述错误的是窗体的Hide方法和Unload方法的作用完全相同。

5.为了使一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为H为e

6.卜.列操作不能向工程中添加窗体的是（右击窗体，在弹出的菜单中选择“添加窗体”命令）

7.当一个工程中含有多个窗体时.，其中的启动窗体是一在“工程属性”对话框中指定的窗体

8.下列说法错误的是（VisualBasic中的一个工程只包含一个窗体）

9.要将名为MyForm的窗体显示出来，正确的使用方法是（MyForm.Show）

10.一个工程必须包含的文件的类型是（*.vbp*.frm*.frx）

11.有两个窗体Forml和Form2,要使其中第一个窗体Forml中的第•个命令按钮来控制

显示第二个窗体Form2,第二个命令按钮用来结束程序的运行（两个按钮名称为Command1

和Command2）。则以卜选项中，对这两个命令按钮编写的事件过程正确的是（PrivateSub

Commandl_Click（）

Form2.Show1

EndSub

PrivateSubCommand2_Click（）

End

EndSub

12.在VisualBasic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是

（Load）

13.要将名为MyForm的窗体显示出来，正确的使用方法是（要将名为MyForm的窗体显

示出来，正确的使用方法是）

14.建立一个新的标准模块，应该选择哪个菜单下的“添加模块"命令？(“工程”菜单)

15.在VisualBasic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是

(Load)

16.假定一个工程由一个窗体文件Forml和两个标准模块文件Model1及Model2组成。

Modell代码如下：

PublicxAsInteger

PublicyAsInteger

SubS1()

x=1

S2

EndSub

SubS2()

y=10

Forml.Show

EndSub

Model2的代码如下：

SubMain()

SI

EndSub

其中SubMain被设置为启动过程。程序运行后，各模块的执行顺序是

(Model2->Model1->Form1)

17.在VisualBasic工程中，可以作为启动对象的程序是(SubMain过程或任何窗体)

18.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(如果工程中含有Sub

Main过程，则程序一定首先执行该过程)

19.以下叙述中错误的是(窗体的Hide方法和Unload方法的作用完全相同)

20.以下关于多重窗体程序的叙述中，错误的是(用Hide方法不但可以隐藏窗体，而且能

清除内存中的窗体)

21.假定一个工程由一个窗体文件Form!和两个标准模块文件Modell及Model2组成。

Modell代码如下:

PublicxAsInteger

PublicyAsInteger

SubS1()

x=1

S2

EndSub

SubS2()

y=10

Form1.Show

EndShow

Model2的代码如下：

SubMain()

SI

EndSub

其中SubMain被设置为启动过程。程序运行后，各模块的执行顺序是

(Model2->Model1->Form1)

22,设有两个窗体，第一个窗体中有两个命令按钮，第一个命令按钮用来控制显示第二个窗

体，第二个命令按钮用来结束程序运行(两个按钮名称分别为Commandl和Command2)。

则以下选项中，对这两个命令按钮编写的事件过程正确的是

—PrivateSubCommand1_Click()

Form2.Show

EndSub

PrivateSubCommand2_Click()

End

EndSub___。

23.已知使用Show方法的格式为：［窗体名称JShow［模式］,如要使窗体是“模态型”窗体,

则“模式”值应为」—O

24.一个工程中包含两个名称分别为Forml>Form2的窗体，一个名称为Md1Func的标准

模块。假定在Forml、Form2和MdIFunc中分别建立了自定义过程，其定义格式为：

Forml中定义的过程：

PrivateSubfrmFunction1()

EndSub

Form2中定义的过程：

PrivateSubfrmFunction2()

EndSub

mdlFunc中定义的过程：

PublicSubmd1Function()

EndSub

在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是

（只有Md1Function过程能够被工程中各个窗体或模块调用）

25.以下关于窗体的描述中，错误的是（执行UnloadForm1语句后，窗体Forml消失，但

仍在内存中）

26.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为Math。设窗体Forml

标题为"myfrml",双击控件数组中的第三个按钮，打开代码编辑器，写下如下代码：

PrivateSubMath_Click（IndexAsInteger）

Form1.Caption="myfrm2"

EndSub

程序运行时，单击按钮数组中的第一个按钮，窗体标题为一myfrm2—。

27.一个工程中含有窗体Forml、Form2和标准模块Modell,如果在Forml中有语句

PublicXAsInteger在Modell中有语句PublicYAsInteger则以下叙述中正确的是

（在Froml中可以直接使用X）

28.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

（如果工程中含有SubMain过程，则程序一定首先执行该过程）

29.以下关于多重窗体程序的叙述中，错误的是

（用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体）

30.假定一个工程由一个窗体文件Forml和两个标准模块文件Modell及Model2组成。

Modell代码如下:

PublicxAsInteger

PublicyAsInteger

SubS1()

x=1

S2

EndSub

SubS2()

y=10

Form1.Show

EndShow

Model2的代码如下：

SubMain()

SI

EndSub

其中SubMain被设置为启动过程。程序运行后，各模块的执行顺序是

(Model2->Model1->Form1)

过程

1.不能脱离控件(包括客体)而独立存在的过程是事件过程

2.Sub过程与Function过程最根本的区别是Sub过程不能返回值，而Function过

程能返回值

3.定有以下函数过程：

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

si=UCase(Mid(S,i,1))+si

Nexti

Fun=si

EndFunction

在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommmldl_Click()

DimStrlAsString,Str2AsString

Strl=inputbox(“请输入一个字符串”)

Str2=Fun(Strl)

PrintStr2

EndSub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击”确

定”按钮后在窗体上的输出结果为GFEDCBA

4.设有如下通用过程：

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

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

PrivateSubCommand1_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub

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

5下列程序的执行结果为

2415

1220

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

x=12:y=20

CallValue(x,y)

Printx;y

EndSub

PrivateSubValue(ByValmAsInteger,ByVainAsInteger)

m=m*2:n=n-5

Printm;