Visual Basic程序设计形成性考核册作业51

VisualBasic程序设计形成性考核册作业

[font=宋体][/font]作业[b]l[/b]

一、选择题

1.在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（D）。

A.窗体设计B.代码C.属性D.工程资源管理器窗口-'D2dUmluW

2.窗体的load事件的触发时机是（B）。

A.用户单击窗体时B.窗体被加载时C.窗体显示之后D.窗体卸载时

3,与传统的程序设计语言相比，VisualBasic最突出的特点是©。1F□人:q3OlkDs

A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术□X5HDT&bElv9xS7P

4.VB6.0集成开发环境的主窗口中不包括（C）。

A.标题栏B.菜单栏C.状态栏D.工具栏8K2人;WLlW-d}口>

5.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是

（B）o:FkDi2a2j

A.text.MytextB.Mytext.TextC.Mytext.（Text）D.Mytext*Text-cDE2aObDiDA

6.下列可以激活属性窗口的操作是（D）。

A.用鼠标双击窗体的任何部位B.执行“工程”菜单中的”属性窗.口”命令口1<82匚1乂#乂口67£口乂

C.按Ctrl+F4D.按F4

7,假定已在窗休上.画「多个控件，并有•个控件是活动的，为了在属性窗口中设置窗体的属性，预先应

执行的操作是（A）。

A.单击窗体上没有控件的地方B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏

□xOhluDwPQ）:L;g

8、如果要在文本框键入字符时，只显示某个字符，如果（*）,应设置文本框的（B）属性。

