vb试题.docx

vb试题.docx

《vb试题.docx》由会员分享，可在线阅读，更多相关《vb试题.docx（15页珍藏版）》请在冰豆网上搜索。

vb试题

试题一

1.VB应用程序通常有、和三种模块组成。

2.在VB中根据变量的作用域不同，变量可以分为、

和。

3.VB提供的属性，用来控制对象是否可见，当属性值为时，表示对象可见。

4.Line方法用于在容器对象的指定位置画或。

5.在VB应用程序中，过程主要有、、和属性过程四类。

6.根据数据的存取方式和结构，可将文件分为、和二进制文件。

7.VisualBasic6.0中，要对数据库进行访问，需要通过数据访问对象进行，数据访问对象有：

、和。

二、单项选择题（每题2分，共30分）

1.以下关于VisualBasic特点的叙述中，错误的是（）。

A）VisualBasic是采用事件驱动编程机制的语言

B）VisualBasic程序既可以编译运行，也可以解释运行

C）构成VisualBasic的多个过程没有固定的执行顺序

D）VisualBasic程序不是结构化程序，不具备结构化的三种基本结构

2.以下叙述中，错误的是（）。

A）在VisualBasic中，对象所能响应的事件是由系统定义的

B）对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定

C）VisualBasic中允许不同对象使用相同名称和方法

D）VisualBasic中的对象具有自己的属性和方法

3.设有如下语句：

Dima,bAsInteger

c="VisualBasic"

d=#7/20/2005#

以下关于这段代码的叙述中，错误的是（）。

A）a被定义为Integer类型变量

B）b被定义为Integer类型变量

C）c中的数据是字符串

D）d中的数据是日期类型

4.在窗体上画一个命令按钮，名称为Command1。

然后编写如下程序：

PrivateSubCommand1_Click（）

Fori=1To4

Forj=0Toi

PrintChr$（65+i）;

Nextj

Print

Nexti

EndSub

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

A）BBB）AC）BD）AA

CCCBBCCBBB

DDDDCCCDDDCCCC

EEEEEDDDDEEEEDDDDD

5.以下关于过程的叙述中，错误的是（）。

A）事件过程是由某个事件触发而执行的过程

B）函数过程的返回值可以有多个

C）可以在事件过程中调用通用过程

D）不能在事件过程中定义函数过程

6.下面能够正确打开文件的一组语句是（）。

A）Open"data1"ForOutputAs#5

Open"data1"ForInputAs#5

B）Open"data1"ForOutputAs#5

Open"data1"ForInputAs#6

C）Open"data1"ForInputAs#5

Open"data1"ForInputAs#6

D）Open"data1"ForInputAs#5

Open"data1"ForRandomAs#6

7.单选按钮用于一组互斥的选项中。

若一个应用程序包含多组互斥条件，可在不同的

（）中安排适当的单选按钮，即可实现。

A）框架控件或图像控件

B）组合框或图像控件

C）组合框或图片框

D）框架控件或图片框

8.若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label等控件，则运行该程序显示窗体时，（）会首先获得焦点。

A）窗体B）CommandButtonC）LabelD）TextBox

9.使用（）方法可以将新的列表项添加到一个列表框中。

A）PintB）AddItemC）ClearD）RemobeItem

10.有程序代码“Text1.Text="VisualBasic"”，其中的Text1、Text和"VisualBasic"分别代表（）。

A）对象、值、属性B）对象、方法、属性

C）对象、属性、值D）属性、对象、值

11.以下有关数组的说明中，错误的是（）。

A）根据数组说明的方式，可将数组分为动态数组和静态数组

B）在过程中，不能用Private语句定义数组

C）利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型

D）数组重新定维后，原有的数组元素内容将不予保留

12.名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是（）。

A）PrivateSubsort（a（）AsInteger）

B）PrivateSubsort（a（10）AsInteger）

C）PrivateSubsort（ByVala（）AsInteger）

D）PrivateSubsort（a（,）AsInteger）

13.设有命令按钮Command1的单击事件过程，代码如下

PrivateSubCommand1_Click（）

