Visual Basic程序设计期末综合练习题.docx

Visual Basic程序设计期末综合练习题.docx

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

VisualBasic程序设计期末综合练习题

VisualBasic程序设计期末综合练习题

（2005年12月）

一、单项选择题

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

A．.frmB．.vbp

C．.basD．.fix

2．要在窗体Form1内显示“新年快乐”，使用的语句是（）

A．Form.caption="新年快乐"B．Form1.caption=""

C．Form.print"新年快乐"D．Form1.print"新年快乐"

3．语句Text1.Text="VisualBasic",分别代表（）

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

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

4．若要将窗体从内存中卸载，应使用的方法是（）。

A．ShowB．Unload

C．LoadD．Hide

5．在VB中，下列各项合法的变量名是（）。

A．IntegerB．ab-c

C．56abcD．a_bc

6．表达式10＋10Mod2^3+3的值是

A．7B．9

C．15D．10

7．下列正确的赋值语句是（）。

A．m=m-1B．m+1=m

C．3m=n+xD．-m=n+1

8．Winsock控件的LocalPort属性的作用是（　　）

A．仅返回所用端口B．返回或设置所用端口

C．仅设置所用端口D．返回或设置IP地址

9．Winsock控件的LocalIP属性的作用是（）

A．返回本地计算机的名称

B．返回或者设置所用的端口

C．返回远程机器的IP地址

D．返回本地计算机的IP地址

10．DimA（5,5）AsInteger定义的数组包含的元素个数是（）

A．25B．36

C．30D．动态变化

11．要清除List列表框控件中的所有项目，可采用的方法是（）

A．ClearB．Erase

C．ClickD．Delete

12．如果希望以模态方式显示窗体Form1，下列正确的语句是（）

A．Form1.Show0

B．Form1.Show

C．Form1.Show1

D．以下都不正确

13．如果准备向随机文件中写入数据，正确的语句是（）

A．Print#1,recB．Write#1,rec

C．Put#1,,recD．Get#1,rec

14．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（）关键字在过程中定义局部变量。

A．DimB．Public

C．PrivateD．Static

15．在过程定义中用（）表示形参的传值。

A．VarB．ByDef

C．ByValD．Value

16．将数据项“China”添加到列表框（List1）中成为地一项，应使用的语句是（）

A．List1.AddItem"China",0B．List1.AddItem"China",1

C．List1.AddItem"China",D．List1.AddItem"1,China"

17．引用列表框（List1）最后一个数据项应使用的语句是（）

A．List1.List（List1.ListCount）B．List1.List（List1.ListCount－1）

C．List1.List（ListCount）D．List1.List（ListCount－1）

18．可用来改变坐标度量单位的是（）

A．Drawstyle属性B．DrawWidth属性

C．Scale方法D．ScaleMode属性

19．要使窗体在运行时不可改变窗体的大小并没有最大化和最小化按钮，通过设置可达到此要求的属性是（　　）

A．MaxButtonB．MinButton

C．WidthD．BorderStyle

20．数学关系8≤y<28表示成正确的VB表达式为（）

A、8<=y<28B、8<=yAND<28

C、8<=yANDy<28　D、8<=yORy<28

21．以下能判断是否到达文件尾的函数是（）

A、BOFB、DOC

C、LOF　D、EOF

22．6．为了在运行时把d:

\pic文件夹下的图形文件a.jpg装入图片框Picture1中，所使用的语句为（）。

A．Picture1.Text=LoadPicture（"d:

\pic\a.jpg"）

B．Picture1.Picture=LoadPicture（"d:

\pic\a.jpg"）

C．Picture1.Picture=LoadPicture（d:

\pic\a.jpg）

D．Picture1.Picture=Load（"d:

\pic\a.jpg"）

23．MsgBox函数的返回值的类型是（　　）

A．整型B．字符串

C．逻辑型D．日期型

24．当Winsock控件处于关闭状态时，其State属性的值是（　　）

A．1　　　　　B．0

C．2D．-1

25.要以读方式打开D盘的一个顺序文件Stu.dat，应使用的语句是（）

A．Open"Stu.dat"ForOutputAs#1

B．Open"D:

\Stu.dat"ForInputAs#1

C．Open"D:

\Stu.dat"ForOutputAs#1

D．Open"Stu.dat"ForInputAs#1

26.Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）

A．Visible=False或Enabled=FalseB．Interval=0或Visible=False

C．Interval=0或Enabled=FalseD．Interval=0且Enabled=False

