VB习题有答案.docx

VB习题有答案.docx

《VB习题有答案.docx》由会员分享，可在线阅读，更多相关《VB习题有答案.docx（76页珍藏版）》请在冰豆网上搜索。

VB习题有答案

一、选择题

1．Visualbasic采用了__________________编程机制。

A）面向对象B）面向过程C）面向对象事件驱动D）可视化

2．_____________版本的Visualbasic6.0具有其它两个版本的全部功能，它能够开发分布式应用程序。

A）学习版B）标准版C）专业版D）企业版

3．Visualbasic不具有以下的_______________特点。

A）Visualbasic采用了面向对象的程序设计方法

B）Visualbasic是结构化程序设计语言

C）Visualbasic采用面向过程的编程机制

D）Visualbasic提供了可视化的工具。

4．下列操作不能打开属性窗口的是________________。

A）在对象上单击右键，弹出快捷菜单，选取“属性窗口”菜音项

B）按F4键C）单击工具栏上的“属性窗口”D）双击对象

5．用户通过__________模拟屏幕的小图像来布置应用程序。

A）窗体设计器B）快捷菜单D）立即窗口D）窗体布局窗口

6．以下不属于Visualbasic的三种工作模式的是______________。

A）编辑B）设计C）运行D）中断

6．当将窗体的_____属性设置为False时，将不显示窗体的控制菜单、最大化/最小化及关闭按钮。

A）MaxButtonB）MinButtonC）ControlBoxD）WindowsState

7．如果在运行时不允许移动窗体，可以将窗体的________属性设计为False。

A）BorderStyleB）ControlBoxC）MoveableD）WindowsState

8．如果要使窗体的最大化按钮变成灰色（不起作用），应该设置窗体的____属性。

A）CaptionB）IconC）MaxbuttonD）MinButton

9．要在窗体上显示图片，需要设计窗体的_________属性。

A）CaptionB）IconC）PictureD）ControlBox

10．如果希望运行时窗体以最大化方式显示，应该设置窗体的______属性。

A）BorderStyleB）ControlBoxC）C）MoveableD）WindowsState

11．当将窗体的_____属性设置为False时，运行时窗体上的按钮、文本框等控件就不会对用户的操作做出响应。

A）EnabledB）VisibleC）ControlBoxD）WindowsState

12．运行时，单击窗体将窗体的前景颜色设置为红色的事件过程是_______。

A）PrivateSubForm_Click（）

Backcolor=vbRed

EndSub

B）PrivateSubForm_Click（）

Form1.forecolor=vbRed

EndSub

C）PrivateSubForm_Click（）

Form1.Backcolor=vbRed

EndSub

D）PrivateSubForm_Load（）

Forecolor=vbRed

EndSub

13．假设某一事件的过程如下，则响应该过程的对象名是____B_，事件名是__C___。

PrivateSubMylbl_DblClick（）

Form1.Caption=”Hello!

”

EndSub

A）Mylbl_Dbl、DblClickB）MylblC）DblClickD）Mylbl_Click

14．在设计阶段，双击窗体Form的空白处，打开代码窗口，显示_______事件过程模板。

A）Form_clickB）Form_loadC）LoadD）Unlosd

10．在运行时，系统自动启动窗体的_________事件过程。

A）ClickB）GotFocusC）LoadD）Unlosd

11．在属性窗口设置命令按钮的DownPicture属性，指定按下时显示的图形文件，但在运行时按下命令按钮又没有效果，解决的方法是_____________。

A）命令按钮的Default属性设计为TrueB）命令按钮的Style属性设计为2-Picture

C）命令按钮的Style属性设计为0-StandardD）命令按钮的Style属性设计为1-Graphical

12．如果在设计时在属性窗口中将命令按钮的___________属性设置为False，则运行时按钮将在窗体上消失。

A）VisibleB）EnabledC）DisabledPictureD）Default

13．如果在设计时在属性窗口中将命令按钮的___________属性设置为False，则运行时按钮将不起作用。

A）VisibleB）EnabledC）DisabledPictureD）Default

14．下列操作不能触发一个命令按钮的Click事件的是________________。