A、CaptionB.PasswordCharC.TextD.CharOv/-PDNlY:{'m

9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True.

ALockedB.MultiLineC.TabStopDVisible%（!N;jAsDA*\;Y8G

10对于定时器（Tiner）控制，设置其定时是否开启的属性是（C）口丫口人9JV,Q"y4u2o7}DE'B

A.IndexB.TagC.EnabledD.Left'S+gD\DC.GDn

11.要在窗口体Fornl内显示“myfrm”使用的语句是（C）

A.Form.caption="myfrm''B.Fornl.caption=4,myfrmwDs#M口}6g（Zh

C.forml.print“myfrm”D/orm.print“myfrm”□<*CQA9YLKDT/EG

12.对象的性质和状态特征称为（C）:umax-Tt-a6ea{

A.事件B.方法C.属性D.类

13.下列正确的赋值语句是（B）"DDxDbn2Uae

A.x+y=20B.y=x+20C.3x=yD.s=UI-'#E5FtUR

14.当使用上下文相关的帮助时，选择要帮助的内容，然后按（D：键，就可出现MSDN窗口直接显示所需

的帮助信息。9tD@nxCx1-sDGFlSDq

A.HelpB.F10C.EseD.F1

FQd,PtnS

15.将调试通过的工程经“文件”菜单的“生成.exe文件”编绎成名.exe后，将该可执行文件放到其它机

器上不能运行的主要原因是（D）。

A.运行的机器上无VB系统B.缺少.frm窗体文件C.该执行文件有病毒D.以上原因都不

对:SDPa6?ELEIT0~

二、填空题

1.当进入VB集成开发环境后，发现没有显示“工具箱”窗口。应选择［u］视图［/u］菜单的［u］工具箱［/u］

选项，使“工具箱”窗口显示，&CCI#oDhDZDzIOV3M

2.在VB中,事件过程中由［山对象名［/u］和［u］事件名［/u］构成.+o&'Qs<5A,M,z

3.工程文件的扩展名是［u］vbp［/u］z窗体文件扩展名是［u］frm［/u］,□AnjDIDz$_-q%t

4.对象时代码和数据的集合，例如，VisualBasic中的［u］窗体［/u］、［u］按钮［/u］、DY&i;W6G

DDpDG5g

［u］文本框［/u］等都是对象。

5.对象的方法用于［u］实施某种操作功能［/u］o当方法不需要任何参数并且也没有返回值，调用对象的方

法的格式为［u］对象名［/u］［u］.［/u］［u］方法名［/u］。例如对窗体Forml使用Show方法，应写成

［u］forml.show［/u］。□Anon@3HDRD［&I

6、要使文本框显示滚动条,6要将其［u］ScrollBars［/u］属性设置为［u］3［/u］。

7、欲设置定时的时间间隔为4秒，则属性Interval的值为［u］4000［/u］o$U

PDu5G<QDB~

8、要使标签框的大小随Caption属性做自动调整，应将[u]AutoSize[/u]属性设置为[u]True[Zu]。

9、通过[u]窗体布局窗口[/u]nJ以在设计时直观地调整窗体在屏幕的位置

10、要想在代码中给名为txtshow的文框赋予文本：GOODWORK!时，应当编写的语句是

[u]txtshow.text=HGOODWORK[/u][u]![/u][u]M[/u]。□s%sCn_+eDt

11、若命令按钮的名称为Cmdopen,程序要求单击以上命令按钮，打开一个窗口frml,请对以下事件过程

填空。2YDUagf

D6qDc

PrivateSubCmdopen［u］click()［/u］

［u］Frml.show［/u］

EndSud

12.事件就是对象上所发生的事情，VisualBasic中的事件如［u］单击［/u］、［u］装入［/u］、□AvET#c

t2zDa

［u］鼠标移动［/u］等。•个对象响应的事件可以有［u］多［/u］个，用户不能建立新的事件。事件过程是指［u］

响应某个事件后所执行的代码［/u］0假设某一事件过程如下：

PrivateSubcmdl_Click()nKnK2Ane*p3_9_n'%E

Forml.Caption=wVB示例"(xElH+SolB+{N&DDV

EndSub

则响应过程的对象名是［u］cmdl［/u］,事件名是［u］Click［/u］o

13、对象的方法用于［u］在对象上实施某种操作功能［/u］o当方法不需要任何参数并且也没有返回值，调

用对象的方法格式为［u］对象名方法名［/u］,例如,对窗体Forml使用Show方法,应

写成［u］Forml.Show［/u］。

14、为了在编写代码时能自动语法检查，必须执行［u］工具［/u］菜单中的［u］选项［/u］

命令，打开［u］选项［/u］对话框，然后选择“编辑器”选项'中的［u］自动语法检测［/u］。3Dlkf)E7^

15、定时器(Timer)控件可识别的事件是［u］Timer［/u］,了生该事件的时间间隔定时由定时器的

［u］Interval［/u］属性设置，其单位为［u］毫秒［/u］。&uCDnm5}2'5M%Q+H!Z$_CJ

三、问答题

1、什么是可视化编程和事件驱动？

答：可视化编程是指无须编程，仅通过直观的操作方式即可完成界面的设计工作的这种编程方

式。□人.Ldi3pDgDVn|

当VB的应用程序运行后，系统处于等待状态，当某个事件发生后，程序就去执行此事件的事件过程，当这

个事件过程执行完后，系统又处于等待另一个事件发生的状态，这就是事件驱动程序方式。

2、对象、属性、事件和文件之间的关系如何？

答：对象是代码和数据的封装体。对象的操作通过与该对象行关的属性、事件、力法米描述。

□i#I(l3F$］EOa

属性是一个对象的基本特性，每个对象都有它自己的属性。

方法是对象要执行的动作。

事件是在对象上所发生的事情。4W7DOJ(S?Ou

g

3、简述事件疆动机制与传统编程方式的不同。

答：传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按何种顺序执行代码，程序从

第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。而事件驱动机制则

山用户来决定执行的路线。这就是两者的不同。

4、简述事件驱动的工作过程。

答：事件驱动的工作过程如下：启动应用程序，装载和显示窗体。（2）窗体或窗体上的控件等待事

件的发生。（3）当某个事件发生后，执行其对应的事件过程代招。（4）重复执行（2）和（3）,直到遇

到END语句或单击“结束”按钮停止程序的运行.

四、程序设计题6B-b8s（K-?

1、在窗体上添加一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显

示文本框”。当单击第一个命令按钮时，文本框消失：而当单击第二个命令按钮时，文本框重新出现，并在

文本框中显示“VB程序设计"（字体大小为16）。程序运行界面如图所示。口8「口”

图1M

解：“隐藏文本框”按钮中的代码为：Textl.Visible=FalseD?$cn'%Z*m

显示文本框.按钮中的代码为：Textl.Visible=True!x3C$UCq^b

.......................Textl.Text=wVB程序设计”□tH|5\C?w&rn\6N3T

.......................Textl.FontSize=M16"8X-nDQQLCB4p3b:l5u

2、设计一个计算程序。该程序用户界面如图2所示,由四个文本框:文本框l(textl)、文本框2(text2)、

文本框3(text3)、文木框4(text4),和三个按钮：命令按钮l(commandl)、命令按钮2(command2)、

命令按钮3(commands)组成。程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按

钮，则计算三科平均成绩。单击退出按钮则退出。！D-bElt:Dt8eOJOLLl\L]@,.v

解：command1中的代码为：textl="代te为2="”.text3="".text4=""E]vE]}(~lj$Z+|-A!.uClj*e

command2中的代码为，text4=(val(Textl).val(Text2).val(Text3))/3+T;snTnaDZOj_

command2中的代码为：End.3、编写一收款计算程序。要求住户输入商品的“单价”、“数量”和“折

扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮,清除文本框中所有的数据。程序运行界

面如图3所示。.答：“计算”按钮的代码：text4=val(Textl),val(Text2).val(Text3)/100.

按钮的代码：textl="”.text2="”.text3="”.text4=""..□L)]:R!P*AOY1G

.作业[b].[/b]一、选择题□QEIolZlpY.I-[9RE){DY

1.按照变量的作用域可将变量划分为.B.)。.A、公有、私有、系统...B、全局变量、模块级变量、过

程变量.C、动态、常数、静态...D、Public.Private.Protected(w4@nj/Cnp*C

2.可获得字符的ASCH码的函数是(C)。l.K3MDB8@DiCm

A.VaiB、FixC、Asc.D、ChrDQ"l%GDpw

,□qOi

3、要退出Do….Loop循环，可使用的语句的(D)语句。口1_口口5s口76P6GOS

A,Exit.B、ExitFor.C、En.Do.D、Exi.Do|+n2l:mDQ5EDuDR#uDTno

4.把数值型转换为字符串型需要使用的函数是(B).'luDv3u8rOyDB+snZ-.,

A、Val..B、Str.C、Asc..D.Chr.5.关于语句行，下列说法正确的是(B)。.A.一行只能写一

条语句B.一条语句可以分多行书写7D};人ElFClp

C.每行的首字符必须大写.D.长度不能超过255个字符.6.表达式6+1.Mo.4*2+1的值是

(A)..A.9B.11.C.1,D.3.7.以下可以作为Visua.Basi.变量名的是(B)..

A.SIN..B.CO1..C.COS(X)D.X(-l)O]DplWQW._,GnA