27.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（）。

A、AutosizeB、Stretch

C、AutoRedraw　D、Appearance

28.以下叙述中正确的是（）。

A、窗体的Name属性指定窗体的名称，用来标识一个窗体

B、窗体的Name属性的值是显示在窗体标题栏中的文本

C、可以在运行期间改变对象的Name属性的值　

D、对象的Name属性的值可以为空

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

A、一个工程中可以包含多个窗体文件

B、在一个窗体文件中用Private定义的通用过程能被其它窗体调用

C、在设计VisualBasic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件　

D、全局变量必须在标准模块中定义

30.在VisualBasic中，变量的默认类型是（）。

A、IntegerB、Double

C、Variant　D、Currency

31.用Line方法画直线后,当前坐标在（）。

A、（0，0）B、直线起点

C、直线终点　D、容器的中心

32.执行指令“Line（1200,1200）-Step（1000,500）,B”后，CurrentX=（）

A、2200B、1200

C、200　D、1700

33．要退出Do…Loop循环，可使用的语句是（）。

A、ExitB、ExitForC、EndDoD、ExitDo

二、填空题

1.VisualBasic6.0集成开发环境有三种工作模式，当应用程序处于中断模式时，这时不可以。

2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按键。

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

4.数学表达式

写成等价的VisualBasic表达式为。

5.将图片框的AutoSize属性设置成时，可使图片框根据图片调整大小。

6.Winsock控件的LocalIP属性，可以返回，LocalHostName属性，可以返回。

7．若窗体Form1左上角坐标为（-400,2500），右下角坐标为（400,-250），则X轴的正向向，Y轴的正向向。

8.ADO模型中一般可通过对象的Execute方法执行增加、删除、修改SQL语句。

9．使用ADO模型时，可通过属性建立Recordset和Connection对象的连接。

10．在VB中，将数据库分为，外部数据库和。

11．假设ADOrs为一个Recordset对象，那么从Table1表中获取所有记录的语句是

12．VB提供了结构化程序设计的三种基本结构，这三种基本结构是、

、。

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

14．VB中的程序错误类型主要有编译错误、等三种。

15．函数返回系统的时间。

16．以窗体Form1的中心为圆心，画一个半径为800的圆的语句是

。

17．控件数组的名字由属性指定，而数组中的每个元素由属性决定。

18．在VB的DAO、RDO、ADO三种数据对象的模型中，采用Jet引擎和ODBC两种方式访问数据库的是，采用ODBC访问数据库的是，主要采用OLEDB访问数据库的是。

19．按文件的存取方式。

可将文件分为、、

。

20．定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置，其单位为。

三、阅读程序题

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

1．

PrivateSubForm_Click（）

DimcAsInteger,jAsInteger,kAsInteger

k=0

c=1

Forj=1To5

Ifj>3Then

c=c+4

ExitFor

Else

k=k+1

EndIf

Nextj

Printc,k

EndSub

写出程序运行时单击窗体后，c,k的值分别是：

2．

PrivateSubForm_Click（）

DimxAsInteger

StaticyAsInteger

x=x+2

y=y+3

Form1.Print"x=";x,"y=";y

EndSubEndSub

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

3．

PrivateSubCommand1_Click（）

DimsAsDouble

DimiAsInteger

s=5

i=1

DoWhilei<9

i=i+2

s=s+i

Loop

Text1.Text=s

EndSub

文件框Text1的输出结果是：

4.

PrivateSubForm_Click（）

DimIasinteger,jasinteger

Dimcasinteger

c=0

Fori=1To3

Forj=1to3

c=c+1

Nextj

NextI

Printc

EndSub

写出程序运行时单击窗体后，c的输出结果：

5.

FunctionF（aAsInteger）

b=0

Staticc

b=b+1

c=c+2

F=a+b+c

EndFunction

PrivateSubCommand1_Click（）

DimaAsInteger

a=2

Fori=1To3

PrintF（a）

Nexti

EndSub

写出程序运行时，单击命令按钮在窗体上的输出结果。

6.

PrivateSubCommand1_Click（）

DimA（1To5）AsInteger

DimxAsInteger

Fori=1To5

A（i）=i

Nexti

i=1

DoWhilex<3

A（i）=A（i）+x

x=x+1

i=i+1

Loop

Text1.Text=A

（1）

Text2.Text=A

（2）

EndSub

7.

SubChange（ByValxAsInteger,ByValyAsInteger）

DimtAsInteger

t=x

