最新VB题库及答案.docx

最新VB题库及答案.docx

《最新VB题库及答案.docx》由会员分享，可在线阅读，更多相关《最新VB题库及答案.docx（16页珍藏版）》请在冰点文库上搜索。

最新VB题库及答案

最新VB题库及答案

一、选择题

第1部分

1、在窗体（名称为Forml）上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。

程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为计算机等级考试”。

以下能实现上述操作的事件过程是

A、PrivateSubText1_Change（）

Command1.Caption="计算机等级考试"

EndSub

B、PrivateSubCommand1_Click（）

Caption="计算机等级考试"

EndSub

C、PrivateSubForm_Click（）

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

EndSub

D、PrivateSubCommand1_Click（）

Text1.Text="计算机等级考试"

EndSub

2、在一行内写多条语句时，每个语句之间用（）符号分隔

A、,B、：

C、.D、；

3、下面（）是合法的变量名。

A、X_YZB、123ABCC、INTEGERD、X-Y

4、下面（）是合法的字符常量。

A、ABC$B、“ABCC、‘ABCD、ABC

5、表达式16/4-2A5*8MOD5\2的值为（）

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

6、设a=”MicrosoftVisualBasic，则以下使变量的b值为”VisualBasic的语句是A、b=Left（a,1O）B、b=Mid（a,10）

C、b=Right（a,1O）D、b=Mid（a,11,10）7、设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf（（ad）,"A","B"）后,x的值为

A、"a"B、"b"C、"B"D、"A"&在窗体上画一个文本框，然后编写如下事件过程:

PrivateSubForm_Click（）

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

Printx+Textl.Text

EndSub

程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单

击确定”按钮后，在窗体上显示的内容为

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

9、在BASIC中，三个逻辑运算符NOT,AND，OR在运算过程中，优先级从高到低的顺序是（）。

A、AND->NOT->ORB、NOT->AND->OR

C、OR->NOT->ANDD、NOT->OR->AND10、下面程序段运行时内层循环的循环总次数（

FORX=1TO2

FORY=1TOXNEXTY

NEXTX

A.、1B、2C、3D、4

11、在VB中，复写框（Check）的Value值有三种，分别是（）

A、-1，0，1B、0，1，2

C、1，2，3D、True,False012、若要退出For循环，可使用的语句为（）。

A、ExitB、ExitDoC、TimeD、ExitFor13、利用VB设计程序的基本步骤可分四步：

（1）设计用户界；

（2）（）;（3）运行调试程序；（4）生成执行文件

A、编写代码B、设计算法C、信息反馈D、系统集成

（）

A、Form1.Caption时钟”

C、Caption=时钟”

B、Form1.Caption=时钟”

D、Fopm1.Caption（时钟”）

14、在代码窗口内将表单Form1的“Caption属性设置为时钟”正确的书写形式是

15、保存文件时，窗体的所有数据存储格式为（）

D、*.EXE

A、*.PRGB、*.FRMC、*.VBP

16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属

性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为Falseo程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。

以下是实现上述操作的程序：

PrivateSubCommand1_Click（）

Timer1.

EndSub

PrivateSubTimer1_Timer（）

Textl.Text=Time

EndSub

在应填入的内容是

A、Enabled=TrueB、Enabled=FalseC、Visible=TrueD、Visible=False17、把窗体的KeyPreview属性设置程为True,然后编写如下事件过程

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

DimchAsString

ch=Chr（KeyAscii）

KeyAscii=Asc（UCase（ch））

PrintChr（KeyAscii+2）

EndSub

程序运行后，按键盘上的“A键，则在窗体上显示的内容是

A、AB、BC、CD、D18、VB中的变量如果没有显示声明其数据类型，则默认为（

A、日期型B、数据型C、字符型D、变体型

19、在VB中，通过改变列表框

A、ListB、（名称）

）属性的值，可以为列表框添加项目

C、CaptionD、Text

20、

已知A$=”12345678,则表达式Val（left$（a$,4）+Mid$（a$,4,2））的值为（

）0

D、显示出错信息

21、下面程序段显示的结果是（

Dimx

Ifxthenprintxelseprintx+1

A、12345B、123445C、8D.6

22、用来测试指定文件结束状态的函数是（）

A、EofB、FreeFileC、LocD、Open

23、当Long类型数据与Single类型运算时,运算结果的类型为（）

A、IntegerB、LongC、SingleD、Double24、某一VB工程含F1、F2两个窗体，执行“F1Show:

F2.Hide”语句后，F1、

F2窗体显示的结果为（）o

A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体25、数学关系3=〈x〈10表示成正确的VB表达式为（）

