Visual Basic程序设计形成性考核册作业答案三.docx
- 文档编号:9412656
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:10
- 大小:18.60KB
Visual Basic程序设计形成性考核册作业答案三.docx
《Visual Basic程序设计形成性考核册作业答案三.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计形成性考核册作业答案三.docx(10页珍藏版)》请在冰豆网上搜索。
VisualBasic程序设计形成性考核册作业答案三
VisualBasic程序设计形成性考核册作业答案三
一、选择题
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.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)属性。
A.ShapeB.BorderstyleC.FillStyleD.Style
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:
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
学号姓名专业
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
Endif
Readfromtable
Endsub
Privatesubcommand1_click()
Unloadme
Endsub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计形成性考核册作业答案三 Basic 程序设计 形成 考核 作业 答案