x=y

y=t

Printx,y

EndSub

PrivateSubForm_Click（）

DimaAsInteger,bAsInteger

a=10:

b=20

Changea,b

Printa,b

EndSub

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

四、完善程序题

1．列表框应用程序。

要求在文本框Text1中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；按“统计”按钮，在文本框Text2中输出课程数量总数；按“结束”按纽，退出应用程序。

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

图1

程序如下，请补充完整。

PrivateSubForm_Load（）

List1.AddItem"计算机应用基础"

List1.AddItem"程序设计基础"

List1.AddItem"软件技术基础"

List1.AddItem"VisualBasic程序设计"

List1.AddItem"SQLSERVER数据库应用"

List1.AddItem"计算机专业英语"

List1.AddItem"Delphi程序设计"

EndSub

PrivateSubCommand1_Click（）

IfText1.Text<>""Then

[1]

Text1.Text=[2]

Else

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

"

[3]

EndSub

PrivateSubCommand2_Click（）

List1.RemoveItem[4]

EndSub

PrivateSubCommand3_Click（）

Text2.Text=[5]

EndSub

PrivateSubCommand4_Click（）

UnloadMe

EndSub

2.

函数图形程序。

用Pset方法在图形框Picture1内绘制y=Sinx在-π到π之间的图形。

运行结果如图8所示。

程序如下，请补充完整：

PrivateSubCommand1_Click（）

Picture1.Scale（-4,2）-（4,-2）'定义坐标系

Picture1.Line（-4,0）-（4,0）'画x轴

[1]'画y轴

Picture1.CurrentX=0.2'设置原点横坐标

Picture1.CurrentY=-0.1'设置原点纵坐标

[2]'标记原点

Picture1.CurrentX=-3.2

Picture1.CurrentY=-0.1

Picture1.Print"-π"'标记“-π”

Picture1.CurrentX=3.3

Picture1.CurrentY=-0.1

Picture1.Print"π"

Picture1.CurrentX=0.2

Picture1.CurrentY=0.9

Picture1.Print"1"'标记“1”

Picture1.CurrentX=0.2

Picture1.CurrentY=-0.8

Picture1.Print"-1"'标记“-1”

Fori=[3]Step0.001

Picture1.PSet（[4]）

Nexti

EndSub

PrivateSubCommand2_Click（）

[5]

EndSub

五、编程题

编写一程序，要求单击“开始”按钮（Command1），在列表框（List1）中输出200~300之间不能被5整除的数，单击清除按钮（Command2），清除文本框中的全部内容。

程序运行结果如图所示。

注：

其它类型的完善程序题和编程题，请参考上学期网上复习要点及练习。

练习题答案答案

一、单项选择题

1．B2．D3．C4．B5．D6．C7．A8．B9．D10．B11．A

12．C13．C14．D15．C16．A17．B18．D19．D20．C

21．D22．B23．A24．B25．B26．C27．B28．A29．B30．C

31．C32．A33．D

二、填空题

1.设计界面

2.F1

3.open"D:

\text.dat"ForOutputAs#1

4.5^（1/2）*sin（30*3.14/180），或者Sqr（5）*sin（30*3.14/180）

5.True

6.本地计算机的IP地址返回或设置远程计算机的名称

7.右上

8.Connection

9.ActiveConnection

10.本地数据库远程数据库

11.ADOrsOpen”Select*FromTable1”

12.选择结构循环结构顺序结构

13.15000

14.实时错误逻辑错误

15.Time

16.Circle（ScaleWidth/2,ScaleHeight/2）,800

17.NameIndex

18.DAORDOADO

19.顺序文件随机文件二进制文件

20.TimerIntervalms

三、阅读程序题

1.

53

2.

x＝2y=3

x＝2y=6

x＝2y=9

3.

29

4.

9

5.

5

7

9

6.

13

7.

2010

1020

四、完善程序题

1．

[1]List1.AddItemText1.Text

[2]""

[3]EndIf

[4]List1.ListIndex

[5]List1.ListCount

2．

[1]Picture1.Line（0,2）-（0,-2）

[2]Picture1.Print"0"

[3]-3.141To3.141Step0.001

[4]i,Sin（i）

[5]End

五、编程题

PrivateSubCommand1_Click（）

DimxAsInteger

x=200

DoUntilx>300

IfxMod5<>0Then

List1.AddItemx

EndIf

x=x+1

Loop

EndSub

PrivateSubCommand2_Click（）

List1.Clear

EndSub