Visual Basic程序设计形成性考核册作业答案三Word文件下载.docx
《Visual Basic程序设计形成性考核册作业答案三Word文件下载.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计形成性考核册作业答案三Word文件下载.docx（10页珍藏版）》请在冰豆网上搜索。
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.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、为了清除图片框Picture1中的图形，应采取的正确方法是（B）
A．选择图片框，然后按Del键
B．执行语句Picture1.picture=LoadPicture（“”）
C．执行语句Picture1.picture=“”
D．选择图片框，在属性窗口中选择Picture属性条，然后按回车键
13、绘制多种形状的图形，需要设置Shape控件的（A）属性。
A．ShapeB.BorderstyleC.FillStyleD.Style
14、绘制多种形状的直线，需要设置Line控件的（B）属性。
15、如果准备读文件，打开顺序文件“text.dat”的正确语句是（C）
A.open“text.dat”forwriteAs#1
B.open“text.dat”forBinaryAs#1
C.open“text.dat”forInputAs#1
D.open“text.dat”forRandomAs#1
16、如果准备向随机文件中写入数据，正确的语句是（C）
A.Print#1,recB.Write#1,recC.Put#1,recD.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．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”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：
print”-pi”
Form1.currentx=3.3：
print”pi”
Form1.currentx=-6.2：
print”-2pi”
Form1.currentx=5.7：
print”2pi”
form1.currentY=0.5:
print”0.5”
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单击事件代码如下：
Shape1.shape=0
Shape1.shape=1
Shape1.shape=3
Case3
Shape1.shape=4
Option2单击事件代码如下:
Shape1.borderstyle=0
Shape1.borderstyle=2
Shape1.borderstyle=1
Shape1.borderstyle=3
Case4
Shape1.borderstyle=4
Option3单击事件代码如下:
Shape1.fillstyle=1
Shape1.fillstyle=1
Shape1.fillstyle=3
Shape1.fillstyle=6
5.使用SQLServer或Access建立名称为”学生的数据库,并在其中创建”students”的数据库表,其结构及初始记录如表1所示.使用ADO对象和MSFlexGrid控件设计数据库列表显示程序.程序的设计界面和运行结果如图14、图15所示。
表1
学号姓名专业
2004001张红软件专业
2004003李强会计专业
2004002王丽软件专业
声名对象变量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
Readfromtable
Privatesubcommand1_click（）
Unloadme
升级会员 