A、3〈=x〈10B、3=〈xANDx〈10

C、x〉=3ORx〈10D、3<=xAND〈10

26.在窗体上画一个名称为Labell的标签，然后编写如下事件过程：

PrivateSubForm_Click（）

Dimarr（10,10）AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4arr（i,j）=i*j

Nextj

Nexti

Label1.Caption=Str（arr（2,2）+arr（3,3））

EndSub

程序运行后，单击窗体，在标签中显示的内容是

A、12B、13C、14D、15

27.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。

下列能正确实现上述操作的程序是

A、PrivateSubList1_Click（）

Label1.Caption=List1.ListIndex

EndSub

B、PrivateSubList1_Click（）

Label1.Name=List1.ListIndex

EndSub

C、PrivateSubList1_Click（）

Label1.Name=List1.Text

EndSub

D、PrivateSubList1_Click（）

Label1.Caption=List1.Text

EndSub

28、设a=5，b=4，c=3，d=2,下列表达式的值是3>2*bOra=cAndb<>cOrc>d

A、1B、TrueC、FalseD、230、下列操作不能打开代码窗口的是（）

A、选中对象，单击鼠标右键，在弹出的快捷菜单中选择查看代码”命令

B、选中对象，双击鼠标左键

C、按F7键

D、按F4键

第2部分

1、VB语言的语法规定，多条语句放在同一行中，语句之间用（）分隔

A、逗号B、冒号C、分号D、单引号

2、在VB中，执行“A=18MOD4”语句后，A的值为（）。

A、2B、4C、6D、8

3、A为True，B为False,贝U“AandB”和“AOrB”的值分别是（）。

A、TrueTrueB、TrueFalseC、FalseTrueD、FalseFalse4、在VB中，执行“DimA,BAsString语句后，A，B的数据结构为（）

A、整型数B、实型数C、字符型D、字节型5、在VB中，执行“A=123B=Str$（A）语句后，B的数据结构为（）

A、整型数、B、字节型C、实型数D、字符型6、在VB中，复写框（Check）的Value值有三种，分别是（）。

A、-1，0，1B、0，1，2C、1，2，3D、True，False,07、若要退出For循环，可使用的语句为（）。

A、ExitB、ExitDoC、TimeD、ExitFor&利用VB设计程序的基本步骤可分四步：

（1）设计用户界；

（2）（）;（3）运行调试程序；（4）生成执行文件

A、编写代码B、设计算法C、信息反馈D、系统集成9、在代码窗口内将表单Form1的“Caption属性设置为时钟”正确的书写形式是（）

A、Form.Caption时钟”B、Form.Caption=时钟”

C、Caption=时钟”D、Fopm.Caption（时钟”）10、保存文件时，窗体的所有数据存储格式为（）。

A、*.PRGB、*.FRMC、*.VBPD、*.EXE11、窗体初始化程序应写在（）事件中。

A、LoadB、UnloadC、ActivateD、GotFocus12、某一VB工程含F1、F2两个窗体，执行“F1Show:

F2.Hide”语句后，F1、F2窗体显示的结果为（）。

A、都显示

B、都不显示C、仅显示F1窗体D、仅显示F2窗体

14、VB中的变量如果没有显示声明其数据类型，则默认为（）

A、日期型B、数据型C、字符型D、变体型

）属性的值，可以为列表框添加项目

C、CaptionD、Text

16、在VB中，三个逻辑运算符NOT,AND，OR在运算过程中，优先级从高到低的顺序是（）。

A、AND->NOT->ORB、NOT->AND->OR

C、OR->NOT->ANDD、NOT->OR->AND

17、下面程序段运行时内层循环的循环总次数（）

FORX=1TO2

FORY=0TOX-1

NEXTY

NEXTX

A、1B、2C、3D、4

18、正确的算术表达式是（）。

A、-3/8+5\INT24.6B、8*3/5

C、[（X+Y）*Z]/30D、（XA2+Y/3）*X3

19、若A=2,B=3,C=4,则值为真的关系式是（））

A.12/A+2=BA2B、3>2*BORA=CANDB>CORA>B

C、A>BANDB<=COR3*A>CD、A*B>C+3

20、当Long类型数据与Single类型运算时,运算结果的类型为（）

A、IntegerB、LongC、SingleD、Double

21、下面关于顺序文件的描述正确的是（）。

A.每条记录长度必须相同

B.可通过编程对文件中的某条记录方便的修改。

C.数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示

D.文件的组织结构复杂。

E.

23、下面（）是合法的变量名。

A、X_YZB、123+ABCC、INTEGERD、X-Y

25、下列说法中正确的是（）。

A、数组只具有数组名，而没有数组类型

