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

VisualBasic程序设计形成性考核册作业[font=宋体][/font]作业[b]1[/b]

一、选择题

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.Mytext

B、Mytext.Text

C、Mytext.(Text)

D、Mytext*Text

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

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

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

C、按Ctrl+F4

D、按F4

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

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

B、单击任一个控件

C、不执行任何操作

D、双击窗体的标题栏

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

A、Caption

B、PasswordChar

C、Text

D、Char

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

ALocked

B、MultiLine

C、TabStop

DVisible

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

A、Index

B、Tag

C、Enabled

D、Left

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

A、Form.caption=“myfrm”B、Fornl.caption=“myfrm”

C、forml.print“myfrm”D、form.print“myfrm”

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

A、事件

B、方法

C、属性

D、类

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

A、x+y=20

B、y=x+20

C、3x=y

D、s=

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

A、Help

B、F10

C、Ese

D、F1

15、将调试通过的工程经“文献”菜单的“生成.exe文献“编绎成名.exe后，将该可执行文献放到其它机器上不能运营的重要因素是（D）。

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

B、缺少.frm窗体文献

C、该执行文献有病毒

D、以上因素都不对

二、填空题

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

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

3、工程文献的扩展名是[u]

vbp[/u]，窗体文献扩展名是[u]

frm

[/u]。

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

[u]文本框[/u]等都是对象。

5、对象的方法用于[u]实行某种操作功能[/u]。当方法不需要任何参数并且也没有返回值，调用对象的方法的格式为[u]对象名[/u][u].[/u][u]方法名[/u]。例如对窗体Forml使用Show方法，应写成[u]

form1.show

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

3[/u]。

7、欲设立定期的时间间隔为4秒，则属性Interval的值为[u]

4000[/u]。

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

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

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

txtshow.text=”GOODWORK[/u][u]！[/u][u]”[/u]。

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

PrivateSubCmdopen

[u]click()[/u]

[u]Frm1.show[/u]

EndSud

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

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

PrivateSubcmd1_Click()

Form1.Caption=”VB示例”

EndSub

则响应过程的对象名是[u]

cmd1[/u]，事件名是[u]Click

[/u]。

13、对象的方法用于[u]在对象上实行某种操作功能[/u]。当方法不需要任何参数并且也没有返回值，调用对象的方法格式为[u]对象名[/u][u].[/u][u]方法名[/u]，例如，对窗体Form1使用Show方法，应写成[u]

Form1.Show

[/u]。

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

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

15、定期器（Timer）控件可辨认的事件是[u]Timer[/u]，了生该事件的时间间隔定期由定期器的[u]

Interval[/u]属性设立，其单位为[u]毫秒[/u]。

三、问答题

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

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

当VB的应用程序运营后，系统处在等待状态，当某个事件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，系统又处在等待另一个事件发生的状态，这就是事件驱动程序方式。

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

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

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

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

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

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

答：传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的途径执行，用户无法改变程序的执行流程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。

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

答：事件驱动的工作过程如下：（1）启动应用程序，装载和显示窗体。（2）窗体或窗体上的控件等待事件的发生。（3）当某个事件发生后，执行其相应的事件过程代码。（4）反复执行（2）和（3），直到碰到END语句或单击“结束”按钮停止程序的运营。

四、程序设计题

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

图1解：“隐藏文本框”按钮中的代码为：Text1.Visible=False显示文本框”按钮中的代码为：Text1.Visible=True

Text1.Text=”VB程序设计”

Text1.FontSize=”16”

2、设计一个计算程序。该程序用户界面如图2所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command3）组成。程序运营后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。

解：command1中的代码为：text1=””：text2=””：text3=””：text4=””

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

command2中的代码为：End

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

答：“计算”按钮的代码：text4=val(Text1)*val(Text2)*val(Text3)/100

“清除”按钮的代码：text1=””：text2=””：text3=””：text4=””

作业[b]2[/b]一、选择题

1．按照变量的作用域可将变量划分为（B

）。

A、公有、私有、系统