8.表达式Abs(-5)+Len("ABCDE")的值为(C).T0{L]q5'口2口1.

A.5ABCDEB.-5ABCDE..C.10.D.08|.T)hQzV5r

9.在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注杼)，要折行书写，可以在行末使

用续行字符(A),表示下一行是当前行的继续..A.一个空格加一个下划字符(_)B.一个

下划字符(_)口《口口口*口丫口~60&2

C.直接回车...D.一个空格加一个字符(一)7A口1#1<口.]

lO.Sub过程与Function过程最根本的区别是(D)..A.Sub过程可以使用Call语句或直接使用过

程名调用，而Function过程不可以.

B.Function过程可以有参数，Sub过程不可以.*.]&I:ean)Y

C.两种过程参数的传递方式不同..D.Sub过程的过程名不能返回值，而Function过程能够通过过程

名返回值..11."X是小于8。的非负数"，用VB表达式表示正确的是(C)..A..0W

X<80..................B.0<=X<80.C.0<=.an.x<80................口.0〈=.01<80.12.在设计菜单口寸,如

果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为(.)DSD\.y!T(Z)u

A.加号(+)..B.减号(-).C.星号(*).D.感叹号(!)UF8bDVElmn'M

13.如果要在程序中显示一个弹出式菜单，那么要调用Visua.Basic中提供的方法是

(D)..A.Print...B.Move...C.Refresh.D.PopupMenuLC.[Dk:v

14.下列可以用来存储图像供其他对象使用的控件是

A.Toolbar..B.StatursBar..C.ImageList.D.TreeViev/DZ-\Dj*e$?Df-T9Y2Z

15.当单击工具拦上的按扭时，会触发的事件走

A.ButtonClick..B.Change.C.Load..D.KeyPress.16.要利用公用对话框控件来显示”£开文

件”对话框，需要调用控件的(.)方法.口旧*

ul.O

A.ShowPrinter.B.ShowCpen.C.ShowSave..D.ShowColorno!GD@$.|B

17.对于窗体级变量，卜列说法中错误的是(.).W(Z]m#B-n,A)w-n

A.所在窗体的各子程序都可以访问7w:{E]yDH8f-fOPS

B.其他窗体的子程序不能访问.

C.所在窗体发子程序不能访问用Private定义的窗体级变量

D.一定要在所在窗体的通用区内定义

18.从一个字符串中的第3个字符开始，获取5个字符，应使用(B)一

A.Len函数B.Mid函数C.Left函数D.Right函数

19.用下面的语句所定义的数组的元素的个数是(D).

DimA(-3To5)AsInteger#L8]DVoDC+x

A.6B.7C.8D.9nj.ZDiDM7)#y2oY!K

20.有如下程序段:$1/1DcD|(x${Oq

DimstrlAsString*5I(aDBSL6u/f

Strl="VisualBasic"

当该段程序被执行完时，变量strl的值为(B).7W0O2O}5q&@Z

A.”Visual”BJ'Visua“C.“V“D."VisualBasic”hn\:u9A5'C

二、填空题s.KDFOf口？*m[D@JJ□人

1.菜单一般有」u]下拉式[/u]_和」u]弹出式[/u]_两种基本类型。a?npnv-?

2.通用对话框控件可显示的常用对话框有一[u]打开[/u]_、_[u]保存[/u]_、—[u]颜色[/u]_、_[u]

字体[/u]_、_[u]打印[/u]1_0{DbninWw)xDBOi

3.组合框具有_[u]文本框[，u]_和—[u]列表框[/u]_两种控件的基本功能。

4.要使数组的默认下标从“1开始，则应在窗体或标准模块代码的声明部分使用语句_[u]OptionBase

l_[/u]o□-"<-h._DxCP

5.调用Sub过程时，使用_[u]call」/u]_语句，语句用于把程序控制传送到一个VisualBasic的Sub

过程。

6.若已建立了Forml和Form2两个窗体，默认启动窗体为Forml。通过」u]工程[/u]_菜单_[u]

属性一[/u]命令的」u]通用[/u]一选项卜，灯将启动窗体设置为Form2c在程序中若要显示Forml窗体，

则执行」u]Forml.show[/u]_语句。口乂,丁口12H0G#|Danw

7.列表框中项目的序号是从」u]0[/u]_开始的。sDn!^s$_6e3iay

8.Sub过程与Function过程最根本的区别是[u]_Sub过程名无返回值，Function过程名有返回值[/u]°

9.VB的代码存储在模块中。在VB中提供了三种类型的模块：」u]类模块[/u]_、」u]窗体模块[/u]_

和」u]标准模块

10.使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体—[u]卸载[/u]_,被调

用的窗体中的属性等已处于」u]内存中[/u]_0&PDj口？iKL*R6nKOG

11.将下列数学式子写成VisualBasic表达式。

