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

《ＶiｓuaｌBasic程序设计》形成性考核册作业及答案

2０23年《VｉsuａｌBaｓic程序设计》形成性考核册作业及答案作业1ﻫ一、选择题

1、在设计应用程序时,可以查看到应用程序工程所有组成部分的窗口是(D)。

A、窗体设计

Ｂ、代码

C、属性

D、工程资源管理器窗口

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

A、用户单击窗体时

B、窗体被加载时

Ｃ、窗体显示之后

D、窗体卸载时ﻫ3、与传统的程序设计语言相比,VｉｓualBａsｉc最突出的特点是（Ｃ）。

A、结构化程序设计

B、程序开发环境

Ｃ、事件驱动编程机制

D、程序调试技术ﻫ４、VB６.０集成开发环境的主窗口中不涉及（C）。ﻫ

Ａ、标题栏

B、菜单栏

C、状态栏

D、工具栏

5、假如对象的名称为Ｍytｅxt,并且对象有一个属性Text，那么在代码中引用该属性的对的格式是(B)。ﻫ

A、ｔext.Mytext

Ｂ、Myｔｅxｔ.Teｘｔ

Ｃ、Ｍｙtexｔ.(Text）

Ｄ、Myteｘt*Texｔ

6、下列可以激活属性窗口的操作是(D)。ﻫ

Ａ、用鼠标双击窗体的任何部位

B、执行“工程“菜单中的”属性窗口“命令

C、按Ctｒl＋F4

D、按F4

７、假定已在窗体上画了多个控件,并有一个控件是活动的，为了在属性窗口中设立窗体的属性，预先应执行的操作是(A)。ﻫ

A、单击窗体上没有控件的地方

B、单击任一个控件

Ｃ、不执行任何操作

D、双击窗体的标题栏ﻫ8、假如要在文本框键入字符时，只显示某个字符，假如（*)，应设立文本框的(B)属性。ﻫ

A、Captｉoｎ

B、PasswｏrｄＣhａr

Ｃ、Teｘt

D、Ｃhar

9、假如想要在文本框中的内容在运营时不能编辑，需要文本框的（A)属性设立为Truｅ.

ＡLocked

B、MｕltiLｉne

C、TabStop

DVisｉble

10对于定期器（Tｉner)控制,设立其定期是否启动的属性是（C)

A、Indeｘ

B、Tag

C、Enaｂleｄ

D、Ｌｅftﻫ11、要在窗口体Ｆornl内显示“mｙfrm”使用的语句是(C)

A、Ｆorm.caption=“myｆｒm”B、Ｆornｌ.cａptｉon=“myfrｍ”ﻫC、ｆorml.priｎt“ｍyfrm”D、forｍ.ｐriｎｔ“mｙfrm”

12、对象的性质和状态特性称为(Ｃ)ﻫA、事件

B、方法

C、属性

D、类

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

A、ｘ+y＝20

B、y＝ｘ+2０

C、3x=y

D、s=

14、当使用上下文相关的帮助时,选择要帮助的内容,然后按(D)键，就可出现MSDN窗口直接显示所需的帮助信息。

Ａ、Help

Ｂ、F1０

C、Ese

D、F１ﻫ1５、将调试通过的工程经“文献”菜单的“生成．ｅｘe文献“编绎成名.exe后,将该可执行文献放到其它机器上不能运营的重要因素是(D）。

A、运营的机器上无VB系统

B、缺少．ｆｒｍ窗体文献

Ｃ、该执行文献有病毒

D、以上因素都不对ﻫ二、填空题

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

工具箱选项,使“工具箱”窗口显示。ﻫ2、在VB中，事件过程名由对象名和

事件名

构成。ﻫ3、工程文献的扩展名是

vbｐ,窗体文献扩展名是

frm

。

4、对象时代码和数据的集合，例如,ＶｉsualBａｓｉc中的

窗体、

按钮、

文本框

等都是对象。

5、对象的方法用于

实行某种操作功能

。当方法不需要任何参数并且也没有返回值，调用对象的方法的格式为

对象名.方法名

。例如对窗体Fｏrml使用Shｏw方法，应写成

form1.shoｗ

。

6、要使文本框显示滚动条,需要将其SｃrｏｌlBarｓ

属性设立为

3

。ﻫ７、欲设立定期的时间间隔为4秒,则属性Ｉｎtervａl的值为

4000。ﻫ８、要使标签框的大小随Caｐｔｉon属性做自动调整，应将AuｔoSiｚe

属性设立为

Ｔrue

。ﻫ9、通过

窗体布局窗口

可以在设计时直观地调整窗体在屏幕的位置。

１0、要想在代码中给名为ｔxtsｈow的文框赋予文本：ＧOODWＯＲK！时,应当编写的语句是

txｔshoｗ.ｔexｔ=”GOODWORK!”

。ﻫ11、若命令按钮的名称为Cmｄoｐeｎ，程序规定单击以上命令按钮,打开一个窗口frｍl,请对以下事件过程填空。

ＰｒivatｅSubＣｍｄopeｎ

cｌick（)

Frｍ1.ｓhow

ＥｎdSud

12、事件就是对象上所发生的事情，ＶiｓualBａsiｃ中的事件如单击

、

装入

、

鼠标移动等。一个对象响应的事件可以有

多个，用户不能建立新的事件。事件过程是指

响应某个事件后所执行的代码

。假设某一事件过程如下：ﻫPｒivateSubcmｄ1_Click()

Form1．Ｃaption=”ＶB示例”

ＥnｄSubﻫ则响应过程的对象名是

cmd1

,事件名是

Click

。

13、对象的方法用于在对象上实行某种操作功能

。当方法不需要任何参数并且也没有返回值，调用对象的方法格式为

对象名.方法名

，例如,对窗体Fｏrｍ1使用Shｏw方法，应写成

Fｏrｍ1.Ｓｈoｗ

。

14、为了在编写代码时能自动语法检查，必须执行工具

菜单中的

选项

命令，打开

选项

对话框，然后选择“编辑器”选项卡中的自动语法检测。

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

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

三、问答题

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

ﻫ答:可视化编程是指无须编程,仅通过直观的操作方式即可完毕界面的设计工作的这种编程方式。

当VB的应用程序运营后，系统处在等待状态，当某个事件发生后，程序就去执行此事件的事件过程,当这个事件过程执行完后，系统又处在等待另一个事件发生的状态，这就是事件驱动程序方式。ﻫ2、对象、属性、事件和文献之间的关系如何?

答:对象是代码和数据的封装体。对象的操作通过与该对象有关的属性、事件、方法来描述。ﻫ属性是一个对象的基本特性,每个对象都有它自己的属性。ﻫ方法是对象要执行的动作。ﻫ事件是在对象上所发生的事情。ﻫ3、简述事件驱动机制与传统编程方式的不同。ﻫ答:传统的面向过程的应用程序中,应用程序自身控制了执行那一部分代码按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的途径执行,用户无法改变程序的执行流程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。ﻫ4、简述事件驱动的工作过程。ﻫ答:事件驱动的工作过程如下：(1)启动应用程序,装载和显示窗体。（2）窗体或窗体上的控件等待事件的发生。（3）当某个事件发生后，执行其相应的事件过程代码。（4）反复执行（2）和（3），直到碰到END语句或单击“结束”按钮停止程序的运营。ﻫ四、程序设计题

1、在窗体上添加一个文本框和两个命令按钮,并把两个命令按钮的标题分别设立为“隐藏文本框”和“显示文本框”。当单击第一个命令按钮时,文本框消失；而当单击第二个命令按钮时,文本框重新出现,并在文本框中显示“VB程序设计”（字体大小为16）。程序运营界面如图所示。

图１

解：“隐藏文本框”按钮中的代码为:Ｔext1.Vｉsiblｅ＝Ｆａlse

“显示文本框”按钮中的代码为:Ｔｅｘt1．Viｓible=Tｒuｅ

Text1．Ｔｅxt=”ＶB程序设计”

Texｔ1.FoｎtＳizｅ＝”16”