A）在按钮上单击鼠标左键B）在按钮上单击鼠标右键

C）把焦点移到按钮上，按回车键D）使用该按钮的访问键

15．将文本框的__________属性设置为True时，文本框可以输入或显示多行文本，且会自动换行。

A）MultilineB）SccollbarsC）TextD）Enabled

16．如果将passwordChar属性设置为一个字符“*”号，在文本框输入的字符仍然显示出来，而不显示*号，则原因可能是______________。

A）文本框的Multiline属性设置为TrueB）文本框的Locked属性设置为True

C）文本框的Multiline属性设置为FalseD）文本框的Locked属性设置为False

17．在设计阶段，双击某一文本框，打开代码窗口，显示文本框的_______事件过程模板。

A）clickB）DblClickC）ChangeD）GotFucos

18．在运行阶段，要在文本框Text1获得焦点时选中文本框的所有内容，对应如下的事件过程是_________________。

A）PrivateSubText1_Gotfocus（）

Ttext1.SelStart=0

Text1.Sellength=Len（Text1.Ttext）

EndSub

B）PrivateSubText1_Lostfocus（）

Ttext1.SelStart=0

Text1.Sellength=Len（Text1.Ttext）

EndSub

C）PrivateSubText1_Change（）

Ttext1.SelStart=0

Text1.Sellength=Len（Text1.Ttext）

EndSub

D）PrivateSubText1_Settfocus（）

Ttext1.SelStart=0

Text1.Sellength=Len（Text1.Ttext）

EndSub

19．通过文本框的_______________事件过程可以获得文本框中输入字符的ASCII码值。

A）ChangeB）GotfocusC）LostFocusD）Keypress

20．为了在按下ESC键时执行某个命令按钮的事件过程，需要把此命令按钮的___________设置为True。

A）ValueB）DefaultC）CancelD）Enabled

21．下列_______是日期型常量。

A）“2/1/02”B）2/1/02C）#2/1/02#D）{2/1/02}

22．下面____________不是字符串常量。

A）“你好”B）“”C）“True”D）#False#

23．表达式Int（8*sqr（36）*10^（-2）+0.5）/10的值是__________________。

A）.48B）.048C）.5D）.05

24．下列符号常量中，______________是不合法的。

A）ConstaasSingle=1.1B）ConstaasInteger=”12”

C）ConstaasDouble=Sin

（1）D）Consta=”OK”

25．系统常量符号的定义可以通过______________获得。

A）对象浏览器B）代码窗口C）属性窗口D）工具箱

26．要强制显示声明变量，可以在窗体模块或标准模块人声明段中加入语句_________。

A）OptionBase0B）OptionExplicitC）OptionBase1D）OptionCompare

27．假设x=3,y=6,z=5，则表达式（x^2+y）/z是_________________。

A）1B）5C）3D）2.4

28．假设A=3,B=7,C=2，则表达式A>BorB>C的值是_______________。

A）TrueB）FalseC）表达式有错D）不确定

29．产生[10，37]之间的随机整数的VisualBasic表达式是______________。

A）Int（Rnd

（1）*27）+10B）Int（Rnd

（1）*28）+10

C）Int（Rnd

（1）*27）+11D）Int（Rnd

（1）*28）+11

30．表达式Int（-17.8）+Abs（17.8）是______________。

A）0B）0.8C）-0.2D）-34.8

31．表达式Left（“howareyou”,3）的值是_______________。

A）howB）areC）youD）howareyou

32．表达式Right（“Beijing”,4）的值是_______________。

A）BeiB）jingC）eijiD）ijin

33．代数式x1-|a|+ln10+sin（x2+2π）/cos（57o）对应的VisualBasic表达式是____________。

A）x1-Abs（a）+Log（10）+sin（x2+2*3.14）/cos（57*3.14/180）

B）x1-Abs（a）+Log（10）+sin（x2+2*π）/cos（57*3.14/180）

C）x1-Abs（a）+Log（10）+sin（x2+2*3.14）/cos（57）

D）x1-Abs（a）+Log（10）+sin（x2+2*π）/cos（57）

