2021年度电大VisualBasic程序设计形成性考核册参考答案

《VisualBasic程序设计》形成性考核册作业及答案

《VisualBasic程序设计》形成性考核册作业及答案

作业1

一、选取题

1、在设计应用程序时，可以查看到应用程序工程所有构成某些窗口是（D）。

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

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

A、顾客单击窗体时B、窗体被加载时C、窗体显示之后D、窗体卸载时

3、与老式程序设计语言相比，VisualBasic最突出特点是（C）。

A、构造化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术

4、VB6.0集成开发环境主窗口中不涉及（C）。

A、标题栏B、菜单栏C、状态栏D、工具栏

5、如果对象名称为Mytext,并且对象有一种属性Text,那么在代码中引用该属性对的格式是

（B）。

A、text.MytextB、Mytext.TextC、Mytext.（Text）D、Mytext*Text

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

A、用鼠标双击窗体任何部位B、执行''工程''菜单中"属性窗口''命令

C、按Ctrl+F4D、按F4

7、假定已在窗体上画了各种控件，并有一种控件是活动，为了在属性窗口中设立窗体属性，

预先应执行操作是（A）。

A、单击窗体上没有控件地方B、单击任一种控件C、不执行任何操作D、双击窗体

标题栏

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

A、CaptionB、PasswordCharC、TextD、Char

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

ALockedB、MultiLineC、TabStopDVisible

10对于定期器（Tiner）控制，设立其定期与否启动属性是（C）

A^IndexB、TagC、EnabledD、Left

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

A、Form.caption=''myfrm,zB,Fornl.caption=''myfrmM

Cforml.print''myfrm"D、form.print'、myfrm”

12、对象性质和状态特性称为（C）

A、事件B、办法C、属性D、类

13、下列对的赋值语句是（B）

A、x+y=20B、y=x+20C、3x=yD、s=

14、当使用上下文有关协助时，选取要协助内容，然后按（D）键，就可浮现MSDN窗口直接

显示所需协助信息。

A、HelpB、F10C、EseD、Fl

15、将调试通过工程经''文献"菜单''生成.exe文献''编绎成名.exe后，将该可执行文献放到其他

机器上不能运营重要因素是(D)。

A、运营机器上无VB系统B、缺少.frm窗体文献C、该执行文献有病毒D、以上因素

都不对

二、填空题

1、当进入VB集成开发环境后，发现没有显示''工具箱"窗口。应选取视图菜单工

具箱选项，使''工具箱"窗口显示。

2、在VB中，事件过程名由对象名和事件名构成。

3、工程文献扩展名是vbp,窗体文献扩展名是frm。

4、对象时代码和数据集合，例如，VisualBasic中窗体、按钮、

文本框等都是对象。

5、对象办法用于实行某种操作功能。当办法不需要任何参数并且也没有返回值，调用对象

办法格式为对象名.办法名。例如对窗体Forml使用Show办法，应写成form1.show。

6、要使文本框显示滚动条，需要将其ScrollBars属性设立为3。

7、欲设立定期时间间隔为4秒，则属性Interval值为4000。

8、要使标签框大小随Caption属性做自动调节，应将AutoSize属性设立为True。

9、通过窗体布局窗口可以在设计时直观地调节窗体在屏幕位置。

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

是txtshow.text=,,GOODWORK!"。

11、若命令按钮名称为Cmdopen,程序规定单击以上命令按钮，打开一种窗口frml,请对如下

事件过程填空。

PrivateSubCmdopenclick()

Frm1.show

EndSud

12、事件就是对象上所发生事情，VisualBasic中事件如单击、装入、

鼠标移动等。一种对象响应事件可以有多个，顾客不能建立新事件。事件过程是指响应

某个事件后所执行代码。假设某一事件过程如下：

PrivateSubcmdl_Click()

Forml.Caption=,,VB示例"

EndSub

则响应过程对象名是cmdl,事件名是Click。

13、对象办法用于在对象上实行某种操作功能。当办法不需要任何参数并且也没有返回值，

调用对象办法格式为对象名.办法名，例如，对窗体Forml使用Show办法，应写

成Forml.Show。

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

命令，打开选项对话框，然后选取''编辑器"选项卡中自动语法检测。

15、定期器(Timer)控件可辨认事件是Timer,了生该事件时间间隔定期由定期器Interval

属性设立，其单位为毫秒。

三、问答题

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