B、全局变量、模块级变量、过程变量

C、动态、常数、静态

D、Public、Private、Protected

2.可获得字符的ASCII码的函数是（C）。

Ａ、ValＢ、FixＣ、Asc

Ｄ、Chr

3、要退出Do….Loop循环，可使用的语句的（D）语句。

A、Exit

B、Exit

For

C、EndDo

D、ExitDo

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

A、Val

B、Str

C、Asc

D、Chr

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

Ａ．一行只能写一条语句Ｂ．一条语句可以分多行书写

Ｃ．每行的首字符必须大写Ｄ．长度不能超过255个字符

６．表达式6+10Mod4*2+1的值是（A）．

Ａ．９Ｂ．11C．１D.3

7.以下可以作为ＶisualBasic变量名的是（B）．

Ａ．SIN

B.CO1

C.COS(X)

D.X(-1)

8.表达式Ａbs(-5)+Len(“ABCDE”)的值为（C）．

Ａ．5ABCDEＢ.－5ABCDE

C.10

D.0

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

Ａ．一个空格加一个下划字符（＿）Ｂ．一个下划字符（＿）

Ｃ．直接回车

Ｄ．一个空格加一个字符（－）

10.Sub过程与Function过程最主线的区别是（D）．

Ａ．Sub过程可以使用Ｃall语句或直接使用过程名调用，而Function过程不可以．

Ｂ．Function过程可以有参数，Sub过程不可以．

Ｃ．两种过程参数的传递方式不同．

Ｄ．Sub过程的过程名不能返回值，而Function过程可以通过过程名返回值．

11.＂Ｘ是小于80的非负数＂，用VB表达式表达对的的是（C）.

A..0≤X<80

B.0<=X<80

C.0<=xandx<80

D.0<=xOrx<80

12.在设计菜单时,假如要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设立为(B)

A.加号(+)

B.减号(-)

C.星号(*)

D.感慨号(!)

13.假如要在程序中显示一个弹出式菜单,那么要调用VisualBasic中提供的方法是(D).

A.Print

B.Move

C.Refresh

D.PopupMenu

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

A.ToolBar

B.StatursBar

C.ImageList

D.TreeView

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

A.ButtonClick

B.Change

C.Load

D.KeyPress

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

A.ShowPrinter

B.ShowOpen

C.ShowSave

D.ShowColor

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

A.所在窗体的各子程序都可以访问B.其他窗体的子程序不能访问

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

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

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

A.Len函数

B.Mid函数

C.Left函数

D.Right函数

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

DimA(-3To5)As

Integer

A.6

B.7

C.8

D.9

20.有如下程序段:

DimstrlAsString*5

Strl=”VisualBasic”

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

A.”Visual”

B.”Visua”

C.”V”

D.”Visual

Basic”

二、填空题

1．菜单一般有_[u]下拉式[/u]_和_[u]弹出式[/u]__两种基本类型。

2．通用对话框控件可显示的常用对话框有__[u]打开[/u]_、_[u]保存[/u]_、__[u]颜色[/u]_、__[u]字体[/u]_、__[u]打印[/u]_。

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

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

5．调用Sub过程时，使用__[u]call_[/u]_语句,语句用于把程序控制传送到一个VisualBasic的Sub过程。

6．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过_[u]工程[/u]_菜单__[u]属性_[/u]命令的_[u]通用[/u]_选项卡，可将启动窗体设立为Form2。在程序中若要显示Form1窗体，则执行_[u]Form1.show[/u]_语句。

7．列表框中项目的序号是从_[u]0[/u]_开始的。

8．Sub过程与Function过程最主线的区别是[u]_Sub过程名无返回值，Function过程名有返回值[/u]。

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

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

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

⑴

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

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

⑶sin45°:[u]sin(45*2*3.1415/360)[/u]_

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

⑴1≤x<12:1<=xandx<12

⑵A+B≥C或a-c≤c:(A+B)>=COR(a-c)<=c

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

13．设A=2，B=3，C=4，D=5。表达式NotA<=COr4*B^2AndB<>A+C的值为_[u]False[/u]_。