2、设计一个计算程序。该程序用户界面如图2所示,由四个文本框：文本框1(tｅxt1)、文本框2(text2)、文本框3（text3）、文本框4（text４)，和三个按钮:命令按钮1（ｃommand1）、命令按钮2(command2)、命令按钮3（cｏmmand3）组成。程序运营后,用户按清除按钮,则清除文本框中显示的内容，按计算按钮,则计算三科平均成绩。单击退出按钮则退出。

解:comｍand1中的代码为:text1＝””:ｔeｘt2=””:ｔeｘt3＝””:tｅxt４=””

commaｎd２中的代码为:text4=(ｖal(Ｔext１)+vａl(Ｔexｔ2)+vaｌ（Ｔeｘt3)）/３

cｏｍmaｎd2中的代码为:Endﻫ3、编写一收款计算程序。规定用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”,单击“清除”按钮,清除文本框中所有的数据。程序运营界面如图3所示。

答:“计算”按钮的代码:texｔ4=vａl（Tｅxt1)*ｖal(Tｅｘt2）*vａl（Teｘt3)／１00

“清除”按钮的代码:ｔexｔ1＝””:text２=””:text3＝””:text4＝””ﻫ作业２

一、选择题ﻫ1．按照变量的作用域可将变量划分为(B

)。

Ａ、公有、私有、系统

Ｂ、全局变量、模块级变量、过程变量ﻫＣ、动态、常数、静态

D、Publｉc、Privaｔe、Prｏtecteｄﻫ２.可获得字符的ASＣII码的函数是(C）。

A、ValＢ、FiｘＣ、Ａｓc

D、Cｈrﻫ3、要退出Ｄo…．Ｌoop循环,可使用的语句的(D）语句。ﻫA、Exit

B、Ｅxit

Ｆor

C、EndDo

Ｄ、ＥｘitDo

４．把数值型转换为字符串型需要使用的函数是（B）。

A、Vａl

B、Sｔｒ

C、Asc

D、Chr

5.关于语句行，下列说法对的的是（B）。ﻫＡ．一行只能写一条语句Ｂ．一条语句可以分多行书写ﻫＣ.每行的首字符必须大写D.长度不能超过2５5个字符ﻫ6.表达式６+10Mｏd４*2+1的值是（A)．ﻫA.9B.11Ｃ.１D.3

７.以下可以作为VisualBasｉc变量名的是（B）.ﻫA.ＳＩN

B.CO１

C.COS(X)

D.X(－1)ﻫ8.表达式Aｂs（-5)＋Len(“AＢCDE”)的值为（C）.

A．５AＢCDEＢ.-５ABＣDＥ

C.10

D．０

９.在代码编辑器中,假如一条语句太长，无法在一行内写下(不涉及注释）,要折行书写,可以在行末使用续行字符（A)，表达下一行是当前行的继续.

A.一个空格加一个下划字符(＿)Ｂ．一个下划字符(＿)

Ｃ．直接回车

Ｄ．一个空格加一个字符(-）

１0.Suｂ过程与Ｆuｎｃtioｎ过程最主线的区别是(D).ﻫA.Ｓuｂ过程可以使用Ｃalｌ语句或直接使用过程名调用，而Ｆunction过程不可以.ﻫB．Funｃtion过程可以有参数，Sub过程不可以.

C．两种过程参数的传递方式不同．ﻫＤ.Ｓuｂ过程的过程名不能返回值,而Function过程可以通过过程名返回值.

11."Ｘ是小于80的非负数＂,用ＶB表达式表达对的的是(C）.ﻫ

Ａ..0≤X＜8０

B．０＜＝Ｘ<80

C.0<=xaｎdx<８0

D.0＜=ｘＯrｘ<80ﻫ12.在设计菜单时,假如要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设立为(Ｂ)ﻫA．加号(+)

Ｂ．减号(－)

C.星号(*)

D．感慨号(!)ﻫ1３.假如要在程序中显示一个弹出式菜单,那么要调用ViｓualBasic中提供的方法是(D).ﻫ

A.Pｒiｎｔ

B.Mｏve

C.Reｆｒｅsｈ

D.PopｕpMenu

１4.下列可以用来存储图像供其他对象使用的控件是（C).

A.ToolBａr

Ｂ．SｔａtursBar

Ｃ.ＩｍａgｅLｉst

D.TｒeeＶieｗ

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

A.BuｔtoｎClｉck

Ｂ.Cｈange

Ｃ.Load

D.ＫeyPrｅss

16.要运用公用对话框控件来显示”打开文献”对话框,需要调用控件的（B)方法．ﻫ

A．SｈowPrｉｎtｅr

B.ShoｗＯpen

C.ShoｗSaｖe

D.SｈowCｏｌｏr

17.对于窗体级变量,下列说法中错误的是(Ｃ）.

A.所在窗体的各子程序都可以访问ﻫＢ．其他窗体的子程序不能访问ﻫC．所在窗体发子程序不能访问用Private定义的窗体级变量ﻫD.一定要在所在窗体的通用区内定义

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

A.Ｌeｎ函数

B．Mｉd函数

Ｃ．Ｌeft函数

Ｄ.Righｔ函数

１9.用下面的语句所定义的数组的元素的个数是（D)．ﻫ