答：可视化编程是指不必编程，仅通过直观操作方式即可完毕界面设计工作这种编程方式。

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

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

式。

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

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

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

办法是对象要执行动作。

事件是在对象上所发生事情。

3、简述事件驱动机制与老式编程方式不同。

答：老式面向过程应用程序中，应用程序自身控制了执行那一某些代码按何种顺序执行代码，

程序从第一行代码开始执行并按应用程序中预定途径执行，顾客无法变化程序执行流程。而事

件驱动机制则由顾客来决定执行路线。这就是两者不同。

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

答：事件驱动工作过程如下：(1)启动应用程序，装载和显示窗体。(2)窗体或窗体上控件

等待事件发生。(3)当某个事件发生后，执行其相应事件过程代码。(4)重复执行(2)和

(3),直到遇到END语句或单击''结束"按钮停止程序运营。

四、程序设计题

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

和''显示文本框“。当单击第一种命令按钮时，文本框消失；而当单击第二个命令按钮时，文本

框重新浮现，并在文本框中显示''VB程序设计”(字体大小为16)。程序运营界面如图所示。

图1

解：''隐藏文本框"按钮中代码为：Textl.Visible=False

''显示文本框“按钮中代码为：Textl.Visible=True

Textl.Text="B程序设计”

Textl.FontSize=,,16H

2、设计一种计算程序。该程序顾客界面如图2所示，由四个文本框：文本框1(textl)、文

本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮：命令按钮1(command!.)、

命令按钮2(command2)、命令按钮3(command3)构成。程序运营后，顾客按清除按钮，

则清除文本框中显示内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。

解：commandl中代码为：textl=""：text2=""：text3=,w：text4=""

command2中代码为：text4=(val(Textl)+val(Text2)+val(Text3))/3

command2中代码为：End

3、编写一收款计算程序。规定顾客输入商品''单价"、''数量"和''折扣''后，单击''计算''按钮显示''应

付款"，单击''清除"按钮，清除文本框中所有数据。程序运营界面如图3所示。

答：''计算"按钮代码：text4=val(Textl)*val(Text2)*val(Text3)/100

''清除"按钮代码：textl="Jtext2="Jtext3="Jtext4="”

作业2

一、选取题

1.按照变量作用域可将变量划分为(B)。

A、公有、私有、系统B、全局变量、模块级变量、过程变量

C、动态、常数、静态D,Public,Private,Protected

2.可获得字符ASCH码函数是(C)。

A、VaiB、FixC、AscD、Chr

3、要退出Do....Loop循环，可使用语句(D)语句。

A,ExitB、ExitForC、EndDoD、ExitDo

4.把数值型转换为字符串型需要使用函数是(B)。

A,VaiB、StrC、AscD、Chr

5.关于语句行，下列说法对的是(B)。

A.一行只能写一条语句B.一条语句可以分多行书写

C.每行首字符必要大写D.长度不能超过255个字符

6.表达式6+10Mod4*2+1值是(A).

A.9B.11C.1D.3

7.如下可以作为VisualBasic变量名是(B).

A.SINB.CO1C.COS(X)D.X(-l)

8.表达式Abs(-5)+Len(''ABCDE")值为(C).

A.5ABCDEB.-5ABCDEC.10D.O

9.在代码编辑器中，如果一条语句太长，无法在一行内写下(不涉及注释)，要折行书写，可

以在行末使用续行字符(A),表达下一行是当前行继续.

A.一种空格加一种下划字符(_)B.一种下划字符(_)

C.直接回车D.一种空格加一种字符(一)

lO.Sub过程与Function过程最主线区别是(D).

A.Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以.

B.Function过程可以有参数，Sub过程不可以.

C.两种过程参数传递方式不同.

D.Sub过程过程名不能返回值，而Function过程可以通过过程名返回值.

11."X是不大于80非负数"，用VB表达式表达对的是(C).

A..0<X<80B.0<=X<80

C.0<=xandx<80D.0<=xOrx<80

12.在设计菜单时，如果要在菜单中加入一种菜单分隔条，则菜单分隔条标题必要设立为(B)

A.加号(+)B,减号(-)C.星号(*)D.感叹号。)

13.如果要在程序中显示一种弹出式菜单，那么要调用VisualBasic中提供办法是(D).

A.PrintB.MoveC.RefreshD.PopupMenu

14.下列可以用来存储图像供其她对象使用控件是(C).

A.ToolBarB.StatursBarC.ImageListD.TreeView