Dima（3,3）AsInteger

Fori=1To3

Forj=1To3

a（i,j）=i*j+i

Nextj

Nexti

Sum=0

Fori=1To3

Sum=Sum+a（i,4-i）

Nexti

PrintSum

EndSub

运行程序，单击命令按钮，输出的结果是（）。

A）20B）7C）16D）17

14.针对语句Ifi=1Thenj=1，下列说法正确的是（）。

A）i=1和j=1均为赋值语句

B）i=1和j=1均为关系表达式

C）i=1为关系表达式，j=1为赋值语句

D）i=1为赋值语句，j=1为关系表达式

15.以下控件中，不能作为数据绑定控件的是（）。

A）LabelB）TextBoxC）OptionButtonD）ListBox

三、读程序写结果（共10分）

1.读完下面的程序，写出结果。

（5分）

PrivateSubForm_Click（）

Dimstr1AsString,str2AsString

Dimstr3AsString,iAsInteger

str1="e"

Fori=1To2

str2=UCase（str1）

str1=str2&str1

str3=str3&str1

str1=Chr（Asc（str1）+i）

Nexti

Printstr3

EndSub

执行上面的程序代码，单击窗体后在窗体上显示的结果是。

2.在某个过程中有语句Fori=N1toN2stepN3,在该循环体内有下列四条语句，其中会影响循环执行次数的是：

。

（5分）

N1=N1+1

N2=N2+N3

I=I+N3

N3=2*N3

四、看程序填空题（共40分）

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

（9分）

PrivateSubCommand1_Click（）

Dima（1To100）AsInteger

Fori=1To100

a（i）=

Nexti

Max=a

（1）

Min=a

（1）

Fori=1To100

IfThen

Max=a（i）

EndIf

IfThen

Min=a（i）

EndIf

Nexti

Print"max=";Max,"min=";Min

EndSub

程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组a中，然后查找并输出这100个数中的最大值max和最小值min，请填空。

2.在窗体上画1个命令按钮和1个通用对话框起名称分别为Command1和CommonDialog1，然后编写如下事件过程：

（9分）

PrivateSubCommand1_Click（）

CommonDialog1.DialogTitle="打开文件"

CommonDialog1.Filter=""

CommonDialog1.InitDir=""

CommonDialog1.

EndSub

该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“text（*.txt）”，并显示C盘根目录下的所有文件，请填空。

3.在窗体上画1个文本框，名称为Text1，然后编写如下程序：

（9分）

PrivateSubForm_Load（）

Open"d:

\temp\dat.txt"ForOutputAs#1

Text1.Text=""

EndSub

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfThen

IfUCase（Text1.Text）=Then

Close1

End

Else

Write#1,

Text1.Text=""

EndIf

EndIf

EndSub

以上程序的功能是，在D盘temp目录下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车键的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：

如果输入"END"，则结束程序。

请填空。

4.下列语句的输出结果是（4分）

PrintFormat（Int（12345.6789*100+0.5）/100,"0000,0.00"）

5.执行下面的程序后，a（1,3）的值是，a（2,2）的值是，a（3,1）的值是。

（9分）

PrivateSubForm_Click（）

Dima（3,3）AsInteger,iAsInteger

DimjAsInteger,kAsInteger,nAsInteger

n=9

Fork=5To1Step-1

Ifk>=3Then

Fori=1To6-k

a（k-3+i,i）=n

n=n-1

Nexti

Else

Fori=1Tok

a（k-i+1,3-i+1）=n

n=n-1

Nexti

EndIf

Nextk

Fork=1To3

Fori=1To3

Printa（k,i）;

Nexti

Print

Nextk

EndSub

参考答案：

一、填空题（每空1分，共20分）

1、面向对象事件驱动编程机制

2、标准模块类模块窗体模块

3、过程级变量模块级变量全局级变量

4、Visibleture（真）

5、直线矩形

6、事件过程函数过程子程序过程

7、顺序文件随机文件

8、DAORDOADO

二、单项选择题（每题2分，共30分）

1-5DBAAB6-10CDBBC11-15DACCC