B、数组只具有数组类型，而没有数组名

C、数组的类型和数组元素的类型不同

D、数组和变量一样，都有名称和类型这两种属性

26、创建公用数组的方法是（）。

A、在模块中用Private语句声明B、在模块中用Public语句声明

C、在过程中用Private语句声明D、在过程中用Public语句声明

不是B就是D

27、VisualBasic6.0中缺省的参数传递机制是（）。

A、传值B、传地址C、传值和传地址D、从实参到形参

C、Public

不是A就是B

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

1下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。

请在有（）的地方填上适当的语句或表达式。

（8分）

PrivateSubCommand1_Click（）

DimsAsSingle

DimiAsSingle

s=（0）

Fori=1to100（step2）

S=（s+i）

（nexti）

Prints

EndSub

2、在下列程序的（）内写上适当的内容，使能输出如下图形

程序如下：

PrivateSubCommand1_Click（）

Fori=1to（^6

Forj=1to（i-6）

Print（“”）

Nextj

（PrintString（i,"*"））

Nexti

EndSub3、写出下列程序的执行结果

PrivateSubForm_Click（）

Dima（1To10）AsInteger

Dimb（1To10）AsInteger

Dimc（1To10）AsInteger

Fori=1To10

a（i）=i

Nexti

b

（1）=10

Forj=9To1Step-1

b（10-j+1）=j

Nextj

Fork=1To10c（k）=a（k）+b（k）

Nextk

Forl=1To10

Printc（l）;

Ifl=5ThenPrint

EndIf

Nextl

EndSub

结果：

11

11

11

11

11

11

11

11

11

11

4、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程:

PrivateSubForm_Click（）

Text1.text="VB程序设计"

EndSub

PrivateSubText1_Change（）

Picture1.Print"VBProgramming"

EndSub

程序运行后，单击窗体，在文本框显示的内容是__VB程序设计，而在图

片框显示的内容是__VBProgramming。

5、下列程序输出的值是多少？

PrivateSubCommand1_Click（）

s=0

Fori=9To42Step11

s=s+i

Nexti

Ifi>50Then

s=s+i

Else

s=s-i

EndIf

Prints

EndSub

结果是：

155。

6、设有如下程序：

PrivateSubForm_Click（）

DimaAsInteger,sAsInteger

n=8

s=0

Do

s=s+nn=n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是计算1到8的累加。

程序运行后，单击窗体，输出结果为_36.

7、设有如下程序：

用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。

OptionBase1

PrivateSubCommand1_Click（）

Dimarr1

DimMinAsInteger,iAsInteger

arr仁Array（12,435,76,-24,78,54,866,43）Min=arr1

（1）

Fori=2To8

Ifarr1（i）

Print"最小值是：

";min

EndSub

&在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把

该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

以下程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把

该文本框中的内容存入磁盘文件smtext2.txt。

PrivateSubForm_Click（）

Open"d:

\test\smtext1.txt"ForInputAs#1

DoWhileNoteof

（1）

LineInput#1,aspect$

whole$=whole$+aspect$+Chr$（13）+Chr$（10）

Loop

Text1.Text=whole$

Close#1

Open"d:

\test\smtext2.txt"ForOutputAs#1

Print#1,text1.text

Close#1

EndSub

二、程序设计题

1、编写一个函数计算1*2*…*n的值，函数名为fact（）

PrivateFunctionfact（nAsInteger）AsInteger

DimiAsInteger

DimrAsInteger

r=1

Fori=1Ton

r=r*i

Nexti

fact=r

EndFunction

EndSub

2、编写一个过程，求成1*2*3*…*N的值，过程名为NA

3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox（）函数输入框。

当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。

提问：

（1）、应该对窗体的什么事件进行编程？

（2）、编写程序代码，实现上述功能。

应该对窗体的单击（Click）事件进行编辑

PrivateSubCommand1_Click（）

Dima（15）,iAsInteger

Fori=1To15

a（i）=InputBox（"请输入15个整数，单击确定按钮.","",""）

IfiMod5

=0ThenPrint

Nexti

EndSub

4、已知三角形的三条边，编写一个函数求其面积，函数名自命名

PrivateSubCommand1Click（）

Dima,b,c,l,S

a=Val（InputBox（"请输入第一条边的长：

"））

b=Val（InputBox（"请输入第二条边的长：

"））

c=Val（InputBox（"请输入第三条边的长：

"））

=（a+b+c）/2

Ifl<=aOrl<=bOrl<=cThen

MsgBox"输入的数据不能组成三角形！

ExitSub

EndIf

S=Sqr（l*（I-a）*（I-b）*（I-c））

PrintS

EndSub