15.当单击工具拦上按扭时,会触发事件是(A).

A.ButtonClickB.ChangeC.LoadD.KeyPress

16.要运用公用对话框控件来显示'‘打开文献”对话框,需要调用控件(B)办法.

A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor

17.对于窗体级变量，下列说法中错误是(C).

A.所在窗体各子程序都可以访问

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

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

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

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

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

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

DimA(-3To5)AsInteger

A.6B.7C.8D.9

20.有如下程序段：

DimstrlAsString*5

Strl='MsualBasic"

当该段程序被执行完时，变量strl值为(B).

A.'Msual"B.'Msua"C.VD/VisualBasic"

二、填空题

1.菜单普通有一下拉式_和_弹出式_两种基本类型。

2.通用对话框控件可显示惯用对话框有一打开一、_保存一、_颜色一、_字体一、—打印

3.组合框具备—文本框_和_列表框_两种控件基本功能。

4.要使数组默认下标从、、1开始，则应在窗体或原则模块代码声明某些使用语句—OptionBase

1一。

5.调用Sub过程时，使用_call_语句，语句用于把程序控制传送到一种VisualBasicSub过程。

6.若已建立了Forml和Form2两个窗体，默认启动窗体为Forml。通过一工程一菜单_属性一

命令_通用一选项卡，可将启动窗体设立为Form2。在程序中若要显示Forml窗体，则执行

_Forml.show_语句。

7.列表框中项目序号是从_0_开始。

8.Sub过程与Function过程最主线区别是一Sub过程名无返回值，Function过程名有返回值。

9.VB代码存储在模块中。在VB中提供了三种类型模块：一类模块一、_窗体模块_和_原则模

块一。

10.使用Hide办法会隐藏被调用窗体，但是在调用Hide办法之后不会把窗体_卸载一，被调

用窗体中属性等已处在_内存中

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

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

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

(3)sin45°:sin(45*2*3.1415/360)_

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

(l)l<x<12：l<=xandx<12

(2)A+B>C或a-c<c：(A+B)>=COR(a-c)<=c

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

13.设A=2,B=3,C=4,D=5。表达式NotA<=COr4*B0AndB<>A+C值为_False一。

14.在VisualBasic语言中有三种形式循环构造。其中，若循环次数可以事先拟定，可使用

_For...next_循环；若规定先判断循环进行条件，可使用_D。while...1。印_循环或一

while...Wend_循环。

15.如下语句输出成果是_3_。

a%=3.14159

Printa%

三、阅读下列程序，写出程序运营成果。

1、PrivateSubForm_Click()

StaticSumAsInteger

For1=1to100

Sum=Sum+I

NextI

PrintSum

EndSub

程序运营成果为：1+2+…….+99+100=5050

2、privateSubForm_Click()

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

PrintA;Spc(5);b;Spc(7);c

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

Printc;Spc(3)/+〃;Spc(3);c+d

EndSub

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

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

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

3、PrivateSubForm_click()

Fori%=1to3

Foij%=1toi

PrintLTrim(Str(i%))+、'*"+LTrim(Str(j%))+”=〃;i%*j%;

Nextj%

Print

Nexti%

EndSub

1*1=1

2*1=22*2=4

3*1=33*2=63*3=9

4、PrivateSubCommandl_Click()

Dima,bAsInteger

A=3.4

B=3.4

Textl.Text=a

Text2.Text=b

EndSub

Textl显木3、4

Text2显示3

5、PrivateSubForm_Click()

ForI=1to5

PrintTab(11-1)

ForJ=1TOI*2-1

Print''*〃；

Next

Nexti

EndSub

*

***

四、程序设计题

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