(1)答：2*cos(a)*sin(a)/(2*a)

⑵答:sqr(s*(s-a)*(s-b)*(s-c))

(3)sin450:[u]sin(45*2*3.1415/360)[/u]_

12.将下列数学式子各条件写成VisualBasic逻辑表达式。

⑴1WXV12:l<=xandx<12

⑵A+B2C或a-cWc:(A+B)>=COR(a-c)<=c

(3)a和b都为正整数或同为负数：(a>=0andb>=0)or(a<=0andb<=0)

13.设A=2,B=3,C=4,D=5o表达式NotA<=COr4*B八2AndB<>A+C的值为

_[u]False[/u]_.!gDztDq&W-|

14./i：VisualBasic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用」u]For…

next[/u]_W；若要求先判断循环进行的条件，可使用」u]Dowhile…loop[/u]_循环或_[u]while…

Wend[/u]_循环。

15.以下语句的输出结果是_[11]3[/11]_。

a%=3.14159DB$M!H"'%GX

Printa%.n9q'A2R"s.e

三、阅读下列程序，写出程序运行结果。4Hn'7A!BOX$J

1、PrivateSubForm_Click()

StaticSumAsInteger:Q&Od-n-{4l-oDt

For1=1to1005s)l207wDcRDK?*HDW!qai

Sum=Sum+I

NextI

PrintSum□T6h+\#a"P&0c9v

EndSubOZnUDLDb:A&fDp

程序运行结果为:1+2+…….+99+100=5050-D#fDwa|QI2QD|

2、privateSubForm_Click()□'DkDt5H-rL6w9B'H:|

A=10:b=15:c=20:d=25

PrintA;Spc(5);b;Spc(7);cDF(l!gnj'UnzW-Fm3l

PrintA;Spc(8);b;Space$(5);c

Printc;Spc(3);M+”;Spc(3);c+d

EndSub

10(5个空格)15(7个空格)20EkOvLlNN$j6G

10(8个空格)15(5个空格)20

20(三个空格)+(三个空格)45

3、PrivateSubForm_click()SDjninw9GV!K:J6人

Fori%=1to3

Forj%=1toi

PrintLTrim(Str(i%))+U*M+LTrim(Str(j%))+“="；i%*j%;

Nextj%

Print

Nexti%

EndSub,V

1*1=1:EcnN:()k

2*1=22*2=4

3*1=33*2=63*3=90N2_f0cnu)P5H

□}DA7tn[Dc4Nai*A-E

4.PrivateSubCommandl_Click()Dh

Dima,bAsInteger2NDDsDTng;n%BlzWa

A=3.4nLQI&H-l(?

B=3.4

J”X3N

4X9N

j%y)a,dS!..bfw」d

9十3口3口。2口9：]口$口【-C*Io±T=CJOd

(I-Tl)qe14uud

S3T=IJOj

nl□n□e□qsn[0>P!|：)一UJ」5^qns己更八四名

b9QzA(VD\Cd：b/£士警34X91

t'£生智T4X91

qnspug

q=4X9i-34X91

e=)X3_LBX3_L

hDh[:IQh

EndSub

*

***

*****

********

*本**木**木*□§口

四、程序设计题□qda(}CL5@&hlZ)E