DiｍA(-３Tｏ5）As

Integｅrﻫ

Ａ.6

B.7

C.8

Ｄ.9ﻫ20．有如下程序段：ﻫDｉmstrlAsString＊5

Sｔｒl＝”VisｕaｌBasic”

当该段程序被执行完时，变量sｔrｌ的值为(Ｂ）.

A.”Visual”

Ｂ.”Viｓua”

C.”V”

Ｄ.”Vｉｓual

Basｉc”ﻫ二、填空题ﻫ1.菜单一般有_下拉式_和＿弹出式＿_两种基本类型。ﻫ２.通用对话框控件可显示的常用对话框有__打开＿、＿保存_、_＿颜色_、__字体＿、_＿打印_。

3.组合框具有__文本框＿和__列表框＿两种控件的基本功能。ﻫ4.要使数组的默认下标从“1开始,则应在窗体或标准模块代码的声明部分使用语句＿_ＯptionBaｓe1_。ﻫ５．调用Sub过程时,使用__calｌ__语句,语句用于把程序控制传送到一个ViｓuａｌBasic的Sub过程。ﻫ６.若已建立了Foｒm1和Forｍ2两个窗体,默认启动窗体为Fｏrm１。通过_工程_菜单__属性_命令的_通用_选项卡，可将启动窗体设立为Foｒm2。在程序中若要显示Ｆorm1窗体，则执行＿Form1.ｓｈow_语句。

7.列表框中项目的序号是从_0_开始的。ﻫ8.Sub过程与Ｆｕnctiｏｎ过程最主线的区别是_Suｂ过程名无返回值,Functioｎ过程名有返回值。

9.ＶB的代码存储在模块中。在ＶB中提供了三种类型的模块：_类模块＿、_窗体模块＿_和_标准模块_。

10．使用Hide方法会隐藏被调用的窗体,但是在调用Hide方法之后不会把窗体__卸载_,被调用的窗体中的属性等已处在_内存中_。

11．将下列数学式子写成VisualＢaｓic表达式。ﻫ

⑴

答:2＊ｃos(a)*sｉn(ａ)/(2*ａ)ﻫ

⑵答:ｓqr(s*(s-a）*(s-b)*(ｓ-c）)ﻫ

⑶siｎ45°：siｎ(45*2*3.１415/36０）_ﻫ１2.将下列数学式子各条件写成ＶisｕalBasic逻辑表达式。

⑴1≤x＜12:１＜＝xａndx<12

⑵Ａ+B≥Ｃ或ａ-c≤c:(A+B)>=CＯR（a-c)<=c

⑶a和b都为正整数或同为负数:(a>=0aｎdｂ>=0）or(a<=０anｄb<＝0)ﻫ13.设A=２,B=3,C＝4,D=5。表达式NotＡ<=ＣＯr4＊Ｂ＾2ＡndB<>A+C的值为_Ｆaｌse_。

１4.在VｉsualBasic语言中有三种形式的循环结构。其中,若循环的次数可以事先拟定,可使用_Foｒ…nexｔ＿＿循环；若规定先判断循环进行的条件，可使用_Dｏwhile…lｏop_循环或_whiｌe…Ｗｅnｄ_循环。

1５．以下语句的输出结果是__3_。ﻫa%＝３.141５9ﻫＰrｉntａ%

三、阅读下列程序,写出程序运营结果。

1、PriｖateSｕbＦorm＿Cｌick（）ﻫ

ＳtaticSｕmAsIntｅgerﻫ

FoｒI=1to1０0

Sum=Suｍ+Iﻫ

NextＩ

ＰrｉnｔＳuｍ

EｎｄSuｂ

程序运营结果为：1+２＋…….+99+100=50５0

2、prｉvａtｅSubＦoｒｍ＿Ｃｌiｃk()

A=1０：b=15:c＝20:d=25

ＰrｉnｔA;Ｓpc（5)；b;Spc(7);c

PriｎtA;Spc(8）;b;Ｓpace$(５);c

Pｒiｎｔc;Sｐc(３);”+”;Spc(3);ｃ＋d

EndSub

10（5个空格)１5(7个空格)20ﻫ10(８个空格)１5(５个空格)20ﻫ20（三个空格)＋(三个空格）45ﻫ3、ＰrivateＳuｂＦorｍ_ｃlｉcｋ(）

Fori%=1to3ﻫ

Forj%＝1ｔoｉ

PrintLＴrim(Str(i%))＋“＊”＋LTｒim(Sｔr(j%))+“＝”;i％*ｊ%;ﻫ

Nextj%

ＰrinｔﻫＮｅxti%

EｎｄＳub

1*1＝１

2＊１=2

2*2=4ﻫ３*1=3

3*２=６

3*3=9ﻫ

ﻫ4、PｒｉｖatｅＳubCoｍmand1_Click(）ﻫ

Ｄimａ，bAsIｎtｅgｅr

Ａ=３.４ﻫB=３.4ﻫTｅxt１.Texｔ=a

Teｘt2.Ｔext＝b

EnｄSuｂﻫTｅxt1显示３、4

Texｔ2显示3

５、ＰrivａｔeＳubFoｒm＿Clｉcｋ(）ﻫ

FｏrI=1to５

PriｎtＴａｂ(１1–Ｉ）

ＦorJ=1ToI*2–1

Ｐrinｔ“*”；

Nextﻫ

Nexti

EndSub

*ﻫ

***ﻫ

＊*＊**ﻫ

**＊****ﻫ

*********ﻫ

四、程序设计题ﻫ１、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物(１）在100元以上者,按九五折优惠；（２）在20０元以上者,按九折优惠;(3)300元以上者，按八折优惠；(４）50０元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，规定在Ｔeｘｔ１中输入购物商品总金额，单击命令按钮，在Ｔｅxｔ２中输入优惠后的价格。程序运营结果如图解所示。ﻫ

IｆＶal（tｅxt1)>=５00tｈentext2=Val(teｘｔ１)*０．7

ElsｅｉfVａl(tｅxt１）＞＝3００ｔhｅntext2=Vａl(texｔ１)*0.85ﻫ

ElseｉfＶal(text1)＞=20０tｈentext２=vaｌ(ｔext1)＊０.9ﻫ

Elseifvａl（text1)>=１０0ｔhenteｘt2=val（tｅxt1)*0.95ﻫEnｄｉf

ﻫ

2、输出1００~200之间不能被3整除的的数，规定用Do语句的一种形式来实现，程序运营结果如图5所示。ﻫ窗体的装入事件中加入如下代码:

Dｉmａasｉnteger

A=100ﻫＤoｗhilｅa＜=20０ﻫIf(aｍｏｄ3)<>０thenﻫLisｔ1.ａｄdｉtenstr(a)ﻫEndiｆ

A=a+1

loopﻫ3、编写程序,打印如下的乘积表:ﻫDimI,jasinｔｅgerﻫＰrinｔ”*”:ｓｐａce(5）:

Fori=３tｏ12step3

Priｎtｓtr(ｉ);ｓpaｃe（5);

ＮexｔiﻫＰｒｉｎｔ

FoｒI=1５to１８ﻫPriｎｔstｒ(i);sｐace(3);ﻫForj=3to12ｓｔｅp3

Ｐｒiｎtstr(i＊ｊ);space(4);ﻫＮextjﻫPriｎt

Ｎextj

ﻫ4、设计一个计算程序。该程序用户界面如图7所示。规定程序运营后,用户选中单击选按钮，则程序作10和２的相应计算,并把计算结果在文本框中显示出来。如用户选中加法单选按钮,则程序作10和２的相加，计算结果12在文本框中显示出来。按结束,则退出。ﻫ乘法单选按钮的单击事件中添加如下代码:

Text1=10＊2ﻫ除法单选按钮中添加如下代码：ﻫTｅxｔ1=１0/2ﻫ加法单选按钮中添加如下代码：ﻫＴext１＝１0+2

减法单选按钮中添加如下代码：ｔext1=10-2ﻫ结束按钮中代码:end或ｕnloａdmeﻫ5、编写输入一个0~6数字,显示汉字对照输出星期的Fuｎｃtｉon过程。程序运营结果如图8所示。ﻫ文本框的cｈaｎge事件中代码如下:ﻫSelｅctcａsｅvａｌ(tｅｘｔ1)

Case０ﻫＬaｂeｌ１．captｉon=”星期天”+chｒ（13）+”(Sunday)”ﻫCａse1ﻫLabｅl1.ｃaｐｔion=”星期一”+cｈｒ(13)+”（monday)”

Caｓｅ2ﻫLabel１.ｃaptioｎ＝”星期二”＋ｃhr(13)+”(Tuesｄay)”ﻫCase3ﻫLabｅｌ1.caｐtｉon=”星期三”+ｃhr(13)+”（weｄｎesｄay)”ﻫCaｓe4ﻫLａbｅl1.captｉoｎ=”星期四”+ｃhｒ(13）＋”(thursｄaｙ）”ﻫCaｓe5

Lａｂｅl１.caｐtiｏｎ=”星期五”+chr(13)+”（firday）”

Case6ﻫＬabel1.ｃａptiｏｎ=”星期六”＋ｃｈr（13)＋”(saｔurday)”

Endseｌectﻫ

ﻫ6、编写一个程序，当鼠标移到Ｐicturel控件时,鼠标指针改变形状；当在Pictｕrel控件上单击鼠标右键时,通过消息框显示“Youpreｓsｅdｒｉｇhtbutton”,并再次改变鼠标指针的形状。ﻫPicｔｕre1_mｏuseup

Iｆbutton=2tｈen

Ｉ＝1ﻫMsｇｂｏｘ”ｙoｕpressedriｇhtbutton”ﻫＥndif

Endｓubﻫ7、列表框应用程序。规定从文本框中输入姓名,然后按“添加”按钮,把姓名添加到列表框中；当选择列表框中某一项时,按“删除”按钮,从列表框中删除;当列表框中某一项时,按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后,按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运营结果如图９所示。

添加按钮代码:ｌist１．adｄiｔｅmteｘt1.ｔｅｘtﻫText1.teｘｔ=””ﻫ删除:iｆｌist１.text＜＞””ｔｈeｎ

List1．remｏveitem＝list1.ｌistindexﻫEndifﻫ修改:

Ifcｏmｍaｎd３.cａｐtｉon＝“修改”thｅn

Ｔext1．text＝list1．ｔextﻫＣommａnd3.caption＝”修改确认”ﻫＥlseﻫIf

ｃommａnd3.cａptｉｏn＝”修改确认”then

Ｌisｔ1.lｉｓt=ｌist１．listｉnｄex>=text1．tｅxtﻫCommand３.caｐtiｏｎ=”修改”ﻫEｎdif

Enｄｉf

作业３ﻫ一、选择题

1、ＶisibleBasic根据计算机访问文献的方式将文献提成三类，其中不涉及（Ｂ)ﻫA.顺序文献

B．Unix文献

Ｃ.二进制文献

D.随机文献

2、随机文献进行文献读取的单位是(B）ﻫA.字节

Ｂ。记录

C。整个文献

D。字符

3、为了使目录途径列表框Ｄir1的内容符合驱动器列表框Driｖe1的选择，应当(B)。ﻫA．在Dｉr１_Ｃlick事件中加入Ｄir1.Path＝Drivｅ1.DｒiｖeﻫＢ.在Dｒive1_Clｉcｋ事件中加入Ｄir1.Ｐath=Ｄｒive１.DrｉｖeﻫC．在Dｉｒ1_Ｃlick事件中加入Driｖe１.Paｔh＝Dir1.Drivｅ

D．在Dir１_Ｃlick事件中加入Drive1.Path=Ｄir1．Drivｅ

4、为了使dｒivｅ1驱动器列表框、dir1目录途径列表框和fｉｌe１文献列表框能同步协调工作,需要在（B)ﻫＡ.drｉve1的Ｃhａnge事件过程中加入drive１.Driｖe=ｄiｒ1.Pａth，在dｉｒ１的Cｈanｇe事件过程中加入dir1.Path=file１.Path代码。ﻫＢ.ｄrive1的Chａngｅ事件过程中加入ｄiｒ1.Pａth＝ｄrｉvｅ1.Ｄrive，在ｄir１的Ｃｈanｇe事件过程中加入file１．Path=dir１．Pａth代码。ﻫC．dir1的Cｈaｎge事件过程中加入dir1.Path=dｒivｅ1.Dｒivｅ,在file1的Click事件过程中加入fｉlｅ1.Pａth=fｉlｅ1.fileＮａme代码。

D．dir1的Ｃhange事件过程中加入dｉｒ1.Pａtｈ=drive1.Dｒiｖe,在fiｌe1的Ｃlick事件过程中加入fｉle1．Pａth=diｒ１．Pａｔh代码。

5、下面关于顺序文献的描述对的的是(Ａ)

A．每条记录的长度必须相同

Ｂ．可通过编程对文献中的某条记录方便地修改

Ｃ．数据只能以ＡSCII码形式存放在文献中，所以可通过文本编辑软件显示ﻫD．文献的组织结构复杂ﻫ6、ＫILL语句在VB语言中的功能是(Ｃ）。ﻫA.清内存

B。清病毒

C。删除磁盘上的文献

D。清屏幕ﻫ７、可用来改变坐标度量单位的是（D)

Ａ.Ｄrａｗstyle属性

B．DrawWidth属性

C.Ｓcａle方法

D.SｃaｌeMｏde属性

8、以下的属性和方法中，可重定义坐标系的是（C）ﻫA．Drawstylｅ属性

B．DｒawWｉdｔh属性

C．Scaｌe

D.

SｃａleＭode属性ﻫ9、当用Ｌine方法画直线后，当前坐标在（C)

Ａ.（0,0)

B.直线起点

C.直线终点

D．容器的中心

10、Line（20０,200)-Ｓｔep(50０,５00)将在窗体（C）画一直线。ﻫA．（2００,200)到（500，50０）

B.(2０0，20０)到(３00,300）ﻫC.(2０0,200）到(70０,700)

D.（３00,3０0)到(５０0,500)

１1、设立对象的边框类型的属性是（B）。

A.Dｒawstyle

B.Ｂordｅrstｙｌe

C．ＤrａwＷiｄth

Ｄ.ScaｌeMode

12、为了清除图片框Picture1中的图形，应采用的对的方法是（B）ﻫＡ．选择图片框,然后按Del键

B．执行语句Pｉcturｅ1.picture=ＬoaｄPｉｃｔｕｒe(“”)ﻫC.执行语句Pｉｃtuｒｅ1.picｔｕre＝“”

Ｄ．选择图片框,在属性窗口中选择Pictｕre属性条，然后按回车键ﻫ1３、绘制多种形状的图形，需要设立Sｈaｐe控件的（A)属性。

A.Ｓhape

B.Bｏrｄerstyｌｅ

C.FｉllStylｅ

D.Style

１4、绘制多种形状的直线，需要设立Liｎe控件的（B）属性。

Ａ.Shａpｅ

B.Borderｓtｙlｅ

C.ＦｉｌlＳtyle

D.Style

15、假如准备读文献，打开顺序文献“ｔext.ｄat”的对的语句是（C）ﻫA.

oｐｅn“text.dat”ｆｏrｗｒiteＡs#1

B.

opｅｎ“text.dat”fｏrＢinaｒy

Ａs＃1ﻫC.

ｏpen“ｔext.dat”forInput

As＃1ﻫＤ.

opeｎ“ｔext.ｄａt”fｏrＲａnｄom

As#1

16、假如准备向随机文献中写入数据，对的的语句是（Ｃ)ﻫA.Ｐrｉnt#1,rec

B．Wｒite

#1,rec

C.Ｐuｔ#1,rec

D.

Gｅｔ#1,reｃ

17、下列“CoｍmandDiａlｏｇ１”控件程序代码，CｏmｍaｎdＤｉaｌoｇ１.Ａctｉｏｎ=１,代表(B）

Ａ．文献另存为

B．打开文献

C．色彩

D.打印

18、ＦｉleFｉlteｒ．Ｐaｔteｒn=”*.bａt”程序代码执行后，会显示（A)。

A只包含扩展文献名为”*．baｔ”的文献

B。第一个bat文献ﻫC．包含所有的文献

D。会显示磁盘的途径ﻫ19、下列数据对象模型中采用OLＥDB访问数据库的是（C）。ﻫA.DAO

B.ＲDO

C.ＡＤO

D.ＲDＯ和ＡDO

20.设AＤOｒs为Rｅcorｄset对象,从“学生基本情况表”中获取所有记录的语句是(B）ﻫA．ＡDOrs．New“Selｅcｔ*From学生基本情况表”

B．ADOrs.Oｐen“Seleｃt*From学生基本情况表”

C.ＡDＯrs.Ｅxｅcute“Seｌect*Froｍ学生基本情况表”

D．ＡDOｒs．Ｓelｅｃt“Ｓｅleｃt*From学生基本情况表”

２1、ＶB中将变量xl声明为Excel应用程序对象的方法是（A）

A.DimxlＡsExceｌ.Ａpｐliｃａtion

B.DimxlAｓExｃeｌ.Ｗorkｂoｏk

C.

DｉmxlAsExｃel.Wｏrkshｅｅt

Ｄ.ＤimxlAｓExcel．Worksｈeetsﻫ二、填空题

1、假如要新建一个顺序文献,用Opeｎ语句时，操作方式关键词是outｐut。ﻫ２.在ViｓｕalBaｓｉc程序中实现复制文献“C：\ｃｏmmaｎ”到D:盘根目录下的语句

为filecopy

“c：\command．cｏm”,”d:＼”。ﻫ3.在ＶisuａlＢasic程序中实现删除文献”Ｄ:＼tem．tmｐ”的语句为__kill”d:\ｔｅｍ.tmp”。ﻫ4．按文献号为１打开顺序文献SEQＮEW.DAT，用于写入数据,语句ﻫ为＿__oｐeｎ”ＳEQＮEW．ＤAT”ｆｏroutpｕtas

#１。

5.按文献号为2打开顺序文献ＳＥQOＬD.ＤAT,用于从该文献读出数据,语句为___opｅn”ＳEQＯLD.ＤＡT”foｒinpｕtas#2。ﻫ６．若窗体的左上角坐标为（-２00,250),右下角坐标为(300,-１５０),则X轴的正向向右，Y轴的正向向上＿。ﻫ7.Strｅｔch属性设立为_false＿时，图像框可自动改变大小以适应其中的图形.ﻫ8．在图片框Piｃture1中画一个左上角在(500,5００)，边长为50０的红色实心正方形的语句为_piｃture１．ｌine（500,５00)-stｅp(５０0，500)，ｖbreｄ，BF。ﻫ９.设

ＣurreｎtX＝50,CｕrrenｔY=100,执行指令”ｌine（１00,2０）-Ｓtｅp(300,500）”后，Cｕrrent＝_（400,520)＿．

１０.使用AＤＯ模型时,可通过_ActivｅConnect_属性建立Reｃordｓｅt和Ｃｏnnｅction对象的连接.ﻫ１1.VB中将数据库分为本地数据库、远程数据库和＿＿外部数据库_三种类型.ﻫ1２.采用ADO模型时，当使用Open方法打开一个记录集后,与ADOrｓ.Fielｄｓ(“学号”）等效的语句是_AＤOrs（“符号”)_.

13．ADO模型中一般可通过Conｎｅctioｎ对象的Execute方法执行__增长_、__删除_、＿_修改__等三类不返回结果集的SＱＬ语句.ﻫ14.设StrSQL、Sｔr1为字符串变量,其中Ｓｔｒ1的值为”０01”，那么执行赋值语句StrSQL=”Ｓeｌeｃt*fromTａｂeｌ１Wheｒe学号=’”＋Stｒ1+”’”后,ＳtｒＳQL的值等于_”selｅct.*ｆromtabｅｌ１wheｒe学号=’001’”＿.ﻫ１5.在VB中,将Foxpｒo称为外部数据库,Acｃess称为__本地数据库_，ＳＱLＳｅｒver称为__远程数据库_＿.ﻫ三、程序设计题

1、在窗体上建立一个驱动器列表框、目录列表框、文献列表框、图片框。规定程序运营后，驱动器列表框Ｄrive1的默认驱动器设立为C盘,选择Ｆilｅ1中所列的确图片文献（＊．Bmｐ和*．jｐg)，则相应的图片显示在图片框Ｐicture1中。程序运营结果如图10所示。

解：依据图１０设计界面，文献列表框的pａtｔerｎ属性设立为：*.Bｍp;＊.jｐgﻫ驱动器列表框的cｈanｇｅ事件中添加如下代码:

chdrivedrｉvｅ１．ｄｒiveﻫdｉr１.patｈ=drｉｖe1.drive

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

chｄirｄiｒ1.pａtｈﻫｆiｌe1.pａth=ｄｉｒ1．ｐaｔｈﻫ文献列表框的cｌｉck事件中添加如下代码:ﻫ

picture１.pｉｃtｕｒｅ=loadｐicturｅfiｌe１．fiｌenaｍeﻫ2．余弦曲线的方程为ｙ=coｓx,画出x从-2到2的确余弦曲线，并在坐标轴上标出刻度,如图1１所示。ﻫ如图窗体的单击事件中添加如下代码:ﻫForm１.scale（-２*3.１４１5９,１)－(2＊3.14159,-1)ﻫForm1.line(-2*３．1４１59,０）-(2＊3．１415９,0)ﻫForm1．ｌine(0，１)-（0,-１)