物(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.9

Elseifval(textl)>=100thentext2=val(textl)*0.95

Endif

2、输出100~200之间不能被3整除数，规定用D。语句一种形式来实现，程序运营成果如图

5所示。

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

Dimaasinteger

A=100

Dowhilea<=200

If(amod3)<>0then

Listl.additenstr(a)

Endif

A=a+1

loop

3、编写程序，打印如下乘积表：

DimI,jasinteger

Print〃*〃:spdce⑸：

Fori=3to12step3

Printstr(i);space(5);

Nexti

Print

Fori=15tol8

Printstr(i);space(3);

Forj=3to12step3

Printstr(i*j);space(4);

Nextj

Print

Nextj

4、设计一种计算程序。该程序顾客界面如图7所示。规定程序运营后，顾客选中单击选按钮,

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

则程序作10和2相加，计算成果12在文本框中显示出来。按结束，则退出。

乘法单选按钮单击事件中添加如下代码：

Textl=10*2

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

Textl=10/2

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

Textl=10+2

减法单选按钮中添加如下代码：textl=10-2

结束按钮中代码：end或unloadme

5、编写输入一种0~6数字，显示中文对照输出星期Function过程。程序运营成果如图8所示。

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

Selectcaseval(textl)

Case0

Labell.caption="星期天"+chr(13)+”(Sunddy)”

Case1

Labell.caption="星期一〃+chr(13)+"(monday)"

Case2

Labell.c叩iton二〃星期二〃+chr(13)+〃(Tuesday)”

Case3

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

Case4

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

Case5

LabelLcaption="星期五〃+chr(13)+〃(firday)〃

Case6

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

Endselect

6、编写一种程序，当鼠标移到Picturel控件时，鼠标指针变化形状；当在Picturel控件上单击

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

Picturel_mouseup

Ifbutton=2then

1=1

Msgbox“youpressedrightbutton”

Endif

Endsub

7、列表框应用程序。规定从文本框中输入姓名，然后按''添加"按钮，把姓名添加到列表框中；

当选取列表框中某一项时，按''删除〃按钮，从列表框中删除；当列表框中某一项时，按''修改"

按钮，把列表框中选用项送往文本框且''修改〃按钮变为''修改确认〃。在文本框内容修改好后，

按''修改确认〃按钮，再把文本框中修改后信息送到列表框月.''修改确认〃按钮变为''修改程序运

营成果如图9所示。

添加按钮代码：listl.additemtext1.text

Textl.text=/W

删除：iflistl.textv>"〃then

Listl.removeitem=listl.listindex

Endif

修改：

Ifcommand3.caption=''修改"then

Textl.text=listl.text

Command3.caption="修改确认"

Else

Ifcommand3.caption*'修改确认"then

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

Command3.caption="修改"

Endif

Endif

作业3

一、选取题

1、VisibleBasic依照计算机访问文献方式将文献提成三类，其中不涉及（B）

A.顺序文献B.Unix文献C.二进制文献D.随机文献

2、随机文献进行文献读取单位是（B）

A.字节B«记录Co整个文献D。字符

3、为了使目录途径列表框Dirl内容符合驱动器列表框Drivel选取，应当（B）。

A.在Dirl_Click事件中加入Dirl.Path=Drivel.Drive

B.在Drivel_Click事件中加入Dirl.Path=Drivel.Drive

C.在Dirl_Click事件中加入DriveLPath=Dirl.Drive

D.在Dirl_Click事件中加入Drivel.Path=Dirl.Drive

4、为了使drivel驱动器列表框、dirl目录途径列表框和filel文献列表框能同步协调工作，需

要在（B）

A.drivelChange事件过程中加入drivel.Drive=dirl.Path,在dirlChange事件过程中加入

dirl.Path=filel.Path代码。

B.drivelChange事件过程中加入dirl.Path=drivel.Drive,在dirlChange事件过程中加入

filel.Path=dirl.Path代码。

C.dirlChange事件过程中加入dirl.Path=drivel.Drive,在filelClick事件过程中加入

filel.Path=filel.fileName代码。

D.dirlChange事件过程中加l入dirl.Path=drivel.Drive,在filelClick事件过程中加入filel.Path

=dirl.Path代码。

5、下面关于顺序文献描述对的是（A）

A.每条记录长度必要相似

B.可通过编程对文献中某条记录以便地修改

C.数据只能以ASCII码形式存储在文献中，因此可通过文本编辑软件显示

D.文献组织构造复杂

6、KILL语句在VB语言中功能是（C）。

A.清内存B。清病毒Co删除磁盘上文献Do清屏幕

7、可用来变化坐标度量单位是（D）

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

8、如下属性和办法中，可重定义坐标系是（C）

A.Drawstyle属性B.DrawWidth属性C.ScaleD.ScaleMode属性

9、当用Line办法画直线后，当前坐标在（C）

A.(0,0)B.直线起点C.直线终点D.容器中心

10、Line(200,200)-Step(500,500)将在窗体(C)画始终线。

A.(200,200)到(500,500)B.(200,200)到(300,300)

C.(200,200)到(700,700)D.(300,300)到(500,500)

11、设立对象边框类型属性是(B)。

A.DrawstyleB.BorderstyleC.DrawWidthD.ScaleMode

12、为了清除图片框Picturel中图形，应采用对的办法是(B)

A.选取图片框，然后按Del键

B.执行语句Picture1.picture=LoadPicture('',z)

C.执行语句Picturel.picture=

D.选取图片框，在属性窗口中选取Picture属性条，然后按回车键

13、绘制各种形状图形，需要设立Shape控件(A)属性。

A.ShapeB.BorderstyleC.FillStyleD.Style

14、绘制各种形状直线，需要设立Line控件(B)属性。

A.ShapeB.BorderstyleC.FillStyleD.Style

15、如果准备读文献，打开顺序文献、'text.dat”对的语句是(C)

A.open"text.dat"forwriteAs#1

B.open''text.datHforBinaryAs#1

C.open''text.datHforInputAs#1

D.open''text.datz,forRandomAs#1

16、如果准备向随机文献中写入数据，对的语句是(C)

A.Print#1,recB.Write#1,recC.Put#1,recD.Get#1,rec

17、下歹『CommandDialogl”控件程序代码，CommandDialogl.Action=l,代表(B)

A.文献另存为B.打开文献C.色彩D.打印

18、FileFilter.Pattern=,,*.bat,/程序代码执行后,会显示(A)。

A只包括扩展文献名为"*.bat”文献B"第一种bat文献

C.包括所有文献D»会显示磁盘途径

19、下列数据对象模型中采用。LEDB访问数据库是(C)。

A.DAOB.RDOC.ADOD.RDO和ADO

20.设ADOrs为Recordset对象，从''学生基本状况表”中获取所有记录语句是(B)

A.ADOrs.New''Select*From学生基本状况表"

B.ADOrs.Open''Select*From学生基本状况表"

C.ADOrs.Execute''Select*From学生基本状况表”

D.ADOrs.Select''Select*From学生基本状况表"

21、VB中将变量xl声明为Excel应用程序对象办法是(A)

A.DimxlAsExcel.ApplicationB.DimxlAsExcel.Workbook

C.DimxlAsExcel.WorksheetD.DimxlAsExcel.Worksheets

二、填空题

1、如果要新建一种顺序文献，用Open语句时:操作方式核心词是output»

2.在VisualBasic程序中实现复制文献、'C：\”到D:盘根目录下语句

为filecopy"c:\","d:\",,

3.在VisualBasic程序中实现删除文献"D:\tem.tmp"语句为_kill,,d:\tem.tmp/,»

4.按文献号为1打开顺序文献SEQNEW.DAT,用于写入数据，语句

为___open,/SEQNEW.DAT,zforoutputas#1。

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

—open"SEQOLD.DArforinputas#2«

6.若窗体左上角坐标为(-200,250),右下角坐标为(300,-150),则X轴正向向右，丫轴正向向上

_O

7.Stretch属性设立为一false一时，图像框可自动变化大小以适应其中图形.

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

_picturel.line(500,500)-step(500,500),vbred,BF。

9.设CurrentX=50,CurrentY=100,执行指令'1ine(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",那么执行赋值语句StrSQL=,zSelect*

fromTabellWhere学号="'+Strl+""'后,StrSQL值等于「'select.*fromtabellwhere学号

='001"'_.

15.在VB中，将Foxpro称为外部数据库,Access称为一本地数据库SQLServer称为—远程数

据库

三、程序设计题

1、在窗体上建立一种驱动器列表框、目录列表框、文献列表框、图片框。规定程序运营后，

驱动器列表框Drivel默认驱动器设立为C盘，选取Filel中所列确图片文献(*.Bmp和*.jpg),

则相应图片显示在图片框Picturel中。程序运营成果如图10所示。

解：根据图10设计界面，文献列表框pattern属性设立为：*.Bmp；*.jpg

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

chdrivedrivel.drive

dirl.path=drivel.drive

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

chdirdirl.path

filel.path=dirl.path

文献列表框click事件中添加如下代码：

picturel.picture=loadpicturefilel.filename

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

所示。

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

Form1.seaIe(-2*3.14159,1)-(2*3.14159,-1)

Forml.line(-2*3.14159,0)-(2*3.14159,0)

Forml.line(0,1)-(0,-1)

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

Forml.currentx=-3.2：forml.currentY=-O.liprint"-pi”

Forml.currentx=3.3：forml.currentY=-0.1:print"pi"

Forml.currentx=-6.2：forml.currentY=-0.1:print

Forml.currentx=5.7：forml.currentY=-0.1:print"2pi"

Forml.currentx=0.2：forml.currentY=0.5:print〃0.5”

Forml.currentx=0.2：forml.currentY=-0.5:print〃-0.5〃

ForI=-6.282to6.282step0.08

Forml.pset(I,cos(I))

NextI

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

如图添加代码如下

复选框单击事件代码：

Ifcheckl.value=1then

Linel.borderwidth=4

日se

Linel.borderwidth=1

Endif

实线、虚线、单选框要弄成一种optionl单选框控件数组。单选框单击事件代码：

Selectcaseindex

Case0

Linel.borderstyle=1

Case1

Linel.borderstyle=2

Case2

Linel.borderstyle=3

Endselect

4.使用Shape控件显示几种图形,并可以设立图形边框和填充效果等,程序运营界面如图13所

示.

一方面按图作出程序界面。形状框架里单选框要做成optionl控件数组，边框类型框架里单选

框最成option2控件数组，填充风格框架里单选做成option3控件数组。

Option1单击事件代码如下：

Selectcaseindex

Case0

Shapel.shape=0

Case1

Shapel.shape=1

Case2

Shapel.shape=3

Case3

Shapel.shape=4

Endselect

Option2单击事件代码如下：

Selectcaseindex

Case0

Shapel.borderstyle=0

Case1

Shapel.borderstyle=2

Case2

Shapel.borderstyle=1

Case3

Shapel.borderstyle=3

Case4

Shapel.borderstyle=4

Endselect

Option3单击事件代码如下：

Selectcaseindex

Case0

Shapel.fillstyle=1

Case1

Shapel.fillstyle=1

Case2

Shapel.fillstyle=3

Case3

Sh叩el.fillstyle=6

Endselect

5.使用SQLServermAccess建立名称为〃学生数据库，并在其中创立〃students〃数据库表,其构造

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

界面和运营成果如图14、图15所示。

表1

学号姓名专业

001张红软件专业

003李强会计专业

002王丽软件专业

声名对象变量ADOcn,用于创立与数据库连接

PrivateADOcnAsconnection

Readfromtable

Privatesubreadfromtable（）

DimstrtmpAsstring

DimADOrsAsnewrecordset

ADOrs.activeconnection=ADOcn

ADOrs.open''select*fromstudentsorderby''学号"

MSFIexgridl.clear

MSFIexgridl.rows=0

MSFIexgridl.cols=3

Strtmp=''学号〃+vbtab+''姓名〃+vbtdb+”专业”

MSFIexgridl.additemstrtmp

DowhilenotADOrs.eof

Strtmp=ADOrs（''学号与+vbtab+ADOrs（''姓名"）+vbtab+ADOrs（'、专业〃）

MSFIexgridl.addttemstrtmp

ADOrsmovenext

Loop

MSFIexgridl.fixedcols=0

MSFIexgridl.fixedrows=1

Endsub

Privatesubform_load（）

DimstrDBAsstring

strDB=,zprovider=SQLOLEDB;LSF;UserID=sa;password二;database"学生"

ifADOcnisnothingthen

setADOcn=newconnection

ADOcn.openstrDB

Endif

Readfromtable

Endsub

Privatesubcommandl_click（）

Unloadme

Endsub

作业4

一、选取题

l^WinsockServe「.LocalPort=10001语句含义是（A）。

A、设立侦听端口B、设立计算机IP地址C、设立中断地址D、设立通讯合同

2、当Winsock控件处在关闭状态时，其State属性值是（B）。

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

3、相对于UDP合同而言，TCP合同是一种（A）。

A、面向连接合同B、无连接合同C、计算机间不建立连接D、合用于传送少量数据

4、VB程序中普通不会产生错误提示（D）。

A、编译错误B、实时错误C、运营时错误D、逻辑错误

5、VB程序编译错误普通可通过VB集成环境何种设立，自动检测（B）。

A、规定变量声明B、自动语法检测C、自动显示迅速信息量D、主线无法自动检测

6、VB程序中设立断点按键是（C）。

A、F5键B、F6键C、F9键D、F10键

7、OnErrorGoToErrLB语句中，E「rLB含义是（A）。

A、行标记号B、SUB过程名C、FUNCTION过程名D、错误号

8、Err对象中，用来表达错误描述属性是（B）。

A^ErrNoB、DescriptionC、NumberD、Source

二、填空题。

1、使用Winsock控件时，一旦有数据到达，将一方面触发该控件DataArrival事件。而如果要

发送数据，则普通使用该控件senddata办法。

2、Winsock控件重要用来编制或基于TCP/IP经UDP合同通话程序。

3^ActiveXEX文献后缀是exe。

4、COM对象有两种类型接口，即原则接口和顾客接口。

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

6、Winsock控件BytesReceived属性返回接受到数据，普通使用getdata办法来获取这些数据

了。

7、Winsockl.Listen语句含义是使服务程序处在侦听状态等待客户访问。

8、惯用中VB网络编程控件重要有Winsock.InternetTransfer,WebBrowser三种。

9、VB中程序错误类型重要有编译错误、逻辑错误、实时错误等三种。

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

三、问答题。

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

Socket在计算机提供了一种通信端口，可以通过这个端口与任何一种也同步具备Socket

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

对Socket接口进行数据读写操作就可以了。

2、简要设计错误解决程序3个环节。

(1)捕获错误，并强制程序跳转

(2)编写错误解决程序，对所有可预见错误作出反映

(3)退出错误解决程序

3、简述惯用程序调式技巧

(1)事先做好备份

(2)分离受怀疑程序

(3)缩小搜索范畴

(4)使用MSGBOX语句

4、简述基于Winsock控件开发模式。

(1)服务器程序开发模式

(A)服务器程序必要设立好LOCALPORT,作为侦听端口，该值可设立成任意一种整数，只要其

她应用和谐没有使用过值均可，但习惯上应不不大于1000

(B)使用LISTRN办法使用服务器进入侦听状态，等待客户机程序连接祈求。

(C)客户机程序发出连接祈求后，将触发服务器程序CONNECTIONREQUEST事件，该事件

得到一种参数REQUESTID。

(D)服务器程序使用ACCEPT办法接受客户机程序REQUESTID祈求，至此，服务器程序就

可以使用SRNDDATA办法向客户机发送数据了。此时应特别注意两点：一是ACCEPT办法必

要用到上一步REQUESTID作为其参数：二是在执行ACCEPT办法前，服务器仍处在侦听状态，

此时应一方面使用CLOSE办法关闭服务器，然后再调用ACCEPT办法。

(E)当服务器程序接受到数据时，会产生DATAARRIVAL事件。在该事件中可以使用GETDATA

办法接受数据。

(2)客户机程序开发模式

(A)客户程序一方面应设立好REMOTEHOST属性，用来指向运营器程序主机名或IP地址

(B)设立REMOTEPORT属性，用来指向服务器程序和侦听端标语。

(C)使用CONNECT办法向服务器提出连接祈求。

(D)如果服务器接受上述连接祈求，客户机程序会产生CONNECT事件。可以依照需要，在

此事件中编写程序，例如使用MSGBOX函数向顾客提示''连接已成功”之类信息。

(E)连接成功之后，就可以依照需要使用SENDDATA办法向服务器发送数据了。

(F)当客户机程序接受到数据时，会产生DATAARRIVAL事件，可以用GETDATA办法接受数

据。

四、程序设计题。

1、运用冒泡排序算法开发如下程序，请指出程序中存在错误并改正。

PrivateSubCommandl_Click()

DimA(1To20)AsInteger

Dimc,j,TAsInteger'此处有错，应为Dimc,j,Tasinteger

'随机生成一组数据

Forc=1To20

A(c)=Int(Rnd*100)

Nextc

'排序

Forc=1To20

Forj=c+1To20

IFA(c)>A(j)Then

T=A(j)

A(j)=A(c)

A(j)=T'此处有错，应为A(C)=T,实现

EndIf'A(C)和A(J)互换

Next

Next

'在窗体上输出成果

Cis

Forc=1To20

PrintA(i)此处有错，应为A(C).下标越界.

Nextc

EndSub

2、运用Winsock控件开发一种点对点聊天系统，该系统由一种服务器应用程序和一种客户端

应用程序构成，可以实现网络中两台计算机间通话任务。

解：如下界面设计中，若不阐明，各对象均采用默认名称。

服务器程序界面设计

1、创立一种''原则EXE”工程。选中''工程"菜单''部件"选项，在控件中找到MicrosoftWinsock

Control并将其选中。如果没有找到，普通是由于VB安装不安全缘故，可以找到安装盘并安装

其中Mswinsck.cad压缩包。

2、将forml名称改为frmSvr,并在其中添加一种命令按钮控件，将其Caption属性修改为''退

Lh，'

LljO

3、在窗体上添加三个添加TextBox控件，分别将其名称修改为txtServerIP,txtSend和

txtReceive,用来显示服务器IP地址和需收发信息。

4、在窗体上添加一种Winsock控件，将其名称改为WinsockServer,将Protocol(合同)属性

设立为0(即sckTCPProtocol)

各控件及事件代码如下：

PrivateSubCommandl_Click()

UnloadMe

EndSub

PrivateSubForm_Load()

txtreceive.Text=""

txtsend.Text=""

Winsockserver.LocalPort=10001

txtserverip.Text=Winsockserver.LocallP

Winsockserver.Listen

EndSub

PrivateSubtxtsend_Change()

Winsockserver.SendDatatxtsend.Text

EndSub

PrivateSubWinsockserver_ConnectionRequest(ByValrequestIDAsLong)

Winsockserver.Close

Winsockserver.AcceptrequestID

EndSub

PrivateSubWinsockserver_DataArrivaI(ByVaIbytesTotalAsLong)

DimmystrAsString

Winsockserver.GetDatamystr

txtreceive.Text=mystr

EndSub

客户机程序界面设计

1、与服务器程序类似，创立一种新''原则EXE〃工程，并添加Winsock控件。

2、将forml名称改为frmCIt,并添加两个命令按钮控件，分别将它们Caption属性设立为''退

出〃和''连接聊天服务器

3、在窗体添加四个文本框控件，分别将其名修改为txtClientIP,txtSenerIP,txtsend和

txtReceive,用来显示客户机和要连接服务器IP地址以及需收发信息。

4、在窗体上添加一种Winsock控件，将其名称改为WinsockClient,将(合同)属性设立为0

(即sckTCPProtocol)

各控件及事件代码如下：

PrivateSubCommandl_Click()

UnloadMe

EndSub

PrivateSubCommand2_Click()

Winsockclient.RemoteHost=txtserverlP.Text

Winsockclient.Connect

EndSub

PrivateSubForm_Load()

txtreceive.Text=""

txtsend.Text=""

Winsockclient.RemotePort=10001

txtclientIP.Text=Winsockclient.LocallP

EndSub

PrivateSubtxtsend_Change()

Winsockclient.SendDatatxtsend.Text

EndSub

PrivateSubWinsockclient_Connect()

MsgBox”你成功地与聊天室服务器进行了联接“，vblnformation

EndSub

PrivateSubWinsockclient_DataArrival(ByValbytesTotalAsLong)

DimmystrAsString

Winsockclient.GetDatamystr

txtreceive.Text=mystr

EndSub

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

作业1

1]6Q7"9Re.Y(U一、选取题