1.购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物(口在

100元以上者，按九五折优惠；(2)在200元以上者，按九折优惠；(3)300元以上者，按八折优惠;

(4)500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Textl中输入购物商

品总金额，单击命令按钮，在Text2中输入优惠后的价格。程序运行结果如图解所示。

IfVal(textl)>=500thentext2=Val(textl)*0.7

ElseifVal(textl)>=300thentext2=Val(textl)*0.85

ElseifVal(textl)>=200thentext2=val(textl)*0.9r/[.eDsE-H8PDI

Elseifval(textl)>=100thentext2=val(textl)*0.956L,XDV(]!uQ[#I$xv

Endif

$LWDD;bS(Z

2.输出100~200之间不能被3整除的的数，要求用Do语句的一种形式来实现，程序运行结果如图5所

示。|□E5q□Im%r,m

窗体的装入事件中加入如下代码：

Dimaasinteger

A=1000FOH:m$IwBgDl

Dowhilea<=200

If(amod3)<>0thenn^!J.DnzDo#M7pd%A

Listl.additenstr(a)+Jm

Endif

A=a+1

loop#PDIDxmnP;Pnr5FXn]

3、编写程序,打印如下的乘积表:

)E5Z#A0?2zQT7K

DimI,jasinteger4TADTOxOrnkDI

Print"*w:space(5):!TDQDW)0!fDQ+m"k

Fori=3to12step3*@nKnE)I3sls-f

Printstr(i);space(5);s

Nexti

Print

Fori=15tol8

Printstr(i);space(3);a3k+e/'s.k8plS

Forj=3to12step3

Printstr(i*j);space(4);)d%mD~HhDNP

Nextj

Print6@dv□人

bQ{6k$}

Nextj

M%wDzDQyD{Cd;b

4、设计•个计算程序。该程序用户界面如图7所示。要求程序运行后，用户选中单击选按钮，则程手作

10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的

相加，计算结果12在文本框中显示出来。按结束,则退出。

乘法单选按钮的单击事件中添加如下代码：SDIO$r,CnoDQ

Textl=10*2D?&_!Lr5?

除法单选按钮中添加如下代码：□l#dMloO[

Textl=10/2

加法单选按钮中添加如下代码：

Textl=10+2

减法单选按钮中添加如下代码：textl=10-2/0zDp@nEkDq)q

结束按钮中代码：end或unloadmeOI3}ajy.lOB+D(anU7K@

5、编写输入一个0~6数字，显示汉字对照输出星期的Function过程。程序运行结果如图8所示。

文本框的change事件中代码如下：

Selectcaseval(textl)

Case0

Labell.caption=w星期天”+chr(13)+”(Sunday)"!T#[*t7jO|

Case1

LabelLcaption="星期一"+chr(13)+”(monday)"~..

Case2_

Label1.caption-星期二"+chr(13)+”(Tuesday)”

Case3_

Labell.caption="星期三"+chr(13)+”(Wednesday)”

Case4

Labell.caption="星期四"+chr(13)+〃(thursday)〃

Case5

Labell.caption=〃星期五"+chr(13)+”(firday)”

Case6

Label1.caption="星期六"+chr(13)+”(saturday)”

Endselect

6.编写一个程序，当鼠标移到Picturel控件时，鼠标指针改变形状：当在Picturel控件上单击

鼠标右键时，通过消息框显示“Youpressedrightbutton",并再次改变鼠标指针的形状。

Picturel_mouseupOv8w"_.jDiDn?

Ifbutton=2then

1=1

Msgbox”youpressedrightbuttonM{□y8Y$|4[nv-SQ

Endif

Endsub

7、列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择

列表框中某一项时，按''删除"按钮，从列表框中删除：当列表框中某一项时，按“修改”按钮，把列表框

中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按

钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图9所示。

0?CM$r"S,yDs2I

J

添加按钮代码：listl.additemtextl.textSxOEnAnFns(y2Q6mnTDPCL{

Textl.text=M"'FM6rvOC8C

删除：iflistl.textv>""then

Listl.removeitem=listl.listindexfO%P1TgCnON6|

b/\

Endif„

修改:

Ifcommand3.caption=''修改"then

Textl.text=listl.text

Command3.caption="修改确认”

Else

Ifcornmand3.caption="修改璇j认“then

Listl.list=listl.listindex>=textl.text

Command3.caption="修改"

Endif

Endif

佩因力零发表于2007-11-1416:31

作业..一、选择题'A4olx[IlZZ]w[I]o（人

c

1、Visibl.Basic根据计算机访问文件的方式将文件分成三类，其中不包括（B）5[:w-'□1%...n

A.顺序文件.B.Unix文件.C.二进制文件.D.随机文件.P'HIZIW..BOA!D!f.M

2、随机文件进行文件读取的单位是（B）,L*.f2l"V

A.字节..B。记录.C。整个文件..D.字符.3、为了使目录路径列表框Dirl的内容符合驱动器列表框Drivel

的选择,应当（B）..A.在Dirl_Click事件中加入Dirl.Path=Drivel.Drive.B.在Drivel_Click事件

中加入DirLPath=Drivel.Drive-cD.r-P;.K"?ElE

C.在Dirl_Click事件中加入Drive1.Path.Dir1.Drive.D.在Cirl_Click事件中加入

Drivel.Path.Dirl.Drive.4,为了使drivel驱动器列表框、dirl目录路径列表框和filel文件列表框能

同步协调工作,需要在（B）.A.drivel的Change事件过程中加入drivel.Drive=dirl.Path,在dirl

的Change事件过程中加入cirl.Path=filel.Path代码。3yA-kD]DQ（z#r#b%?no:?

B.drivel的Change事件过程中加入dirl.Pat..drivel.Drive,在dirl的Change事件过程中加入

filel.Pat.=dirl.Path代码。.C.dirl的Change事件过程中加入dirl.Pat..driveLDrive,在filel的

Click事件过程中加入filel.Pat.=filel.fileName代码。.D.dirl的Change事件过程中加入

dirl.Pat..drivel.Drive,在filel的Click事件过程中加入filel.Pat.=dirl.Path代码。.5、下面关于顺

序文件的描述正确的是（A.K3r90（Z]N"TE]g

A.每条记录的长度必须相同2QL]j（Z]N

j2r0\

B.可通过编程对文件中的某条记录方便地修改口上6]9n5P.sDH7|

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

杂.6.KILL语句在VB语言中的功能是（C）。.A.清内存..B。清病毒.C。删除磁盘上的文件..D。清屏

幕6y;J2?CLj+fC]OL]T4V

7、可用来改变坐标度量单位的是（D）2?（人口@口卜1..｝国

A.Drawstyle属性.B.DrawWidth属性.C.Scale方法.D.ScaleMode属性

lElhElYl'DoElelZIn.V

8、以下的属性和方法中，可重定义坐标系的是(C)-K9eUg3L%kO.eA.Drawstyle属性.B.DrawWidth

属性..C.Scale.Q.ScaleMode属性.PC]h];Y[Z]W口)口1-1

9、当用Line方法画直线后，当前坐标在(C)・Z&w-cf/]&Z+J(ZlJZIW

A.(0z0).B.直线起点.C.直线终点.D.容器的中心.10、Lin.(200.200)-Step.500.500)将在窗体(C)