Fｏｒｍ1.currentx＝０．2:forｍ１.ｃurrentY=-0.1:pｒinｔ”０”ﻫＦoｒm１.ｃｕrｒentx=-3.2：forｍ１．ｃurｒenｔＹ＝-0.1:prｉnt”-pｉ”

Ｆorm1．currentx＝３.3：ｆorｍ1．cｕｒreｎｔY=-０.1:ｐｒiｎt”pi”

Foｒm1．cｕrｒｅntx＝-6.2:foｒm1．cｕｒｒｅｎtＹ=-0.1:prinｔ”-2pi”ﻫForｍ1.cuｒrentｘ＝5．７:forｍ１.curreｎｔY＝-0.1：prｉnt”2ｐi”

Foｒm1．ｃurrｅntx=0．2：ｆorm１．ｃurｒenｔY＝0.5:priｎt”0.5”

Fｏrm1.ｃuｒrｅnｔx＝0.2：ｆorm１.cｕｒｒｅｎtY=-０.5:prｉｎt”-０.5”

FｏrI=-6.28２to6.282step０．08

Ｆorm1.pset（I,coｓ(Ｉ))ﻫ

ＮｅxtI

3,使用Lｉne控件显示直线,并且可以显示直线的线宽和线型．程序运营界面如图１2所示.ﻫ如图添加代码如下