1、在设计应用程序时，可以查看到应用程序工程所有构成某些窗口是(D)。

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

*Q0B4g$|.h8Nwww.snailol.com2,窗体load事件触发时机是(B)。

3|/0!a*q!WlGww.snailol.comA＞顾客单击窗体时B、窗体被加载时C、

窗体显示之后D、窗体卸载时

3、与老式程序设计语言相比,VisualBasic最突出特点是(C).

A、构造化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试

技术

4AOb$v5o（S蜗牛在线|学习者家园4、VB6.0集成开发环境主窗口中不涉及（C）。

0F%VOR'Q,S8U3e4SA、标题栏B、菜单栏C、状态栏D、工

具栏

$s（?2e7]-dr.X-]5、如果对象名称为Mytext，并且对象有一种属性Text,那

么在代码中引用该属性对的格式是（B）。

A>text.MytextB>Mytext.TextC>Mytext.（Text）D、Mytext*Text

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

*a'i7f5]7,4gV3JA、用鼠标双击窗体任何部位B、执行“工程“菜

单中”属性窗口“命令

C、按Ctrl+F4D、按F4

7、假定已在窗体上画了各种控件，并有一种控件是活动，为了在属性窗口中设立窗体属性,

预先应执行操作是（A）。

;T905g4m.jA、单击窗体上没有控件地方B、单击任一种控件C、

不执行任何操作D、双击窗体标题栏

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

0f&R"?：B；SA、CaptionB、PasswordCharC、TextD、Char

（一-z"z'P,B/g）J%19、如果想要在文本框中内容在运营时不能编辑，需要文本框（A）

属性设立为True.

4v/Y&G3q6LALo