画一直线。9pDm+Kle4U"H

A.(200.200)到(500.500)..B.(200.200)到(300.300):.xlJO-F-HEl\/jlGIZIy

C.(200.200)到(700.700)..D.(300.300)至iJ(500.500).11.设置对象的边框类型的属性是

(B)..A.Drawstyle.B.Bcrderstyle.C.DrawWidth.D.ScaleMode.12.为了清除图片框Picturel

中的图形，应采取的正确方法是(B).A.选择图片框，然后按Del健.B.执行语句

Picturel.picture=LoadPicture(MM)nR(@$B*)nkOBDJhni

C.执行语句PictureLpicture."".D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键.13、

绘制多种形状的图形，需要设置Shape控件的(A)属

性。...A.Shape.B.Borderstyle.C.FillStyleD.Style.14.绘制多种形状的直线,需要设置Line

控件的(B)属性。...A.Shape.B.Borderstyle.C.FillStyleD.StyleD[Do2G$unACP%[:q-

b)T4b

15、如果准备读文件,打开顺序文件“text.dat”的正确语句是(C).A...ope.

4,text.dat.fo.writ.A.#l.B...ope.4<text.dat.fo.BinaryA.#13.l8}DO3L+a;x+m

C...ope.<4text.dat.fo.InputA.#1.D..ope.44text.dat.fo.RandomA.#1.16、如果准备向随机

文件中写入数据，正确的语句是(C)9jQe&w+]4W4n#a3p

A.Prin.#l.rec.B.Write#l.recC.Pu.#l.rec.D.Ge.#1.rec.17、下列“CommandDialogl”控

件程序代码，CommandDialogl.Action=l/代表(B).A.文件另存为.B.打开文件C.色彩.D.打印

□OD.q4.Q

18、FileFilter.Pattern=w*.bat.程序代码执行后，会显示(A)….只包含扩展文件名为"*.bat”的文

件..B.第一个bat文件.C.包含所有的文件..D.会显示磁盘的路径.19、卜列数据对象模型中采用OL.DB

访问数据库的是(C3.A.DA。B.RDO.C.ADO..D.RDO和ADO.20.设ADOrs为Recordset对乳从

“学生基本情况表”中获取所有记录的语句是(B).A.ADOrs.Ne."Seleu.Fro.学生基本情况表”

2AD~!q,tDg

B.ADOrs.Ope."Selec.Fro.学生基本情况表”;g(w']DrD|#Llz%C

C.ADOrs.Execut."Selec..Fro.学生基本情况表”.D.ADOrs.Selec.”Selec..Fro.学生基本情况表”

2@7nQJD'□..o$pQ@-W

21、VB中将变量xl声明为Excel应用程序对象的方法是

(A).A.Di.x.A.Excel.ApplicationB.Di.x.A.Excel.WorkbookDg(pnjn{D<nK

C.Di.x.A.Excel.Worksheet.D.Di.x.A.Excel.Worksheets.二、填空

题：)口丫**口(:口~口\/7口1%>口口(人)i

1、如果要新建一个顺序文件,用Open语句时，操作方式关键词.outpu.。.2.在V如ua.Basic程序中实

现复制文件“C：\^^到D:盘根目录下的语句口0.RD..i2f

.filecopy"c:\"d:\.0.3.在Visua.Basic程序中实现删除文件"D:\tem.tmp”的

语句为_kil."d:\tem.tmp.。.4.按文件号为1打开顺序文件SEQNEW.DAT,用于写入数据，语句.为

___ope.nSEQNEW.DAT.fo.outpu.as…*E%e"POk)tn.S&B

5.按文件号为2打开顺序文件SEQOLD.DAT,用于从该文件读出数据,语句为—ope.”

5£(^01_口.口八「1:0」叩11刀.#.。.6,若窗体的左上角坐标为(-200,250),右下角坐标为(300,-150),则X轴

的正向..,Y轴的正向.上_0.7.Stretch属性设置为_false」j，图像框可自动改变大小以适应其中的图形..8.

在图片框Picturel中画一个左上角在(500,500),边长为500的红色实心正方形的语句为

_picturel.lin.(500,500)-step(500,500).vbre..B.o.9.设.CurrentX=50,CurrentY=100,执行指

w

line(100,20)-Step(300/500)后,Current=_(400,520)_..10.使用ADO模型时，可通过

_ActiveConnect_属性建立Recordset和Connection对象的连接..11.VB中将数据库分为本地数据库.

远程数据库和_外部数据库一三种类型..12.采用ADO模型时，当使用Open方法打开一个记录集后，与

ADOrs.Fields(“学号”)等效的语句是_ADOrs(“符号”)_..13.ADO模型中一般可通过Connection

对象的Execute方法执行―增加_、—删除_、一修改一等三类不返回结果集的SQL语句..14.设

StrSQL.Strl为字符串变量，其中Strl的值为“001”，那么执行赋值语句S"SQL="

Selec..fro.Tabel.Where学号='"+Strl+”'”后,StrSQL的值等于」select..fro.tabel.wher.学

号='001'15.在VB中，将Foxpro称为外部数据库,Access称为_本地数据库一SQ.Server称

为—远程数据库—..三、程序设计题□DWEIY'HOfCOz+fIZIKEl.R

1、在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框。要求程序运行后，驱动器列表框

Drivel的默认驱动器设置为C盘，选择Filel中所列的确图片文件(*.Bmp和*Jpg),则相应的图片

显示在图片框Picturel中。程序运行结果如图10所示。.解：依据图10设计界面，文件列表框的pattern

属性设置为：*,Bm..*.jp.wDCD|8m;mnR

驱动器列表框的change事件中添加如下代

码：.chdriv.drivel.drive.dirl.path=drivel.driveDyDF-X

目录列表框的change事件中添加如下代码：

chdirdirl.path

filel.path=dirl.pathDkDeD|4|%w0j5d

文件列表框的click事件中添加如下代码："C/U1@2GDU/M

picturel.picture=loadpicturefilel.filename

2.余弦曲线的方程为y=cosx,画出x从-2到2的确余弦曲线，并在坐标轴上标出刻度,如图11所示。

如图窗体的单击事件中添加如下代码：

Forml.scale(-2*3.141594)-(2*3.14159,nk'LD?x

Forml.line(-2*3.14159,0)-(2*3.14159/0)!m!)lQDf0G)z.QDBH

Forml.line(0,1)-(0,-l)nq!M+qnJzOC-j

Y

Forml.currentx=0.2：forml.currentY=-0.1:print"0"

G4B:zC[DS

Forml.currentx=-3.2：forml.currentY=-O.l:print"-pi”

Forml.currentx=3.3：forml.currentY=-O.l:print"pi”~DI9_De-\;EOV*G

Forml.currentx=-6.2:forml.currentY=-O.l:print"-2pi”

Forml.currentx=5.7:fo-ml.currentY=-O.l:print”2piv

Forml.currentx=0.2:fo*ml.currentY=0.5:print”0.5”

Forml.currentx=0.2:fo-ml.currentY=-0.5:printw-0,5M□|DfPOu8f*]:p

ForI=-6.282to6.282step0.08

Forml.pset(I,cos(I))

NextI

-[□uDgDt/FD~

3,使用Line控件显示宣线，并且可以显示直线的线宽和线型.程序运行界面如图12所示.

如图添加代码如下!l・ilz)U2zr+?"'f>Cp

复选框的单击事件代码：0wOkE)ii;[l\#QW

Ifcheckl.value=1then*~nr,N6R,clL"Z3f(wnt

Linel.borderwidth=4

Else

Linel.borderwidth=1

Endif'[6D(D7[

E

u-]8@nADL2E4D-[

实线、虚线、单选框要弄成•个optionl单选框控件数组。单选框单击事件代码:

Selectcaseindexnk#]Cs:SDS-x

Case0+L&WDV"OaN"rlr4?

Linel.borderstyle=lh-@L%vE

Cas.1□j&]nwnW$I2HDR%F:p&_

Llnei.borderstyl..23P)R-tnT&P

x

Cas.2.Linel.borderstyl..3EDIDh8d;R&'DK&dDKD]3s/O

En.select.4.使用Shape控件显示几种图形，并可以设置图形的边框和填充效果等.程序运行界面如图13

所示..首先按图作出程序界而。形状框架里的单选框要做成optionl控件数组，边框类型框架里的单选框

最成option2控件数组，填充风格框架里的单选做成option3控件数组。□o*CD]0v$c"k+'

