最新VB题库及答案Word下载.docx

最新VB题库及答案Word下载.docx

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

7、设a="

a"

，b="

b"

，c="

c"

，d="

d"

，执行语句x=IIf（（a<

b）Or（c>

d）,"

A"

"

B"

）后，x的值为

A、"

B、"

C、"

D、"

8、在窗体上画一个文本框，然后编写如下事件过程：

PrivateSubForm_Click（）

x=InputBox（"

请输入一个整数"

）

Printx+Text1.Text

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为

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

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

A、AND->

NOT->

OR 

B、NOT->

AND->

OR

C、OR->

AND 

D、NOT->

OR->

AND

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

FORX=1TO2

FORY=1TOX

NEXTY

NEXTX

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

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

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

C、1，2，3D、True，False，0

12、若要退出For循环，可使用的语句为（）。

A、ExitB、ExitDoC、TimeD、ExitFor

13、利用VB设计程序的基本步骤可分四步：

（1）设计用户界；

（2）（）；

（3）运行调试程序；

（4）生成执行文件。

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

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

A、Form1.Caption“时钟”B、Form1.Caption=“时钟”

C、Caption=“时钟”D、Fopm1.Caption（“时钟”）

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

A、*．PRGB、*．FRMC、*．VBPD、*．EXE

16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。

程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。

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

PrivateSubCommand1_Click（）

Timer1._______

PrivateSubTimer1_Timer（）

Text1.Text=Time

在_____处应填入的内容是

A、Enabled=TrueB、Enabled=FalseC、Visible=TrueD、Visible=False

17、把窗体的KeyPreview属性设置程为True，然后编写如下事件过程

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

DimchAsString

ch=Chr（KeyAscii）

KeyAscii=Asc（UCase（ch））

PrintChr（KeyAscii+2）

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

A、AB、BC、CD、D

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

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

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

A、ListB、（名称）C、CaptionD、Text

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

A、12345 

B、123445 

C、8 

D.6

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

Dimx

Ifxthenprintxelseprintx+1

A、1B、0C.、-1 

D、显示出错信息

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

A、EofB、FreeFileC、Loc 

D、Open

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

A、Integer 

B、Long 

C、Single 

D、Double

24、某一VB工程含F1、F2两个窗体，执行“F1．Show：

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

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.在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

PrivateSubForm_Click（）

Dimarr（10,10）AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr（i,j）=i*j

Nextj

Nexti

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

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

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

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

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

A、PrivateSubList1_Click（）

Label1.Caption=List1.ListIndex

B、PrivateSubList1_Click（）

Label1.Name=List1.ListIndex

C、PrivateSubList1_Click（）

Label1.Name=List1.Text

D、PrivateSubList1_Click（）

Label1.Caption=List1.Text

28、设a=5，b=4，c=3，d=2，下列表达式的值是

3>

2*bOra=cAndb<

>

cOrc>

d

A、1B、TrueC、FalseD、2

30、下列操作不能打开代码窗口的是（）

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，则“AandB”和“AOrB”的值分别是（）。

A、TrueTrueB、TrueFalseC、FalseTrueD、FalseFalse

4、在VB中，执行“DimA,BAsString”语句后，A，B的数据结构为（）。

A、整型数B、实型数C、字符型D、字节型

5、在VB中，执行“A=123：

B=Str$（A）”语句后，B的数据结构为（）。

A、整型数、B、字节型C、实型数D、字符型

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

A、-1，0，1B、0，1，2C、1，2，3D、True，False，0

7、若要退出For循环，可使用的语句为（）。

A、ExitB、ExitDoC、TimeD、ExitFor

8、利用VB设计程序的基本步骤可分四步：

（1）设计用户界；

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

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

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

C、Caption=“时钟”D、Fopm.Caption（“时钟”）

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

A、*．PRGB、*．FRMC、*．VBPD、*．EXE

11、窗体初始化程序应写在（）事件中。

A、LoadB、UnloadC、ActivateD、GotFocus