14．在VisualBasic语言中有三种形式的循环结构。其中，若循环的次数可以事先拟定，可使用_[u]For…next[/u]__循环；若规定先判断循环进行的条件，可使用_[u]Dowhile…loop[/u]_循环或_[u]while…Wend[/u]_循环。

15．以下语句的输出结果是__[u]3[/u]_。

a%=3.14159

Printa%

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

1、PrivateSubForm_Click()

StaticSumAsInteger

ForI=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

Forj%=1toi

PrintLTrim(Str(i%))+“*”+LTrim(Str(j%))+“=”;i%*j%;

Nextj%

Print

Nexti%

EndSub1*1=1

2*1=2

2*2=4

3*1=3

3*2=6

3*3=9

4、PrivateSubCommand1_Click()Dima,bAsInteger

A=3.4

B=3.4

Text1.Text=a

Text2.Text=b

EndSub

Text1显示3、4

Text2显示3

5、PrivateSubForm_Click()

ForI=1to5

PrintTab(11–I)

ForJ=1ToI*2–1

Print“*”;

Next

Nexti

EndSub

*

***

*****

****************

四、程序设计题

1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，规定在Text1中输入购物商品总金额，单击命令按钮，在Text2中输入优惠后的价格。程序运营结果如图解所示。

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

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

ElseifVal(text1)>=200thentext2=val(text1)*0.9

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

Endif

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

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

Dimaasinteger

A=100

Dowhilea<=200

If(amod3)<>0then

List1.additenstr(a)

Endif

A=a+1

loop

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

DimI,jasinteger

Print”*”:space(5):

Fori=3to12step3

Printstr(i);space(5);

Nexti

Print

ForI=15to18

Printstr(i);space(3);

Forj=3to12step3

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

Nextj

Print

Nextj

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

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

Text1=10*2

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

Text1=10/2

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

Text1=10+2

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

结束按钮中代码:end或unloadme

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

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

Selectcaseval(text1)

Case0

Label1.caption=”星期天”+chr(13)+”(Sunday)”

Case1

Label1.caption=”星期一”+chr(13)+”(monday)”

Case2

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

Case3

Label1.caption=”星期三”+chr(13)+”(wednesday)”

Case4

Label1.caption=”星期四”+chr(13)+”(thursday)”

Case5

Label1.caption=”星期五”+chr(13)+”(firday)”

Case6

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

Endselect

6、编写一个程序，当鼠标移到Picturel控件时，鼠标指针改变形状；当在Picturel控件上单击鼠标右键时，通过消息框显示“Youpressedrightbutton”，并再次改变鼠标指针的形状。

Picture1_mouseup

Ifbutton=2then

I=1

Msgbox”youpressedrightbutton”

Endif

Endsub

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

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

Text1.text=””

删除:iflist1.text<>””then

List1.removeitem=list1.listindex

Endif

修改:

Ifcommand3.caption=“修改”then

Text1.text=list1.text

Command3.caption=”修改确认”

Else

If

command3.caption=”修改确认”then

List1.list=list1.listindex>=text1.text

Command3.caption=”修改”

Endif

Endif佩因ぁ零发表于2023-11-1416:31作业3

一、选择题

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

A．顺序文献

B.Unix文献

C.二进制文献

D.随机文献

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

A．字节

B。记录

C。整个文献

D。字符

3、为了使目录途径列表框Dir1的内容符合驱动器列表框Drive1的选择，应当（B）。

A．在Dir1_Click事件中加入Dir1.Path=Drive1.Drive

B．在Drive1_Click事件中加入Dir1.Path=Drive1.Drive

C．在Dir1_Click事件中加入Drive1.Path=Dir1.Drive

D．在Dir1_Click事件中加入Drive1.Path=Dir1.Drive

4、为了使drive1驱动器列表框、dir1目录途径列表框和file1文献列表框能同步协调工作，需要在（B）