34．下列数学式的正确VB表达式是____________________。

A）3y+（a+3*x^2+4*x^3）/（1+2*x+x^2）-2*b

B）3*y+（a+3*x^2+4*x^3）/（1+2*x+x^2）-2b

C）3*y+（a+3*x^2+4*x^3）/1+2*x+x^2-2*b

D）3*y+（a+3*x^2+4*x^3）/（1+2*x+x^2）-2*b

35．语句x=x+1的正确函义是________________。

A）变量X与X+1的值相等B）将变量X的值存到X+1中去

C）将变量X的值加1后赋给变量XD）变量X的值为1

36．如果将布尔常量True赋给一个整型变量，则整型变量的值为_______。

A）0B）-1C）TrueD）False

37．变量未赋值时，整型变量的值为_A_，字符型变量的值为__B__。

A）0B）空串““C）NullD）没有任何值

38．InputBox函数的返回值为__________。

A）数值B）字符串C）变体D）数值与字符串（视输入数据而定）

39．以下_______程序段可以实现变量X与Y的值互换。

A）Y=X：

X=YB）Z=X：

Y=Z：

X=YC）Z=X：

X=Y：

Y=ZD）Z=X：

W=Y：

Y=Z：

X=Y

40．以下程序段的执行结果是______________。

X=2

PrintX+1:

X+1

A）33B）X+1X+1C）34D）2+12+1

41．下列程序的执行结果是__________。

X=0

PrintX-1

X=3

A）-1B）3C）2D）0

42．以下叙述不正确的是_____________。

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

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

C）注释语句不能放在续行符（VB续行符是空格后跟一下划线）的后面

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

43．下列程序段的执行结果为_________。

X=1:

y=2

Z=x=y

Printx;y;z

A）112B）111C）FalseFalse1D）12False

44．以下程序在窗体上输出__B_，在图片框中输出__A_，在立即窗口中输出__C_。

A=“your”

B=“sname”

C=“isc”

Printright（A,3）

Picture1.PrintMid（B,2,4）

Debug.PrintLeft（C,2）

A）NameB）ourC）isD）ournameis

45．设变量a和b的值分别为153和-45，则Debug.printa;b的输出结果为___。

A）□153□-45□B）153□-45C）□153□□-45□D）□153□-45

46．Printsgn（-6^2）+abs（int（-234.12））的输出结果为________。

A）-300B）300C）256D）234

47．PrintFormat（Abs（-3^2）+32.5,"$$####,##.000"）的输出结果为_____。

A）$$41.500B）$$41.5C）$000041.5000D）$$000041.5000

48．如下程序运行时，在两个输入对话框中分别输入123和456，则程序的输出结果为_________。

PrivateSubForm_Click（）

x=InputBox（"输入第一个数据","输入数据"）

y=InputBox（"输入第二个数据","输入数据"）

Printx+y

EndSub

A）123456B）123C）579D）456

51.下列程序的执行结果是________.

J1=10

J2=30

Ifj1

Printj1

A）10B）30C）1030D）3010

52.下列程序的执行结果是________.

A=”1”

B=”2”

A=val（a）+val（b）

B=val（“12”）

Ifa<>bthenprinta-belseprintb-1

A）-9B）9C）12-12D）0

53.下列程序的执行结果是________.

A=”abcd”

B=”bcde”

E=right（a,3）

F=mid（b,2,3）

Ife

A）cdebcdB）cddC）cdcdD）bcdcde

54.下列程序的执行结果是________.

X=int（rnd+4）

Selectcasex

Case5

Print“优秀”

Case4

Print”良好”

Case3

Print”通过”

Caseelse

Print”不通过”

Endselect

A）优秀B）良好C）通过D）不通过

55.下列程序的执行结果是________.

PrivateSubForm_Click（）

DimkAsInteger,aAsInteger

k=1

Ifk<=1Thena=2*k

Ifk<=2Thena=a*k+1

Ifk<=3Thena=k

Printk,a

EndSub

A）12B）13

C）11D）31

56.下列程序的执行结果是________.

PrivateSubForm_Click（）

