Visual Basic程序设计试题docx.docx

Visual Basic程序设计试题docx.docx

《Visual Basic程序设计试题docx.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计试题docx.docx（12页珍藏版）》请在冰豆网上搜索。

VisualBasic程序设计试题docx

VisualBasic程序设计试题

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

1.VisualBasic是一种面向对象的可视化编程语言，采取了（）的编程机制。

A.按过程顺序执行B.从主程序开始执行

C.事件驱动D.按模块顺序执行

2.要设置命令按钮的背景图形，必须设置的两个属性是（）

A.Caption和Picture

C.Style和Icon

B.、Style和PictureD、Value和Icon

3.工程文件的扩展名是（

A..vbp

C..bas

）o

B..frm

D..frx

4.有程序代码如下：

Text1.Text="欢迎学习VB程序设计”

则Textl,Text,和”欢迎学习VB程序设计”分别代表（）。

A.对象，值，属性

C.对象，方法，属性

B.对象，属性，值

D.属性，对象，值

5.VisualBasic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。

A.设计模式B.编写代码模式

C.执行模式D.中断模式

6.下列控件中，不能改变大小的是（）。

A.TextBoxB.Label

C.TimerD.PictureBox

7.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）

指定为启动窗体。

A.不包含任何控件的窗体B.命名为Frml的窗体

C.包含控件最多的窗体D.设计时的第一个窗体

8.DimA（1To4,0To3）定义的数组包含的元素的个数是（）。

A.12B.16

C.15D.动态变化

9.如果创建了命令按纽控件数组，则Cilick事件的参数是（）。

A.Caption

B.Index

C.Tag

D.没有参数

10.不属于VB数据库引擎的是（）

A.ODBCB.Jet引擎

C.OLEDBD.BDE

11.要向图片框Pl中加载d:

\hainan\zhiwu.bmp,,图像文件，应使用语句（）。

A.Picture1.Picture="d:

\hainan\zhiwu.bmp"

B.Picturel.Picture=LoadPicture（Hd:

\hainan\zhiwu.bmp"）

C.Pl.Picture=LoadPicture（"d:

\hainan\zhiwu.bmp"）

D.P1.Picture=LoadPicture（d:

\hainan\zhiwu.bmp）

12..以下属性只能用程序代码设置，不能通过属性窗口设置的是（）。

A.Index属性B.Pattern属性C.Visible属性D.Drive属性

13.以下有关VisualBasic语言描述中错误的是（）。

A.语句是一行一句，以回车键结束

B.用分隔一行中的多个语句

C.不区分大小写

D.一条语句放在多行中，则在前一行结束处使用续行符“一”连接下一行

13.在下列选项中，不能将图像装入图片框和图像框的是（）

A.在界面设计时，通过Picture属性装入

B.在界面设计时，手工在图像框和图片框中绘制图形

C.在界面设计时，利用剪贴板把图像粘贴上

D.在程序运行期间，用LoadPicture函数把图形文件装入

14.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。

A.OpenB.Execute

C.CommandTypeD.ActiveConnection

15.要发送数据，通常使用Winsock控件的（）

A.ListenB.Accept

C.SendDataD.GetData

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

1.每个应用程序必须有一个惟一的文件。

2.表达式13\2-2A3*5MOD6的值是。

3.如果要每隔3s产生一个Timer事件，则Interval属性应设置为。

4.VB中的程序错误类型主要有实时错误、三种。

5.控件数组的名字由属性指定，而数组中的每个元素由属性

决定。

6.Winsock控件主要用来编制基于或协议的网络应用程序。

7.如果不能事先确定变量的数据类型，则可以把它生命为类型。

8.以写方式打开D盘中的Text,dat文件，正确的语句是

9.全局变量是指那些在中有效的变量，一般在模块代码编辑器的

顶部使用声明。

10.VB中参数传递的机制有两种，一种是参数，另一种是

参数。

三、阅读程序题（共25分）

阅读下列程序并写出程序运行结果

1.（6分）

PrivateSubForm_Click（）

DimxAsInteger

StaticyAsInteger

x=x+2

y=y+3

Forml.Print〃x二〃；x,〃y二〃；y

EndSub

写出程序运行时连续单击三次窗体后，Forml±的输出结果。

2.（6分）

PrivateSubCommandl_Click（）

x=0