A．drive1的Change事件过程中加入drive1.Drive=dir1.Path，在dir1的Change事件过程中加入dir1.Path=file1.Path代码。

B．drive1的Change事件过程中加入dir1.Path=drive1.Drive，在dir1的Change事件过程中加入file1.Path=dir1.Path代码。

C．dir1的Change事件过程中加入dir1.Path=drive1.Drive，在file1的Click事件过程中加入file1.Path=file1.fileName代码。

D．dir1的Change事件过程中加入dir1.Path=drive1.Drive，在file1的Click事件过程中加入file1.Path=dir1.Path代码。

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

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

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

C．数据只能以ASCII码形式存放在文献中，所以可通过文本编辑软件显示

D．文献的组织结构复杂

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

A．清内存

B。清病毒

C。删除磁盘上的文献

D。清屏幕

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

A.Drawstyle属性

B.DrawWidth属性

C.Scale方法

D.ScaleMode属性

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

B.DrawWidth属性

C.Scale

D.

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.Drawstyle

B.Borderstyle

C.DrawWidth

D.ScaleMode

12、为了清除图片框Picture1中的图形，应采用的对的方法是（B）

A．选择图片框，然后按Del键

B．执行语句Picture1.picture=LoadPicture(“”)

C．执行语句Picture1.picture=“”

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

13、绘制多种形状的图形，需要设立Shape控件的（A）属性。

A．Shape

B.Borderstyle

C.FillStyle

D.Style

14、绘制多种形状的直线，需要设立Line控件的（B）属性。

A．Shape

B.Borderstyle

C.FillStyle

D.Style

15、假如准备读文献，打开顺序文献“text.dat”的对的语句是（C）

A.

open“text.dat”forwriteAs#1

B.

open“text.dat”forBinary

As#1

C.

open“text.dat”forInput

As#1

D.

open“text.dat”forRandom

As#1

16、假如准备向随机文献中写入数据，对的的语句是（C）

A.Print#1,rec

B.Write

#1,rec

C.Put#1,rec

D.

Get#1,rec

17、下列“CommandDialog1”控件程序代码，CommandDialog1.Action=1，代表（B）

A．文献另存为

B.打开文献

C.色彩

D.打印

18、FileFilter.Pattern=”*.bat”程序代码执行后，会显示（A）。

A只包含扩展文献名为”*.bat”的文献

B。第一个bat文献

C．包含所有的文献

D。会显示磁盘的途径

19、下列数据对象模型中采用OLEDB访问数据库的是（C）。

A．DAO

B.RDO

C.ADO

D.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.Application

B.DimxlAsExcel.Workbook

C.

DimxlAsExcel.Worksheet

D.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”foroutputas

#1。

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

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

7.Stretch属性设立为_false_时,图像框可自动改变大小以适应其中的图形.

8.在图片框Picture1中画一个左上角在(500,500),边长为500的红色实心正方形的语句为_picture1.line(500,500)-step(500,500),vbred,BF。

9.设

CurrentX=50,CurrentY=100,执行指令”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、Str1为字符串变量,其中Str1的值为”001”,那么执行赋值语句StrSQL=”Select*fromTabel1Where学号=’”+Str1+”’”后,StrSQL的值等于_”select.*fromtabel1where学号=’001’”_.

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

三、程序设计题

1、在窗体上建立一个驱动器列表框、目录列表框、文献列表框、图片框。规定程序运营后，驱动器列表框Drive1的默认驱动器设立为C盘，选择File1中所列的确图片文献（*.Bmp和*.jpg），则相应的图片显示在图片框Picture1中。程序运营结果如图10所示。

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

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

chdrivedrive1.drive

dir1.path=drive1.drive

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

chdirdir1.path

file1.path=dir1.path

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

picture1.picture=loadpicturefile1.filename

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

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

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

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

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

Form1.currentx=0.2：form1.currentY=-0.1:print”0”

Form1.currentx=-3.2：form1.currentY=-0.1:print”-pi”

Form1.currentx=3.3：form1.currentY=-0.1:print”pi”

Form1.currentx=-6.2：form1.currentY=-0.1:print”-2pi”