复选框的单击事件代码:ﻫIfcｈeｃk1.value=１tｈen

Ｌine１．ｂorｄerwidth=４

Eｌｓe

Liｎｅ1.borｄerwｉdtｈ=１ﻫＥnｄifﻫ实线、虚线、单选框要弄成一个oｐtｉon1单选框控件数组。单选框单击事件代码:

Seｌecｔcaseindeｘﻫ

Ｃase0

Ｌine1.boｒｄerｓtyｌｅ＝1ﻫ

Cａse1ﻫLine1.borｄeｒstyle＝2

Case2ﻫLiｎｅ1.bｏｒｄerｓｔyle=３

Endsｅｌectﻫ４.使用Ｓhａpｅ控件显示几种图形,并可以设立图形的边框和填充效果等.程序运营界面如图13所示.

一方面按图作出程序界面。形状框架里的单选框要做成ｏption1控件数组，边框类型框架里的单选框最成ｏptｉon2控件数组，填充风格框架里的单选做成ｏｐtｉon3控件数组。

Opｔion1单击事件代码如下:ﻫSelectcasｅindeｘ

Ｃａｓe0ﻫＳhａpe1.sｈape=０ﻫＣasｅ1

Shapｅ１.ｓｈaｐe=1ﻫCaｓe２

Shａpｅ1.ｓhape=3ﻫＣase3

Shape1．ｓhａpe=4ﻫＥndｓｅｌeｃtﻫOptiｏｎ2单击事件代码如下:ﻫSeｌecｔcａｓeｉndex

Cａse0ﻫShapｅ1.borderstyle＝0ﻫＣasｅ１ﻫShape1．ｂoｒderｓtyle=2

Caｓｅ2ﻫＳhape1.bｏrderｓｔyｌe=1

Ｃasｅ3ﻫSｈapｅ1.boｒderｓtyｌe＝３

Caｓe４ﻫＳhａpe1.ｂorderstylｅ=4

ＥndsｅｌecｔﻫOptiｏn3单击事件代码如下：ﻫ

SelecｔcasｅiｎｄｅxﻫCase0

Shａpｅ１.fillsｔylｅ=１

Ｃase1

Sｈape1．fｉlｌstyle＝1

Caｓe２

Shａpe1.fｉllsｔyle＝3ﻫCase３

Shape1.ｆillstｙle=6

Enｄsｅlectﻫ5.使用SQLSerｖer或Accesｓ建立名称为”学生的数据库，并在其中创建”ｓtudentｓ”的数据库表,其结构及初始记录如表１所示.使用ＡDＯ对象和MSＦlｅｘGrｉｄ控件设计数据库列表显示程序．程序的设计界面和运营结果如图14、图１5所示。

表1

学号

姓名

专业

2023０01

张红

软件专业

２0230０3

李强

会计专业ﻫ20230０２

王丽

软件专业

声名对象变量AＤOcn,用于创建与数据库的连接

ＰｒivａtｅADＯcnAscｏnnectｉonﻫReadｆromtable

Ｐrivatesubrｅadｆrｏmtable()ﻫＤimsｔrtmpＡsstrｉngﻫＤimADOrsＡsnewｒecｏｒdsetﻫAＤOrｓ.aｃｔiｖeconnection=AＤＯcnﻫＡDOrs.ｏｐen“ｓelecｔ＊fｒomstuｄenｔsｏrｄerｂy“学号”

MSFleｘgrid１.clｅaｒﻫMＳＦlexgrｉd1．ｒoｗs=0

MＳFｌｅxgrｉｄ1.cols=3ﻫStrtmp=“学号”+vbｔaｂ+“姓名”+vbtab＋“专业”ﻫMSFleｘgrid1.additemsｔｒtｍp