三、读程序写结果（共10分）

1、EeFF2、

四、看程序填空题（共40分。

）

1、Int（Rnd*1000）Maxa（i）

2、Text（*.txt）|*.txtC:

\ShowOpen

3、KeyAscii=13"END"Text1.Text

4、12,345.68（4分）

5、159

综合练习题二

一、填空题（每空1分，共20分）

1.VB应用程序的两个基本特点是和。

2.为使某窗口中的命令按钮“确定（E）”具有如下特性：

按“Alt＋E”键或按“Enter”键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为，并且设置其属性值为。

3.在VisualBasic中，由系统事先设定的，能被对象识别和响应的动作称为。

4.数字关系3<=X<10表达式写成正确的VB表达式为。

5.表达式Len（"123程序设计ABC"）的值是。

6.ＶＢ提供的属性，用来控制对象是否可见，当属性值为时，表示对象可见，当属性值为时，表示对象不可见。

7.的代码存贮在模块中。

在VB中提供了三种类型的模块：

、____________和类模块。

8.对于随机文件，如果要实现写操作应通过语句来实现，要实现读取数据的操作应通过语句来实现。

9.在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程

PrivateSubForm_Click（）

Text1.Text="VB程序设计"

EndSub

PrivateSubText1_Change（）

Picture1.Print"VBProgramming"

EndSub

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

10.在VB数据库中，记录集类型有：

表类型、、三种。

二、单项选择题（每题2分，共20分）

1.工程文件的扩展名是（）。

A）vbgB）vbpC）vbwD）vbl

2.以下选项中，是VisualBasic的ActiveX控件的是（）。

A）复选框控件B）定时器控件C）对话框控件D）命令按钮控件

3.文本框的默认属性是（）。

A）CaptionB）TextC）TopD）Name

4.滚动条控件的Largechange属性所设置的是（）。

A）单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量

B）滚动条中滚动块的最大移动位置

C）滚动条中滚动块的最大移动范围

D）滚动条控件无该属性

5.执行line（500,500）-step（1000,0）:

line-step（0,1000）:

line–step（-1000,0）:

line–step（0,-1000）语句画出的图形是（）。

A）直线B）矩形C）圆D）点

6.以下选项中，不属于DATA数据控件的属性是（）。

A）RecordSourceB）EOFC）BOFActionD）Connect

7.关于列表框（ListBox）不正确的阐述是（）。

A）列表框显示项目列表。

B）用户只可以从中选择一个项目。

C）列表框可以显示多列列表。

D）如果项目数超过列表框可显示的数目，控件将自动出现滚动条。

8.要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置（）。

A）Text属性值为#B）Caption属性值为#

C）Passwordchar属性值为#D）Passwordchar属性值为真

9.允许在菜单项的左边设置打勾标记，下面论述正确的是（）。

A）在标题项中输入&然后打勾B）在索引项中输入“√”

C）在复选项中输入“√”D）在有效项中输入“√”

10.当执行以下过程时，在窗体上将显示（）。

PrivateSubCommandl_Click（）

Print“VB”

Print“Hello!

”；

Print“VB”

EndSub

A）VBHello!

VB

B）VB

Hello!

VB

C）VB

Hello!

VB

D）VB

Hello!

VB

三、判断题（判断下列各题正确与否，正确的打√，错误的打每小题2分，共20分）。

1.在定义了一个函数后，可以像调用任何一个VB内部函数一样使用它，可以在表达式、语句或函数中引用它。

（）

2.VisualBasic表达式可以写为：

1284+COS（28）。

（）

3.当文本框的ScrollBar属性设置为2（有垂直滚动条）但没有垂直滚动条显示，是没有对MultiLine属性设置为True。

（）

4.Cls可以清除窗体或图形框中程序运行时产生的图形和文字的内容。

（）

5.当运行程序时系统自动启动窗体的Load事件过程。

（）

6.在VB6.0中包括四个文件类控件，它们分别是DriveListBox控件，DirListBox控件、FileListBox控件和Picturebox控件。

（）