DoWhilex<60

x=（x+3）*（x+4）

n=n+1

Loop

Textl.Text=Str（n）

Text2.Text=Str（x）

Text3.Text=Val（Textl.Text）+Val（Text2.Text）

EndSub

写出程序运行后，文件框Text3的结果。

3.（6分）

PrivateSubFormClickO

DimA（1To3）AsString

DimcAsInteger

DimjAsInteger

A（l）=〃4〃

A

（2）=〃8〃

A（3）=〃12〃

c=1

Forj=1To3

c=c+Val（A（j））

Nextj

Printc

EndSub

写出程序运行时单击窗体后，窗体Forml上的结果。

4.（7分）

PublicSubchangel（ByVaixAsInteger,ByVaiyAsInteger）

DimtAsInteger

t=x

x=y

y=t

EndSub

PublicSubchange2（xAsInteger,yAsInteger）

DimtAsInteger

t=x

x=y

y=t

EndSub

PrivateSubForm_Click（）

DimaAsInteger,bAsInteger

a=22:

b=33

changela,b

Forml.Print〃A1二〃；a,〃B1二〃；b

a=22:

b=33

change2a,b

Forml.Print〃A2=”；a,〃B2="；b

EndSub

写出程序运行时，单击窗体Forml上的输出结果。

四、完善程序题（共10分）

1.列表框应用程序。

要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为"修改确认”。

在文本框的内容修改好后，按"修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。

程序运行结果如图1所示。

Command1

Commands

Textl

Listl

图1

程序如下，请补充完整。

PrivateSubForm_Load（）

Listl.Additem"VisualBasic程序设计”

Listl.Additem"SQLSERVER数据库应用

Listl.Additem"信息管理系统"

Listl.Additem"ERP原理与应用"

Listl.Additem"网络实用技术基础"

Listl.Additem”系统开发规范与文档编写，

Listl.Additem"信息系统测试"

EndSub

PrivateSubCommand1_Click（）

IfTextl.Text<>,,HThen

[11

Textl.Text="

⑵

MsgBox”请在文本框中输入信息！

”

EndIf

EndSub

PrivateSubCommand2_Click（）

[31

EndSub

PrivateSubCommand3_Click（）

IfCommands.Caption=[4]

Textl.Text=「5]

Textl.SetFocus

Command1.Enabled=⑹

'将文本框中的内容加到列表框中

'删除选定的项目

Then

Command2.Enabled=False

Command3.Caption-[71

Else

List1.List（List1.Listindex）=Text1.Text

Command1.Enabled=True

Command2.Enabled=True

Textl.Text=',H

Commands.Caption=[81

EndIf

EndSub

五、编写程序题（共15分）

编写一工资调整程序。

若基本工资大于等于800元，增加工资20%,若小于800元大于600元，则增加工资15%；若小于600元则增加工资10%。

要求在文本框Textl中输入某职工的基本工资，单击“计算”按钮，在标签框Labell中输出增加后的工资。

程序运行界面如图4所示。

图2

答案：

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

l.C2.B3.A4.B5.B6.C7.D8.B9.B10.D11.C

12.D13.B14.D15.C

二、填空题（每空1分，共15分）

1.vbp

2.2

3.3000

4.逻辑错误编译错误

5.NameIndex

6.TCP/IPUDP

7.变体型（或Variant）

8.open"D:

\text.datHForOutputAs#1

9.整个应用程序Public

10.引用参数传递（或按址传递）按值传递

三、阅读程序题（每小题5分，共20分）

y=3

y=6

y=9

Bl二33

B2=22

1.x=2

x=2

x=2

2.

242

3.

25

4.

Al=22

A2=33

四、完善程序题（共10分）

[1]Listl.AddItemText1.Text

[2]Else

[3]Listl.RemoveitemList1.Listindex

[4]”修改”

[5]List1.Text

[6]False

[7]”修改确认”

[8]“修改”

五、编写程序题（共15分）

参考答案：

PrivateSubCommandl_Click（）

DimxAsInteger,yAsSinglex=Vai（Textl.Text）

SelectCasex

CaseIs>=800

y二x*1.2

CaseIs>=600

y二x*1.15

CaseElse

y二x*1.1

EndSelect

Label1.Caption=y

EndSub

PrivateSubCommand2_Click（）

UnloadMe

EndSub