ＤｏwhilenｏｔADOｒｓ.eofﻫStｒtmp=AＤOｒs(“学号”）+vｂtａb+ADＯrs(“姓名”）+vｂtab＋AＤOｒs（“专业”)

MＳＦlexgｒid1.addｔｔemsｔrｔmp

ADOrsｍovenｅxｔ

LｏopﻫMSＦlexgrid１.fixedｃoｌｓ=０

ＭSFlexgrid1．fixedｒｏws=1ﻫEｎdsubﻫＰriｖateｓubfoｒm_lｏad()ﻫDｉmstｒDBAsstrｉng

ｓtrＤB=”ｐrovider=ＳQLOLＥDＢ;LＳF;ＵserIＤ=sa;pａssword=;dａｔabａse＝学生”ﻫｉfADOｃnisnｏthinｇｔhｅn

seｔAＤOｃｎ＝ｎｅwconneｃtｉｏn

ADＯcn.opｅｎstｒDB

Endif

ReaｄfrｏｍtａbleﻫEnｄsｕbﻫPrｉvａｔｅｓubcommand1＿click()

Unloａdme

Endsub

作业4

一、选择题ﻫ１、WiｎｓockSerｖｅｒ.LoｃalPort=100０１语句的含义是(

A）。

A、设立侦听端口

B、设立计算机IP地址

C、设立中断地址

Ｄ、设立通讯协议ﻫ2、当Wiｎｓock控件处在关闭状态时，其Statｅ属性的值是（

Ｂ)。ﻫＡ、1

Ｂ、０

Ｃ、2

D、６ﻫ3、相对于UＤP协议而言，TCP协议是一种(

Ａ)。

Ａ、面向连接的协议Ｂ、无连接协议

C、计算机间不建立连接

D、合用于传送少量数据ﻫ4、VB程序中通常不会产生错误提醒的（D

）。

A、编译错误

B、实时错误

C、运营时错误

D、逻辑错误ﻫ５、VB程序的编译错误一般可通过ＶB集成环境的何种设立，自动检测（

Ｂ）。ﻫA、规定变量声明

B、自动语法检测

C、自动显示快速信息量

D、主线无法自动检测

6、VB程序中设立断点的按键是（

C

）。

A、F５键

B、Ｆ6键

C、Ｆ9键

D、F１0键ﻫ7、OnErrorGoToErｒＬB语句中,ＥrrLB的含义是（

Ａ

)。ﻫA、行标记号

B、SUB过程名

Ｃ、FUＮCTION过程名

D、错误号

8、Eｒr对象中，用来表达错误描述的属性是（Ｂ

）。

A、EｒｒNｏ

B、Dｅｓｃriｐtion

Ｃ、Numｂer

D、Source

二、填空题。ﻫ1、使用Wｉnsoｃk控件时，一旦有数据到达,将一方面触发该控件的DataAｒｒiｖal事件。而假如要发送数据，则通常使用该控件的senｄdaｔａ方法。

2、Winｓｏｃｋ控件重要用来编制或基于TCP/IP经UＤＰ协议的通话程序。ﻫ3、ＡｃtiｖｅＸEX文献的后缀是exe。

4、CＯM对象有两种类型接口，即标准接口和用户接口。

5、假如希望得到本地计算机的IP地址，可以使用Winsoｃk控件的ｌocalIP属性。ﻫ6、Wｉnｓock控件的BytesReceiｖed属性返回接受到的数据，通常使用ｇetdatａ方法来获取这些数据了。

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

8、常用中的VB网络编程控件重要有Winsｏcｋ、InｔeｒｎetTｒanｓfer、ＷebBroｗser三种。

9、ＶB中的程序错误类型重要有编译错误、逻辑错误、实时错误等三种。ﻫ10、VB中用于关闭错误捕获机制的语句是oｎｅｒｒｏrgotｏ０。ﻫ三、问答题。

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

Ｓocket在计算机提供了一个通信端口,可以通过这个端口与任何一个也同时具有Ｓocｋeｔ接口的计算机进行通信，应用程序在网络上传输、接受的信息都通过这个Sockｅt接口实现，只需要对Sｏｃkeｔ接口进行数据的读写操作就可以了。

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

（1）捕获错误，并强制程序跳转

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

（3）退犯错误解决程序ﻫ

3、简述常用的程序调式技巧ﻫ（1）事先做好备份ﻫ（２）分离受怀疑的程序ﻫ(３)缩小搜索范围ﻫ（4)使用MSGBＯX语句ﻫ

ﻫ4、简述基于Ｗｉnｓｏck控件的开发模式。ﻫ(１）服务器程序的开发模式

(A)服务器程序必须设立好LOCALPＯＲＴ，作为侦听端口，该值可设立成任意一个整数,只要其他应用和谐没有使用过的值均可,但习惯上应大于１０00ﻫ（B）使用LＩＳＴRN方法使用服务器进入侦听状态，等待客户机程序的连接请求。

(Ｃ)客户机程序发出连接请求后,将触发服务器程序的COＮNＥCTIONREＱUEＳＴ事件,该事件得到一个参数REQＵESTＩD。ﻫ（D）服务器程序使用ACCＥPT方法接受客户机程序的ＲEQＵＥＳTID请求,至此,服务器程序就可以使用SRNＤＤATA方法向客户机发送数据了。此时应特别注意两点：一是ACCEPT方法必须用到上一步的ＲEＱUESTID作为其参数；二是在执行ＡCCEPT方法前，服务器仍处在侦听状态，此时应一方面使用CＬOＳE方法关闭服务器，然后再调用ACCEPＴ方法。ﻫ（E)当服务器程序接受到数据时，会产生DＡTAARRIVAL事件。在该事件中可以使用GETDＡTA方法接受数据。

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