DimxAsInteger,yAsInteger

x=-2

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

Printx-y;y-x

EndSub

A）-33B）5-8C）3-3D）25-25

57.执行语句a=iif（5>10,1,-1）后,变量a的值为__________.

A）5B）10C）1D）-1

58．下列程序的执行结果是_________。

PrivateSubForm_Click（）

x=1

y=1

Fori=1To3

f=x+y

x=y

y=f

Printf;

Nexti

EndSub

A）236B）222C）234D）235

59．下列程序的执行结果是_________。

PrivateSubForm_Click（）

i=4

a=5

Do

i=i+1

a=a+2

LoopUntili>=7

Print"i=";i

Print"a=";a

EndSub

A）

I=4

A=5

B）

I=7

A=23

C）

I=8

A=7

D）

I=7

A=11

60．下列程序的执行结果是_________。

PrivateSubForm_Click（）

n=0

j=1

DoUntiln>2

n=n+1

j=j+n*（n+1）

Loop

Printn;j

EndSub

A）01B）37C）321D）313

61．下列程序的执行结果是_________。

PrivateSubForm_Click（）

n=0

Fori=1To3

Forj=5To1Step-1

n=n+1

Nextj,i

Printn;j;i

EndSub

A）1204B）1504C）1231D）1531

62．下列程序的执行结果是_________。

PrivateSubForm_Click（）

k=0

Forj=1To2

Fori=1To3

k=i+1

Nexti

Fori=1To7

k=k+1

Nexti

Nextj

Printk

EndSub

A）10B）6C）11D）16

63．对于下面结构的循环语句，叙述正确的是________。

Dountil条件

循环体

Loop

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

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

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

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

64．下列程序的执行结果是_________。

PrivateSubForm_Click（）

DimmAsInteger,nAsInteger,jAsInteger,kAsInteger

n=0

Form=1To3

Forj=1Tom

Fork=1To3

n=n+1

Nextk,j,m

Printn

EndSub

A）6B）10C）18D）21

65．如下程序的printi*j的执行次数是________。

PrivateSubForm_Click（）

DimiAsInteger,jAsInteger,nAsInteger

i=1

n=0

DoWhilei<4

i=i+1

Forj=5To1Step-1

Printi*j;

n=n+1

Nextj

Print

Loop

Printn

EndSub

A）15B）16C）17D）18

66．下列程序的执行结果是_________。

PrivateSubForm_Click（）

DimkAsInteger,nAsInteger,mAsInteger

k=1:

m=1:

n=10

DoWhilek<=n

m=m*2

k=k+1

Loop

Printm

EndSub

A）20B）1C）1024D）200

67．下列程序的执行结果是_________。

PrivateSubForm_Click（）

DimxAsInteger,yAsInteger

x=1

Fory=1To50

Ifx>=10Then

ExitFor

EndIf

IfxMod2=1Then

x=x+5

Else

x=x-3

EndIf

Nexty

Printx

EndSub

A）4B）6C）8D）10

68．下列程序的执行结果是_________。

PrivateSubForm_Click（）

DimiAsInteger,jAsInteger,sAsInteger

Fori=6To5Step-1

s=0#

Forj=iTo4Step-1

s=s+i*j

Nextj

Nexti

Prints

EndSub

A）90B）45C）135D）60

69．下列程序的执行结果是_________。

PrivateSubForm_Click（）

DimkAsInteger,cAsString*1

k=0:

c="A"

Do

SelectCasec

Case"A"

k=k+1

Case"B"

k=k-1

Case"C"

k=k+2

Case"D"

Case"E"

k=k*2

CaseElse

k=k/3

EndSelect

c=Chr（Asc（c）+1）

k=k+1

LoopWhilec<"F"

Printk

EndSub

A）2B）5C）6D）13

70．语句dima（3,4,5）定义的数组中包含的数据元素的个数量为________。

A）12B）60C）120D）345

71．设有数组声明语句：

Optionbase0

Dimb（-1to10,2to9,20）asinteger

则数组B中共有__________个元素。

A）1700B）1747C）2016D）2310

72．以下