7.图像框控件使用系统资源比图片框少。

（）

8.按照文件的存取方式及其组成结构可以分为两种类型：

文本文件和随机文件。

（）

9.函数过程（FunctionProcedure）用来完成特定的功能但不可以用函数带回值。

（）

10.设A=3，B=4，C=5，D=6，计算表达式A>BANDC<=DOR2*A>C的值是False。

（）

四、读程序题，写出程序运行结果（每小题5分，共20分）

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

PrivateSubForm_Click（）

x=InputBox（"请输入一个整数"）'x在前面没有被定义过

Printx+Text1.Text

EndSub

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

_____________________________

2.当在文本框Text1中输入"ABC"三个字符时窗体上显示的是什么。

PrivatesubText1_Change（）

PrintText1.Text

EndSub

________________________________

3.给定下列窗体模块，写出单击命令按钮Comman1后的执行结果。

PublicxAsInteger

PrivateSubCommand1_Click（）

x=10

Printx;

Calls1（x）

Printx;

Calls2（x）

Printx;

EndSub

PrivateSubs1（Byvalx1asInteger）

x1=x1+20

EndSub

PrivateSubs2（x2asInteger）

x2=x2+20

EndSub

_________________________________

4.有以下程序：

PrivateSubCommand1_Click（）

Text1.Text="努力"

EndSub

PrivateSubCommand2_Click（）

Text1.Text="学习"

EndSub

单击Command2按钮，又单击Command1按钮，在文本框中显示什么？

___________________________________

五、编程题（共20分）

1.设计一个计时程序。

该程序用户界面如图所示，由一个文本框（Text1），和两个按钮：

命令按钮1（Command1）按钮，命令按钮（Command2）组成。

程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，按停止按钮，则计时停止。

单击窗口则退出。

（10分）

OptionExplicit

Dimi

PrivateSubCommand1_Click（）

i=【1】【1】

Timer1.Interval=1000

【2】.Enabled=True【2】

EndSub

Private【3】Command2_Click（）【3】

Timer1.Enabled=【4】【4】

Endsub

PrivateSubForm_Click（）

【5】Me【5】

EndSub

PrivateSubForm_Load（）

Timer1.Enabled=【6】【6】

Text1.【7】=【8】【7】

EndSub【8】

PrivateSubTimer1_Timer（）

i=i+【9】【9】

Text1.Text=【10】【10】

EndSub

2.编一学号和密码输入的检验程序，对输入的学号和密码规定如下：

（10分）

（1）学号、密码均为4位，密码以"*"代替。

（其中假设学号为：

123密码为：

321）

（2）如果输入正确则弹出对话框，内容：

”欢迎使用”.输入不正确弹出对话框，内容：

”学号密码不正确，请请重新输入”，焦点定位在原学号文本框，总共的输入机会只有3次，3次都不正确则弹出对话框，内容：

”你无权使用”,选择"取消"停止程序的运行。

参考答案：

一、填空题

1.面向对象程序设计事件驱动编程。

2.确定（&E）,Default,true。

3.事件。

43<=XAndX<10。

510。

6Visible,true,false。

7窗体模块标准模块。

8Put,Get9VB程序设计VBProgramming。

10动态集类型、快照类型

二、单项选择题

1．B2．C3．B4．A5．B6．B7．B8．C9．C10．B

三、判断题

1正确。

2错误。

3正确。

4正确。

5正确。

6错误。

7正确。

8错误。

9错误。

10错误。

四、读程序题，写出程序运行结果、

1结果为：

123456

2结果为A

AB

ABC

3结果为：

101030

4结果为：

努力

五、编程题

1．答：

【1】0【2】Timer1【3】Sub【4】False【5】Unload

【6】False【7】Text【8】0【9】1【10】i

2.答：

DimIAsInteger

PrivateSubForm_Load（）

Text1.MaxLength=4

Text2.MaxLength=4

Text2.PasswordChar="*"

EndSub

PrivateSubCommand1_Click（）

IfText1.Text="123"AndText2.Text="321"Then

MsgBox"欢迎使用"

Else

I=I