Optio.l单击事件代码如下：口环13讨0}(9.2口「口'

'3s:FCI

Selec.cas.index(.iDS5l)W-.W.F$M，A

Cas.O.Shapel.shap..O.Cas.in.JDX$wOmh$.W#.K

Shapel.shap..l.Cas.2.Shapel.shap..3Db"h

o8c.u)inunNngnv3{D]

Cas..uDI];XFB+h

Shapel.shap..4nqnBOODpD|

En.select.Optio.2单击事件代码如下：.Selec.cas.indexCLa9.WC]F

Cas.O.Shapel.borderstyl..OzYDG!m"Vn'-~*0ncDn(y

Cas..dnB-CDCD~aA&i-N(j

Shapel.borderstyl..24bDY3{CZD.I3_DE;j5T

Cas.2nB'pn|*R%Qz

Shapel.borderstyL.l.Cas.34kO}D\)IDc"Gni5r4-z

Shapel.borderstyl..3....Cas.4.Shapel.borderstyl.=4.En.select.Optio.3单击事件代码如

下：..Selec.cas.inde.VDD匚{7@口".

Cas.0$N8.U+.SnMng7m

Shapel.fillstyl..l.Cas..<Dp'E![n_$H!SO~Diae%Q

Shapel.fillstyl..l.Cas.2,Shapel.fillstyl..3!J-MDn;J8{;J7]3sn.mq

Cas.3.Shapel.fillstyl..6n.Sn.ZDB%HnpawaP

En.selec.jDb5T|8HDG

5.使用SQ.Server或Access建立名称为“学生的数据库，并在其中创建“students"的数据库表,其结构

及初始记录如表1所示.使用ADO对象和MSFIexGrid控件设计数据库列表显示程序.程序的设计界面和

运行结果如图14、图15所示。匚^口'/口口13口人5b

.......表1.学.姓,专..200400.张徽件专.)ZLI]$P|[ZlHt]](DcA3'Elv

200400.李.会计专..200400.王.软件专「(NwUnElj.声名对象变量ADOcn,用于创建与数据库的连

^.Privat.ADOc.A.connection.ReadfromtableO[%,e4U-aleD~

Privat.su.readfromtable.)3[4-BDwDvn{ne&?

A

Di.strtm.A.string*Gn.?a]&Dm7JzUF(Dnu

Di.ADOr.A.ne.recordsetDd3[Cod.W*h(Z

ADOrs.activeconnectio.=ADOcn.ADOrs.ope.''select*^©.student.orde.b.

.MSFIexgridl.clear.MSFIexgridl.row..onS5C%..tO@ng2Y

MSFIexgridl.col..3nc/.i!@

Strtm..“学号”+vbtab+“姓名"+vbtab+“专

业”.MSFIexgridl.addite.s:rtmp.D.whil.no.ADOrs.eofvnjnCD.e,|

Strtmp=ADOrs(“学号”)+vbtab+ADOrs(.姓名")+vbtab+ADOrs(“专业”)口0口~1_口6火

MSFIexgridl.addtte.strtmpDmDr+]npnu)..jCd

ADOr.movenextD^Dc.q4KnM

Loop*ghUq8{EIM□乙A

MSFIexgridl.fixedcol..0nv.'iOF;F8[3N

MSFIexgridl.fixedrow..l.En.sub.Privat.su.form_load().D.strD.A.string.strDB=H

provider=SQLOLEDB;LSF;Use.ID=sa;password=;database=?r:

生”.i.ADOc.i.nothin.then"s/r.xP

se.ADOcn=ne.connection.ADOcn.ope.strDBDu)MDU$}D[4j

En.if+I;W,HDvzinwDL

Readfro.tabl._,nDizfni:..V

En.subuDq8]3K2A&,Oo+O

Pmandl_click()no;g-}F:j

Unloa.me.En.su.

佩因为零发表于2007-11-1416:32

作业4

一、选择题

1.WinsockServer.LocalPcrt=10001语句的含义是（A）（□rCzDD7lewo2[

A.设置侦听端口B.设置计厚机IP地址C.设置中断地址D.设置通讯协议DNbQZlR-TOI\

2.当Winsock控件处于关闭状态时，其State属性的值是（B）°&U-aDBDh@np#O!n

A.lB.OC.2D.60z,|

3.相对于UDP协议而言，TCP协议是一种（A）.

A.面向连接的协议B.无连接协议C.计算机间不建立连接D.适用于传送少量数据

4.VB程序中通常不会产生错误提示的（D）。

A.编译错误B.实时错误C.运行时借误D.逻辑错误

5.VB程序的编译错误一般可通过VB集成环境的何种设置自动检测（B）o

7cnc4?%vnRnA/_-[nq

A.要求变量声明B.自动语法检测C.自动显示快速信息量D.根本无法自动检测9S!x"n#B{loDhDv

6.VB程序中设置断点的按键是（C）。

A.F5键B.F6键C.F9健D.F10键口？"wEIH+ehf:GUu-U&b

7、OnErrorGoToErrLB语句中，ErrLB的含义是（A）。m'tOECI+sDcDM

A.行标识号B.SUB过程名C.FUNCTION过程名D.错误号Dbg&IdntJUdg

DDK"]nn7{

8、Err对象中，用来表示错误描述的属性是（B）。/q3x"AVDn-QOZ

A、ErrNoB、DescriptionC、NumberD、Sotrce

二、填空题。

1、使用Winsock控件时，一旦有数据到达，将首先触发该控件的DataArrival事件。而如果要发送数据,

则通常使用该控件的senddata方法。

2、Winsock控件主要用来编制或基于TCP/IP经UDP协议的通话程序。

3、ActiveXEX文件的后缀是exe。□pOiLJ'OD.gCR_

4、COM对象有两种类型接厂，即标准接口和用户接口.

5、如果希望得到本地计算机的IP地址，可以使用Winsock控件的locallP属性。

6、Winsock控件的BytesReceived属性返回接受到的数据，通常使用getdata方法来获取这些数据/°

7、Winsockl.Listen语句的含义是使服务程序处于侦听状态等待客户访问。□OQ|Dq-t#^CT3e

8,常用中的VB网络编程控件主要有Winsock、InternetTransfer.WebBrowser二种。

□MDDOAnV9D!x-n

9、VB中的程序错误类型主要有编译错误、逻辑错误、实时错误等三种。C@"_*lX+q9onnn|:a

10、VB中用于关闭错误捕获机制的语句是onerrorgoto0。

三、问答题。

1、简述基于Socket的通信过程。

Socket在计算机提供了一个通信端口，可以通过这个端口与任何一个也同时具有Socket接口的计

算机进行通信，应用程序在网络上传输、接收的信息都通过这个Socket接口实现，只需要对Socket接口

进行数据的读写操作就可以了。

2、简要设计错误处理程序的3个步骤。

<1）捕捉错误，并强制程序跳转

<2）编写错误处理程序，对所有可预见的错误作出反应

（3）退出错误处理程序

3、简述常用的程序调式技巧

<1）事先做好备份Lj"?f;g（FOu

（2）分离受怀疑的程序:p/@DE4wL]V"fllmLI\

（3）缩小搜索范围□八+R!M3J6]9RC]u[Z]@EIX

E

(4)使