Form1.currentx=5.7：form1.currentY=-0.1:print”2pi”

Form1.currentx=0.2：form1.currentY=0.5:print”0.5”

Form1.currentx=0.2：form1.currentY=-0.5:print”-0.5”

ForI=-6.282to6.282step0.08

Form1.pset(I,cos(I))

NextI

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

如图添加代码如下

复选框的单击事件代码：

Ifcheck1.value=1then

Line1.borderwidth=4

Else

Line1.borderwidth=1

Endif

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

Selectcaseindex

Case0

Line1.borderstyle=1

Case1

Line1.borderstyle=2

Case2

Line1.borderstyle=3

Endselect

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

一方面按图作出程序界面。形状框架里的单选框要做成option1控件数组，边框类型框架里的单选框最成option2控件数组，填充风格框架里的单选做成option3控件数组。

Option1单击事件代码如下：

Selectcaseindex

Case0

Shape1.shape=0

Case1

Shape1.shape=1

Case2

Shape1.shape=3

Case3

Shape1.shape=4

Endselect

Option2单击事件代码如下:

Selectcaseindex

Case0

Shape1.borderstyle=0

Case1

Shape1.borderstyle=2

Case2

Shape1.borderstyle=1

Case3

Shape1.borderstyle=3

Case4

Shape1.borderstyle=4

Endselect

Option3单击事件代码如下:

Selectcaseindex

Case0

Shape1.fillstyle=1

Case1

Shape1.fillstyle=1

Case2

Shape1.fillstyle=3

Case3

Shape1.fillstyle=6

Endselect

5.使用SQLServer或Access建立名称为”学生的数据库,并在其中创建”students”的数据库表,其结构及初始记录如表1所示.使用ADO对象和MSFlexGrid控件设计数据库列表显示程序.程序的设计界面和运营结果如图14、图15所示。

表1

学号姓名专业

2023001张红软件专业

2023003李强会计专业

2023002王丽软件专业

声名对象变量ADOcn，用于创建与数据库的连接

PrivateADOcnAsconnection

Readfromtable

Privatesubreadfromtable()

DimstrtmpAsstring

DimADOrsAsnewrecordset

ADOrs.activeconnection=ADOcn

ADOrs.open“select*fromstudentsorderby“学号”

MSFlexgrid1.clear

MSFlexgrid1.rows=0

MSFlexgrid1.cols=3

Strtmp=“学号”+vbtab+“姓名”+vbtab+“专业”

MSFlexgrid1.additemstrtmp

DowhilenotADOrs.eof

Strtmp=ADOrs(“学号”)+vbtab+ADOrs(“姓名”)+vbtab+ADOrs(“专业”)

MSFlexgrid1.addttemstrtmp

ADOrsmovenext

Loop

MSFlexgrid1.fixedcols=0

MSFlexgrid1.fixedrows=1

Endsub

Privatesubform_load()

DimstrDBAsstring

strDB=”provider=SQLOLEDB;LSF;UserID=sa;password=;database=学生”

ifADOcnisnothingthen

setADOcn=newconnection

ADOcn.openstrDB

Endif

Readfromtable

Endsub

Privatesubcommand1_click()

Unloadme

Endsub佩因ぁ零发表于2023-11-1416:32作业4

一、选择题

1、WinsockServer.LocalPort=10001语句的含义是（

A）。

A、设立侦听端口

B、设立计算机IP地址

C、设立中断地址

D、设立通讯协议

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

B）。

A、1

B、0

C、2

D、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语句中，ErrLB的含义是（

A

）。

A、行标记号

B、SUB过程名

C、FUNCTION过程名

D、错误号

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

）。

A、ErrNo

B、Description

C、Number

D、Source

二、填空题。

1、使用Winsock控件时，一旦有数据到达，将一方面触发该控件的DataArrival事件。而假如要发送数据，则通常使用该控件的senddata方法。

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

3、ActiveXEX文献的后缀是exe。

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

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

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

7、Winsock1.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。

（