（Ａ)客户程序一方面应设立好RＥＭOTEHOST属性，用来指向运营器程序的主机名或IＰ地址ﻫ（B)设立REＭOTEPORT属性,用来指向服务器程序和侦听端标语。ﻫ(C）使用CONNECＴ方法向服务器提出连接请求。ﻫ(D)假如服务器接受上述连接请求，客户机程序会产生CONNＥCT事件。可以根据需要，在此事件中编写程序，比如使用MＳGBＯX函数向用户提醒“连接已成功”之类的信息。

(E）连接成功之后，就可以根据需要使用SＥNＤDATA方法向服务器发送数据了。

(Ｆ）当客户机程序接受到数据时,会产生ＤＡＴAARRIVAL事件，可以用GETDATA方法接受数据。

四、程序设计题。ﻫ1、运用冒泡排序算法开发以下程序，请指出程序中存在的错误并改正。

PrｉvateSubCoｍｍand1_Ｃliｃk（）

DiｍA(1Ｔo2０）AsIntegeｒ

Ｄimｃ,j,TAsIntｅger

'此处有错,应为Dimｃ,j,Tasｉｎtｅｇer

ﻫ‘随机生成一组数据

Ｆｏrc＝1Tｏ20ﻫ

Ａ(ｃ）=Int(Rnｄ*１00)ﻫNeｘtcﻫ‘排序ﻫFｏｒc=1To20ﻫ

Forj＝c+1Tｏ2０ﻫ

IFＡ（c)>A(j)Ｔhen

T=A(j)

A(j)=A(c)

A(j)=T

＇此处有错，应为A（C)=T，实现

EndIf＇A(C）和Ａ(J)的互换ﻫ

ＮextﻫNext

‘在窗体上输出结果

Ｃlｓ

Forｃ=1Ｔo20

ＰｒｉnｔA（i)＇此处有错,应为A(C）.下标越界.ﻫNeｘtｃﻫＥｎdＳub

ﻫ2、运用Wiｎsｏcｋ控件开发一个点对点聊天系统,该系统由一个服务器应用程序和一个客户端应用程序组成,可以实现网络中两台计算机间的通话任务。

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

服务器程序的界面设计

1、创建一个“标准EＸＥ”工程。选中“工程”菜单的“部件”选项，在控件中找到MicｒosoftWinｓoｃkCｏｎtrol并将其选中。假如没有找到,通常是由于ＶB安装不安全的缘故，可以找到安装盘并安装其中的Mｓｗｉnsck.cad压缩包。ﻫ2、将forｍ1的名称改为frｍＳvr,并在其中添加一个命令按钮控件,将其Cａption属性修改为“退出”。ﻫ3、在窗体上添加三个添加TeｘtBox控件，分别将其名称修改为tｘｔServerＩP,txtSｅｎｄ和ｔxtRｅceive,用来显示服务器的IＰ地址和需收发的信息。ﻫ4、在窗体上添加一个Ｗｉｎsｏck控件,将其名称改为WinsockＳeｒveｒ,将Pｒｏtocol(协议)属性设立为0(即sckTCPProtｏcol)ﻫ各控件及事件代码如下：ﻫＰｒivateSuｂCommａnd1＿Click()ﻫＵnｌoadMe

ＥndSｕbﻫ

ＰrｉvaｔeSｕbForm_Loａｄ()

txｔｒｅcｅive．Text="＂

ｔｘtsｅnd．Tｅｘt="＂ﻫWｉnsockservｅr．LocalＰort＝10０01ﻫｔｘｔｓerveｒip.Texｔ=Wｉnsoｃkserver.LocaｌIPﻫWinsｏcｋserver.Listｅn

EndSubﻫ

ＰriｖateＳubtxtｓend＿Change（）ﻫWiｎsoｃｋsｅrver.SendDａｔａtｘtsend．Teｘt

EnｄSｕｂﻫ

ﻫPｒivatｅSuｂWinsocksｅrver_CoｎnecｔiｏｎＲeqｕesｔ(BｙＶalrequesｔIＤAｓLong)

Ｗｉｎsoｃｋｓｅrver.CloseﻫWinsoｃkserｖer.ＡcceｐｔrequestＩDﻫEｎｄSｕb

PriｖａteSubＷｉnsｏcｋserｖｅr_DａtaＡｒｒivaｌ(ByValｂｙtesTotalAsLong)ﻫＤimｍyｓｔｒAｓSｔrｉng

Winsoｃｋserver.ＧetDａtａmyｓtr

ｔｘtｒecｅｉvｅ.Ｔｅｘt=myｓｔrﻫ

ﻫEｎdＳub

客户机程序的界面设计ﻫ1、与服务器程序类似，创建一个新的“标准EXE”工程,并添加Wｉｎsock控件。

２、将ｆoｒm１的名称改为ｆrmClｔ，并添加两个命令按钮控件,分别将它们的Cａｐtioｎ属性设立为“退出”和“连接聊天服务器”。

3、在窗体添加四个文本框控件,分别将其名修改为ｔｘｔCｌieｎtＩP,tｘtSeneｒIP,ｔxtsend和ｔｘtRecｅive,用来显示客户机和要连接的服务器的ＩP地址以及需收发的信息。ﻫ4、在窗体上添加一个Winsoｃk控件，将其名称改为ＷinｓockClｉent,将(协议）属性设立为0(即sckTCＰProtocｏｌ)ﻫ

各控件及事件代码如下：ﻫ

ﻫＰriｖaｔeSubComｍａnd1_Ｃliｃｋ()ﻫUnｌoadMeﻫ

ﻫＥndSub

ﻫPrivaｔeSubＣoｍmａnd2_Cliｃｋ()ﻫWinｓoｃkcｌienｔ.ＲemoteHｏst＝txｔserverＩP.TeｘｔﻫWiｎsocｋcliｅnt．ＣｏnnectﻫEｎｄSuｂﻫ

ﻫPriｖateSubＦｏｒm_Ｌｏad()ﻫtxtｒecｅivｅ．Ｔeｘt＝"＂ﻫtｘｔseｎd.Text=＂"ﻫWiｎｓoｃkcliｅnt．RｅmｏtePorｔ=10001

tｘtcｌｉentＩP．Ｔext=Wiｎsoｃkclｉent.LｏcalIP

ＥｎdＳubﻫ

ﻫＰriｖateＳuｂｔxtｓend＿Ｃhａnｇe（)

Wiｎsocｋclient.SendDataｔｘtseｎd.Textﻫ

ﻫEnｄSub

ﻫPrivateＳｕbWinｓockclient＿Ｃonnｅcｔ()

MsｇBｏx"你成功地与聊天室服务器进行了联接"，ｖbＩｎformaｔｉｏn

EndSubﻫ

PrｉｖateSubWｉnｓoｃkclｉent＿ＤaｔａArrival（ＢyValｂｙteｓＴｏｔalAｓＬoｎg）

ＤiｍｍysｔrAsStriｎgﻫWinsockclient.GetＤaｔａmystr

tｘtｒｅceive.Text＝mystｒﻫ

ﻫEndSubＶiｓuａlBasiｃ程序设计形成性考核册作业作业１

一、选择题

１、在设计应用程序时,可以查看到应用程序工程所有组成部分的窗口是(D）。ﻫ

A、窗体设计

B、代码

C、属性

D、工程资源管理器窗口

2、窗体的ｌｏａd事件的触发时机是（Ｂ)。ﻫＡ、用户单击窗体时

Ｂ、窗体被加载时

C、窗体显示之后

D、窗体卸载时

3、与传统的程序设计语言相比,VisualBaｓｉc最突出的特点是（Ｃ）。ﻫ

A、结构化程序设计

B、程序开发环境

C、事件驱动编程机制

Ｄ、程序调试技术ﻫ4、ＶB6.0集成开发环境的主窗口中不涉及（Ｃ)。ﻫ

A、标题栏

B、菜单栏

Ｃ、状态栏

D、工具栏

5、假如对象的名称为Mytexｔ，并且对象有一个属性Text，那么在代码中引用该属性的对的格式是(B）。ﻫ

A、teｘt.Myｔeｘｔ

B、Ｍytext.Text

C、Mytｅxt.(Ｔｅxt）

D、Mytｅｘt＊Texｔﻫ6、下列可以激活属性窗口的操作是(D)。

A、用鼠标双击窗体的任何部位

B、执行“工程“菜单中的”属性窗口“命令ﻫ

C、按Ctrｌ+Ｆ４

D、按F４

7、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设立窗体的属性，预先应执行的操作是（A）。

A、单击窗体上没有控件的地方

B、单击任一个控件

C、不执行任何操作

D、双击窗体的标题栏

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

A、Captiｏｎ

B、PassｗorｄＣhar

C、Ｔext

Ｄ、Ｃｈａr

9、假如想要在文本框中的内容在运营时不能编辑,需要文本框的（A）属性设立为Tｒue.ﻫALｏｃｋｅd

Ｂ、MｕltｉLine

Ｃ、ＴabＳｔop

DＶisｉble

１０对于定期器（Tｉｎer）控制,设立其定期是否启动的属性是(C）ﻫＡ、Index

B、Tag

C、Ｅnablｅd

D、Left

11、要在窗口体Foｒｎｌ内显示“myfrm”使用的语句是(C）

A、Ｆoｒｍ．caption＝“mｙfｒm”Ｂ、Ｆｏrnｌ．caｐtion=“ｍyfrm”

C、fｏｒml.ｐrｉnt“ｍｙfrm”D、fｏrm.ｐriｎt“mｙfｒm”ﻫ12、对象的性质和状态特性称为（C)ﻫA、事件

Ｂ、方法

Ｃ、属性

Ｄ、类ﻫ13、下列对的的赋值语句是(Ｂ)ﻫA、x＋ｙ=20

B、y=ｘ+20

C、3x=ｙ

D、ｓ＝ﻫ14、当使用上下文相关的帮助时，选择要帮助的内容,然后按(D)键，就可出现ＭＳDN窗口直接显示所需的帮助信息。ﻫ

Ａ、Help

B、F１０

C、Ese

D、Ｆ1

１5、将调试通过的工程经“文献”菜单的“生成．exe文献“编绎成名.ｅxe后，将该可执行文献放到其它机器上不能运营的重要因素是（D）。ﻫＡ、运营的机器上无ＶB系统

B、缺少．ｆrm窗体文献

C、该执行文献有病毒

Ｄ、以上因素都不对

二、填空题ﻫ1、当进入VB集成开发环境后,发现没有显示“工具箱”窗口。应选择视图菜单的工具箱选项，使“工具箱”窗口显示。ﻫ2、在VＢ中，事件过程名由对象名和事件名构成。

3、工程文献的扩展名是

ｖbp，窗体文献扩展名是

frm

。

4、对象时代码和数据的集合，例如,VisuaｌＢａsic中的窗体、按钮、ﻫ文本框等都是对象。

5、对象的方法用于实行某种操作功能。当方法不需要任何参数并且也没有返回值,调用对象的方法的格式为对象名．方法名。例如对窗体Foｒmｌ使用Show方法,应写成

form１．ｓｈow

。

６、要使文本框显示滚动条，需要将其ＳcroｌlＢarｓ属性设立为

３。ﻫ7、欲设立定期的时间间隔为4秒，则属性Intｅrval的值为

40００。ﻫ8、要使标签框的大小随Ｃaption属性做自动调整,应将AutoＳize属性设立为Ｔrue。

9、通过窗体布局窗口可以在设计时直观地调整窗体在屏幕的位置。ﻫ1０、要想在代码中给名为txtsｈow的文框赋予文本：ＧOODWＯRK！时,应当编写的语句是

ｔxtｓhow.tｅxt=”GＯODＷOＲＫ!”。

11、若命令按钮的名称为Ｃmdopen,程序规定单击以上命令按钮,打开一个窗口ｆｒmｌ，请对以下事件过程填空。

PｒｉvateSubCmdopen

ｃlｉck()ﻫFrm1.sｈow

EｎdＳｕｄﻫ12、事件就是对象上所发生的事情，ＶｉsualBasic中的事件如单击、装入、

鼠标移动等。一个对象响应的事件可以有多个，用户不能建立新的事件。事件过程是指响应某个事件后所执行的代码。假设某一事件过程如下:

PriｖateSubcmd1＿Clicｋ()

Foｒm1．Caption=”VＢ示例”ﻫEndSｕｂ

则响应过程的对象名是

ｃmｄ１,事件名是Cｌick

。

１3、对象的方法用于在对象上实行某种操作功能。当方法不需要任何参数并且也没有返回值,调用对象的方法格式为对象名.方法名，例如，对窗体Foｒm1使用Shoｗ方法，应写成

Form1.Ｓhow

。

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

命令,打开选项对话框,然后选择“编辑器”选项卡中的自动语法检测。

１５、定期器（Timｅｒ）控件可辨认的事件是Timer,了生该事件的时间间隔定期由定期器的

Intervａl属性设立,其单位为毫秒。

三、问答题ﻫ1、什么是可视化编程和事件驱动？

ﻫ答:可视化编程是指无须编程,仅通过直观的操作方式即可完毕界面的设计工作的这种编程方式。ﻫ当VB的应用程序运营后,系统处在等待状态,当某个事件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，系统又处在等待另一个事件发生的状态，这就是事件驱动程序方式。

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

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

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

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

事件是在对象上所发生的事情。ﻫ3、简述事件驱动机制与传统编程方式的不同。

答:传统的面向过程的应用程序中,应用程序自身控制了执行那一部分代码按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的途径执行，用户无法改变程序的执行流程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。ﻫ4、简述事件驱动的工作过程。ﻫ答：事件驱动的工作过程如下：（1）启动应用程序，装载和显示窗体。（2)窗体或窗体上的控件等待事件的发生。(3)当某个事件发生后，执行其相应的事件过程代码。（4）反复执行（2)和（3),直到碰到END语句或单击“结束”按钮停止程序的运营。ﻫ四、程序设计题

１、在窗体上添加一个文本框和两个命令按钮,并把两个命令按钮的标题分别设立为“隐藏文本框”和“显示文本框”。当单击第一个命令按钮时,文本框消失；而当单击第二个命令按钮时，文本框重新出现,并在文本框中显示“VＢ程序设计”(字体大小为16)。程序运营界面如图所示。ﻫﻫ图1ﻫ解：“隐藏文本框”按钮中的代码为：Tｅxt1.Ｖisible=Falｓｅﻫ“显示文本框”按钮中的代码为:Ｔext1.Ｖiｓible=True

Texｔ1.Text＝”VB程序设计”ﻫ

Tｅxｔ１.FontＳizｅ=”１6”

2、设计一个计算程序。该程序用户界面如图2所示,由四个文本框：文本框１(text1)、文本框2(text2）、文本框3（text３)、文本框4(ｔｅｘｔ4）,和三个按钮:命令按钮1(coｍmaｎd１)、命令按钮2（coｍmａｎｄ2)、命令按钮3(comｍanｄ3）组成。程序运营后，用户按清除按钮，则清除文本框中显示的内容,按计算按钮，则计算三科平均成绩。单击退出按钮则退出。

解:cｏｍmand1中的代码为：tｅxｔ1=””:ｔext2=””：texｔ3=””:text4=””

cｏmmand2中的代码为:ｔeｘt4=（val(Teｘｔ1)+val（Text2）＋val(Tｅxt3))/3ﻫcommanｄ２中的代码为:Ｅndﻫ３、编写一收款计算程序。规定用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮，清除文本框中所有的数据。程序运营界面如图3所示。ﻫ答：“计算”按钮的代码：tｅxｔ4=vａｌ(Text１)＊ｖal(Teｘt2)*val（Ｔeｘt3)／100ﻫ“清除”按钮的代码：text1=””：ｔext2=””：teｘt3=””:texｔ4＝””

ﻫﻫﻫ作业2一、选择题ﻫ1.按照变量的作用域可将变量划分为(B

）。

A、公有、私有、系统

B、全局变量、模块级变量、过程变量ﻫC、动态、常数、静态

D、Ｐuｂlic、Privａｔe、Proｔectｅd

2．可获得字符的ASCIＩ码的函数是（C)。

A、ＶalB、FixC、Aｓc

Ｄ、Chｒﻫ3、要退出Dｏ….Lｏoｐ循环,可使用的语句的（Ｄ）语句。

A、Exit

B、Exiｔ

For

Ｃ、EndＤｏ

D、ExｉｔDoﻫ4.把数值型转换为字符串型需要使用的函数是(B）。

A、Val

B、Ｓtr

C、Asｃ

D、Chr

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

Ａ.一行只能写一条语句B．一条语句可以分多行书写ﻫC．每行的首字符必须大写Ｄ．长度不能超过２55个字符ﻫ6.表达式6+10Mｏd4*2+1的值是(A）.

A.９Ｂ.11C.1D．3

7.以下可以作为ＶisuaｌBasiｃ变量名的是（B）.

Ａ．SIN

B.CO１

C.COＳ(X）

D.X(－１)

8.表达式Abs(－5）+Ｌｅn(“ＡＢCＤE”）的值为(C）.ﻫA.5ABＣDＥＢ.－5AＢCDE

C.1０

D．0

９．在代码编辑器中,假如一条语句太长，无法在一行内写下（不涉及注释),要折行书写，可以在行末使用续行字符(Ａ）,表达下一行是当前行的继续.

Ａ.一个空格加一个下划字符（＿)B．一个下划字符(_）

Ｃ.直接回车

Ｄ.一个空格加一个字符（-）ﻫ10．Sｕb过程与Ｆunctiｏn过程最主线的区别是（D）．

A.Suｂ过程可以使用Ｃall语句或直接使用过程名调用，而Fuｎｃtion过程不可以．

Ｂ.Function过程可以有参数,Sub过程不可以．ﻫC．两种过程参数的传递方式不同.

D．Ｓuｂ过程的过程名不能返回值,而Fｕnｃtioｎ过程可以通过过程名返回值.ﻫ11.＂X是小于80的非负数"，用ＶB表达式表达对的的是（C)．ﻫ

A..0≤X<80

B．0＜=X＜80

C.0<=xandｘ＜8０

D.0＜＝xOrx<８0ﻫ12.在设计菜单时，假如要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设立为(B)

Ａ．加号(+）

B.减号(－)

Ｃ.星号(*)

D.感慨号(!)

13.假如要在程序中显示一个弹出式菜单,那么要调用ＶiｓuaｌBａｓｉc中提供的方法是(D).

A.Pｒiｎｔ

B．Ｍｏve

C.Ｒｅfrｅsｈ

D.PopｕｐMｅnu

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

Ａ．ＴｏolBar

B．SｔaｔuｒsBar

Ｃ.IｍagｅList

D.TrｅeＶiewﻫ１5.当单击工具拦上的按扭时,会触发的事件是(Ａ).ﻫ

Ａ.BｕtｔoｎClick

B.Cｈange

C.Lｏａd

D.KeyPrｅssﻫ16．要运用公用对话框控件来显示”打开文献”对话框,需要调用控件的(B）方法．ﻫ

A.ShowＰriｎｔeｒ

B.SｈowＯpen

Ｃ.ＳhowSaｖe

Ｄ.ShowCｏlorﻫ1７.对于窗体级变量，下列说法中错误的是(Ｃ).ﻫA.所在窗体的各子程序都可以访问

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

Ｃ.所在窗体发子程序不能访问用Ｐrｉvａte定义的窗体级变量

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

18.从一个字符串中的第3个字符开始,获取5个字符，应使用（B）ﻫ