程序设计形成性考核册作业3
一、选择题1、Visible Basic根据计算机访问文件的方式将文件分成三类，其中不包括（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" for write As #1
B. open "text.dat" for Binary As #1
C. open "text.dat" for Input As #14 l8 K* F2 f* H2 O0 j/ ^
open "text.dat" for Random 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、下列数据对象模型中采用OLE DB访问数据库的是（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． Dim xl As Excel.Application B. Dim xl As Excel.Workbook
C. Dim xl As Excel.Worksheet D. Dim xl As Excel.Worksheets
二、填空题
1、如果要新建一个顺序文件，用Open语句时，操作方式关键词是 output 。
2．在Visual Basic程序中实现复制文件"C：/command.com"到D:盘根目录下的语句
为 filecopy "c:/command.com","d:/" 。
3. 在Visual Basic程序中实现删除文件"D:/tem.tmp"的语句为__kill "d:/tem.tmp" 。
4.按文件号为1打开顺序文件SEQNEW.DAT,用于写入数据,语句为___open "SEQNEW.DAT" for output as # 1 。
5.按文件号为2打开顺序文件SEQOLD.DAT,用于从该文件读出数据,语句为___open "SEQOLD.DAT" for input as #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 * from Tabel1 Where学号='"+Str1+"'"后,StrSQL的值等于_"select. * from tabel1 where 学号='001'"_.
15.在VB中,将Foxpro称为外部数据库,Access称为__本地数据库_，SQL Server称为__远程数据库__.
三、程序设计题
1、在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为C盘，选择File1中所列的确图片文件（*.Bmp和*.jpg），则相应的图片显示在图片框Picture1中。程序运行结果如图10所示。
解：依据图10设计界面，文件列表框的pattern属性设置为：*.Bmp ; *.jpg6 }"
驱动器列表框的change事件中添加如下代码：
chdrive drive1.drive
dir1.path=drive1.drive
目录列表框的change事件中添加如下代码：
chdir dir1.path
file1.path=dir1.path
文件列表框的click事件中添加如下代码：
picture1.picture=loadpicture file1.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"
For I =-6.282 to 6.282 step 0.084
Form1.pset(I, cos(I))
Next I
3,使用Line控件显示直线,并且可以显示直线的线宽和线型.程序运行界面如图12所示.
如图 添加代码如下
复选框的单击事件代码：
If check1.value =1 then
Line1.border width =4
Else
Line1.border width = 1
End if
实线、虚线、单选框要弄成一个option1单选框控件数组。单选框单击事件代码：
Select case index
Case 0
Line1.borderstyle = 1
Case 1
Line1.borderstyle = 2
Case 2
Line1.borderstyle = 3
End select
4.使用Shape控件显示几种图形,并可以设置图形的边框和填充效果等.程序运行界面如图13所示.
%首先按图作出程序界面。形状框架里的单选框要做成option1控件数组，边框类型框架里的单选框最成option2控件数组，填充风格框架里的单选做成option3控件数组。
Option 1单击事件代码如下：
Select case index
Case 04
Shape1.shape = 0
Case 1
Shape1.shape = 11
Case 2
Shape1.shape = 3
Case 3
Shape1.shape = 4
End select4
Option 2单击事件代码如下
Select case index
Case 0
Shape1.borderstyle = 0
Case 1
Shape1. borderstyle = 2
Case 2'
Shape1. borderstyle = 14
Case 3
Shape1. borderstyle = 3
Case 4
Shape1. borderstyle =4
End select
Option 3单击事件代码如下:
Select case index
Case 0
Shape1.fillstyle = 1
Case 1
Shape1. fillstyle = 14 }1 _5 r" m0 O
Case 2
Shape1. fillstyle = 3
Case 3
Shape1. fillstyle = 6
End select
5.使用SQL Server或Access建立名称为"学生"的数据库,并在其中创建"students"的数据库表,其结构及初始记录如表1所示.使用ADO对象和MSFlexGrid控件设计数据库列表显示程序.程序的设计界面和运行结果如图14、图15所示。
学号 姓名 专业
2004001 张红 软件专业
2004003 李强 会计专业
2004002 王丽 软件专业
声名对象变量ADOcn，用于创建与数据库的连接
Private ADOcn As connection
Readfromtable3
Private sub readfromtable( )
Dim strtmp As string
Dim ADOrs As new recordset
ADOrs.activeconnection =ADOcn
ADOrs.open "select*from students order by "学号"
MSFlexgrid1.clear
MSFlexgrid1.rows = 0
MSFlexgrid1.cols = 3
Strtmp = "学号"+vbtab+"姓名"+vbtab+"专业"
MSFlexgrid1.additem strtmp
Do while not ADOrs.eof
Strtmp=ADOrs("学号")+vbtab+ADOrs(" 姓名")+vbtab+ADOrs("专业")
MSFlexgrid1.addttem strtmp
ADOrs movenext4
Loop
MSFlexgrid1.fixedcols = 0
MSFlexgrid1.fixedrows = 1
End sub
Private sub form_load()
Dim strDB As string
strDB="provider=SQLOLEDB;LSF;User ID=sa;password=;database=学生"
if ADOcn is nothing then
set ADOcn=new connection
ADOcn.open strDB
End if
Readfrom table
End sub
Private sub command1_click()
Unload me
End sub
Visual Basic程序设计形成性考核册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、On Error Go To ErrLB语句中，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 、Internet Transfer、WebBrowser 三种。
9、VB中的程序错误类型主要有编译错误、逻辑错误、实时错误等三种。
10、VB中用于关闭错误捕获机制的语句是on error goto 0。
三、问答题。
1、简述基于Sock e t的通信过程。
Socket在计算机提供了一个通信端口，可以通过这个端口与任何一个也同时具有Socket接口的计算机进行通信，应用程序在网络上传输、接收的信息都通过这个Socket接口实现，只需要对Socket接口进行数据的读写操作就可以了。
2、简要设计错误处理程序的3个步骤。
（1）捕捉错误，并强制程序跳转
（2）编写错误处理程序，对所有可预见的错误作出反应
（3）退出错误处理程序
3、简述常用的程序调式技巧
（1）事先做好备份# y. i! Q& f6 z
（2）分离受怀疑的程序
（3）缩小搜索范围
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、利用冒泡排序算法开发以下程序，请指出程序中存在的错误并改正。
Private Sub Command1_Click()
Dim A( 1 To 20 )As Integer
Dim c , j , T As Integer ’此处有错，应为Dim c ,j ,T as integer '随机生成一组数据
For c= 1 To 20
A(c) = Int ( Rnd *100 )
Next c
For c = 1 To 20
For j = c+ 1 To 20
IF A(c)>A( j )Then
T=A ( j )
A( j )=A (c)
A( j )=T ’此处有错，应为A（C）＝T，实现
End If ’A（C）和A（J）的交换
Next
Next
'在窗体上输出结果
For c = 1 To 20
Print A ( i ) ’此处有错，应为A（C）．下标越界．
End Sub
2、利用Winsock控件开发一个点对点聊天系统，该系统由一个服务器应用程序和一个客户端应用程序组成，能够实现网络中两台计算机间的通话任务。
解：如下界面的设计中，若不说明，各对象均采用默认的名称。
服务器程序的界面设计
1、创建一个"标准EXE"工程。选中"工程"菜单的"部件"选项，在控件中找到Microsoft Winsock Control 并将其选中。如果没有找到，通常是由于VB安装不安全的缘故，可以找到安装盘并安装其中的Mswinsck.cad 压缩包。
2、将form1的名称改为 frmSvr ，并在其中添加一个命令按钮控件，将其Caption属性修改为"退出"。
3、在窗体上添加三个添加TextBox控件，分别将其名称修改为txtServerIP , txtSend 和txtReceive,用来显示服务器的IP地址和需收发的信息。
4、在窗体上添加一个Winsock控件，将其名称改为WinsockServer，将Protocol（协议）属性设置为0（即sckTCPProtocol
各控件及事件代码如下：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
txtreceive.Text = ""
txtsend.Text = ""
Winsockserver.LocalPort = 10001
txtserverip.Text = Winsockserver.LocalIP
End Sub
Private Sub txtsend_Change()
Winsockserver.SendData txtsend.Text%
End Sub
Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)
Winsockserver.Close
Winsockserver.Accept requestID
End Sub
3Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)
Dim mystr As String$
Winsockserver.GetData mystr
txtreceive.Text = mystr
End Sub g
客户机程序的界面设计
1、与服务器程序类似，创建一个新的"标准EXE"工程，并添加Winsock控件。
2、将form1的名称改为 frmClt，并添加两个命令按钮控件，分别将它们的Caption属性设置为"退出"和"连接聊天服务器"。
3、在窗体添加四个文本框控件，分别将其名修改为txtClientIP, txtSenerIP, txtsend和txtReceive，用来显示客户机和要连接的服务器的IP地址以及需收发的信息。
4、在窗体上添加一个Winsock控件，将其名称改为WinsockClient，将（协议）属性设置为0（即sckTCPProtocol）
各控件及事件代码如下：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Winsockclient.RemoteHost = txtserverIP.Text
Winsockclient.Connect
End Sub
Private Sub Form_Load()
txtreceive.Text = ""
txtsend.Text = ""
Winsockclient.RemotePort = 10001
txtclientIP.Text = Winsockclient.LocalIP
End Sub
Private Sub txtsend_Change()
Winsockclient.SendData txtsend.Text!
End Sub
Private Sub Winsockclient_Connect()
MsgBox "你成功地与聊天室服务器进行了联接", vbInformation:
End Sub
Private Sub Winsockclient_DataArrival(ByVal bytesTotal As Long)
Dim mystr As String
Winsockclient.GetData mystr
txtreceive.Text = mystr3
End Sub
上一篇：《监督学》形考作业1
下一篇：暂无