12、某一VB工程含F1、F2两个窗体，执行“F1．Show:

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

13、VB的数据类型分为（）

A、数值型、字符型、布尔型、日期型B、数值型、字符型、对象型、日期型

C、基本类型、扩展类型D、整型、实型、字符型、日期型、布尔型

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

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

A、ListB、（名称）C、CaptionD、Text

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

　A、AND->

D、NOT->

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

FORY=0TOX-1

　　NEXTY

　A、1 

B、2 

C、3D、4

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

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

B、8*3/5 

C、[（X+Y）*Z]/30 

D、（X^2+Y/3）*X3

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

A.12/A+2=B^2 

B、3>

2*BORA=CANDB>

CORA>

B

C、A>

BANDB<

=COR3*A>

C 

D、A*B>

C+3

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

）。

A、Integer 

B、Long 

C、Single 

D、Double

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

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

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

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

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

22、下列（）不属于VB的控件。

A、窗体B、数据C、形状D、直线

23、下面（ 

A、X_YZ 

B、123+ABC 

C、INTEGER 

D、X-Y

24、下面的程序段，输入9后，输出结果是（）。

X=inputbox（“输入一个数”）

Selectcasex

Case1to5

Y=-1

Case5to10

Y=0

Case10to15

Y=1

Endselect

A、0B、1C、-1D、2

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

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

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

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

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

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

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

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

不是B就是D

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

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

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

A、12345 

B、123445 

C、8 

D、6

29、下面正确的赋值语句是（）

A、x+y=30B、y=*r*rC、y=x+30D、3y=x

30、要保留动态数组原有的内容，应当使用（）语句。

A、RedimPreserveB、Redim

C、DimC、Public

不是A就是B

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

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

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

（8分）

DimsAsSingle

DimiAsSingle

s=（0）

Fori=1to100（step2）

S=（s+i）

（nexti）

Prints

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

*

**

***

****

*****

******

程序如下：

Fori=1to（6）

Forj=1to（i-6）

Print（“*”）

（PrintString（i,"

*"

））

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

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=1To10

c（k）=a（k）+b（k）

Nextk

Forl=1To10

Printc（l）;

Ifl=5Then

Print

EndIf

Nextl

结果：

1111111111

1111111111

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

Text1.text="

VB程序设计"

PrivateSubText1_Change（）

Picture1.Print"

VBProgramming"

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

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

s=0

Fori=9To42Step11

s=s+i

Ifi>

50Then

Else

s=s-i

Prints

结果是：

_______155_________。

6、设有如下程序：

DimaAsInteger,sAsInteger

n=8

s=0

Do

s=s+n

n=n-1

LoopWhilen>

Prints

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

程序运行后，单击窗体，输出结果为_36___。

7、设有如下程序：

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

OptionBase1

Dimarr1

DimMinAsInteger,iAsInteger

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

Min=arr1

（1）

Fori=2To8

Ifarr1（i）<

MinThenmin=arr1（i）

Print"

最小值是：

"

;

min

8、在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

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

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"

\test\smtext2.txt"

ForOutputAs#1

Print#1,text1.text

Close#1

三、程序设计题

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

PrivateFunctionfact（nAsInteger）AsInteger

DimiAsInteger

DimrAsInteger

r=1

Fori=1Ton

r=r*i

fact=r

EndFunction

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

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

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

提问：

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

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

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

Dima（15）,iAsInteger

Fori=1To15

a（i）=InputBox（"

请输入15个整数，单击确定按钮."

）

Next

Printa（i）;

"

IfiMod5=0ThenPrint

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

Dima,b,c,l,S

a=Val（InputBox（"

请输入第一条边的长：

））

b=Val（InputBox（"

请输入第二条边的长：

c=Val（InputBox（"

请输入第三条边的长：

l=（a+b+c）/2

Ifl<

=aOrl<

=bOrl<

=cThen

MsgBox"

输入的数据不能组成三角形!

ExitSub

EndIf

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

PrintS