程序设计典型例题解析2.docx
- 文档编号:23117481
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:15
- 大小:61.73KB
程序设计典型例题解析2.docx
《程序设计典型例题解析2.docx》由会员分享,可在线阅读,更多相关《程序设计典型例题解析2.docx(15页珍藏版)》请在冰豆网上搜索。
程序设计典型例题解析2
程序设计典型例题解析
(2)
典型例题解析
(2)
一、填空题
1.以顺序输入模式打开“c:
\source1.txt”文件的命令是
(1);以输出方式打开
“c:
\source2.txt”文件的命令是
(2)。
分析:
Print#语句用于将把数据写入文件中。
Print语句格式为:
Open文件名[For模式]As[#]文件号“For模式”为指定打开文件的模式是数据的输入模式还是输出模式。
结论:
答案应为:
(1)Open"c:
\source1.txt"For
InputAs#1
(2)Open"c:
\source2.txt"ForOutputAs#2
2.在VisualBasic中,文件系统控件包括
(1)、
(2)和文件列表框
(FileListBox)。
三者协同操作可以访问任意位置的目录和文件,可以进行文件系统的人机交互管理。
分析:
在VisualBasic中,文件系统控件包括驱动器列表框(DriveListBox)、目录列表
框(DirListBox)和文件列表框(FileListBox)。
驱动器列表框可以选择或设置一个驱动器,目录列表框可以查找或设置指定驱动器中的目录,文件列表框可以查找指定驱动器指定目录中文件信息,三者协同操作可以访问任意位置的目录和文件,可以进行文件系统的人机交互管理。
结论:
答案应为:
(1)驱动器列表框(DriveListBox)
(2)目录列表框(DirListBox)
3.每次重新设置驱动器列表框的Drive属性时,都将引发
(1)事件。
可在该事件
过程中编写代码修改目录列表框的路径,使目录列表框内容随之发生改变。
分析:
在VisualBasic中,每次重新设置驱动器列表框的Drive属性时,都将引发Change事件。
可在Change事件过程中编写代码修改目录列表框的路径,使目录列表框内容随之发生改变。
驱动器列表框的默认名称为Drive1,其Change事件过程的开头为Drive1_Change()。
结论:
答案应为:
(1)Change
4.目录列表框用来显示当前驱动器下目录结构。
刚建立时显示
(1)的顶层目录和当
前目录,如果要显示其他驱动器上的目录信息,必须改变路径,即重新设置目录列表框的
(2)属性。
分析:
在VisualBasic中,目录列表框用来显示当前驱动器下目录结构。
刚建立时显示当前驱动器的顶层目录和当前目录,如果要显示其他驱动器上的目录,必须改变路径,即重新设置目录列表框的Path属性。
结论:
答案应为:
(1)当前驱动器
(2)Path
5.对驱动器列表框来说,每次重新设置驱动器列表框的
(1)属性时,将引发Change事件;对目录列表框来说,当
(2)属性
值改变时,将引发Change事件;对于文件列表框,重新设置的(3)属性,将引发Change
事件。
分析:
在VisualBasic中,对驱动器列表框来说,每次重新设置驱动器列表框的Drive属性时,将引发Change事件;对于目录列表框和文件列表框改变路径,即重新设置列表框的Path属性,将引发Change事件。
结论:
答案应为:
(1)Drive
(2)Path(3)
Path
6.以下程序段简要说明驱动器列表框、目
录列表框及文件列表框三者协同工作的情况。
将程序段补充完整
PrivateSubDrive1_Change()
(1)
EndSub
PrivateSubDir1_Change()
(2)
EndSub
分析:
首先设置目录列表路径随驱动器列表
路径改变而改变:
每当改变驱动器列表框的
Drive属性时,将产生驱动器列表框的Change事件,执行Drive1_Change事件过程,使驱动器列表框和目录列表框同步,即将目录列表框中的目录(Dir1.Path属性)变为该驱动器的目录
Drive1.Drive属性)。
然后,设置文件列表路
径随目录列表路径改变而改变:
当目录列表框Path属性的改变时,将产生目录列表框的Change事件,执行Dir1_Change事件过程,使目录列表框和文件列表框同步,即在文件列表框(File1.Path属性)中显示目录驱动器所指目录下的文件信息(Dir1.Path属性)。
这样三个文件系统控件就协同工作了。
结论:
答案应为:
(1)Dir1.Path=Drive1.Drive
(2)File1.Path=Dir1.Path
7.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1,所使用的语句为
(1)。
分析:
可以使用LoadPicture语句,必须先确定图片的位置,在本例中路径为当前路径可以采用默认路径;也可以在Picture1的Picture属性中直接设置打开文件对话框,在对话框中选择图片进行设置。
结论:
答案应为:
Picture1.Picture=LoadPrcture(“picturefile.jpg”)
8.窗体Form1的左上角坐标为(0,600)窗体Form1的右下角坐标为(800,-200)。
X轴的正向向
(1),Y轴的正向向
2)
分析:
窗体右下角坐标为负值,说明Y轴的正向向上。
结论:
答案应为:
(1)右
(2)上
9.执行指令"Line(200,200,)-Step(500,500,)"后,CurrentX=。
分析:
语句中Step(500,500)的意思是相对于当前点(200,200)的坐标,则当前坐标CurrentX=700。
结论:
答案应为700
10.执行指令"Line(200,200,)-(500,500,)"后,CurrentX=。
分析:
语句中(500,500)即为当前点坐标,CurrentX=500。
结论:
答案应为500
11.要使图像框能够自动调整大小以适应其中的图形,应将图像框属性设置为。
分析:
Stretch属性设置为False时,图像框可自动改变大小以适应其中的图形,设置为True时,加载到图像框的图形可自动调整尺寸以适应图像框的大小。
结论:
答案应为
(1)Stretch
(2)False
12.ADO模型中一般可通过Connection对象的
(1)方法执行增加、删除、
修改操作。
使用ADO模型时,建立Recordset和Connection对象连接的属性是
(2)。
分析:
应记住
结论:
ExecuteActiveConnection
13.Winsock控件主要用来编制TCP/IP或协议的通讯协议。
分析:
应记住
结论:
UDP
14.VB中设置断点的按键是,逐语句调试的语句是。
结论:
答案应为F9F8
15.OnErrorResumeNext语句表示:
当发生错误时,VB程序将忽略引发错误的语句,并。
结论:
继续执行下一条语句。
二、选择题
1.()函数判断文件指针是否到了文件结束标志;()函数返回文件的字节数;()语句用于设置对文件“锁定”;()语句用于设置对文件“解锁”。
A.EOF、LOF、Lock、UnlockB.LOF、
EOF、Lock、Unlock
C.EOF、LOF、Unlock、LockD.LOF、
EOF、Unlock、Lock
分析:
EOF函数判断文件指针是否到了文件结束标志;LOF函数返回文件的字节数;Lock语句用于设置对文件“锁定”;Unlock语句用于设置对文件“解锁”。
结论:
答案应选A。
2.顺序文件的读操作通过下列()语句
可以实现
A.Input#和Read#B.Read#
和Get#
C.Get#和Input##D.LineInput#和Input#
分析:
Input#语句和LineInput#语句实现顺序文件的对数据的读操作;随机文件的读操作通过Get语句来实现;VB中无Read语句。
结论:
答案应选D。
3.如果准备读文件,打开顺序文件"text.dat"的正确语句是()
A.Open"text.dat"ForWriteAs#1
B.Open"text.dat"ForInputAs#1
C.Open"text.dat"ForBinaryAs#1D.Open"text.dat"ForRandomAs#1分析:
以读方式打开顺序文件的语法格式为:
Open<文件名>ForInputAs[#]<文件号>。
上述选项只有B满足条件。
结论:
答案应为B
4.如果准备向随机文件中写入数据,正确的语句是()
rec
C.Put#1,,recD.Get#1,,
rec
分析:
随机文件写操作的语法格式为:
Put[#]<文件号>,[记录号],<变量名>上述C选项是正确的。
结论:
答案应为C
5.当改变驱动器列表框中的驱动器时,为了使目录列表框中的内容同步跟着改变,应当()
A.在Dir1_Change()事件中加入代码Dir1.Path=Drive1.Drive
B.在Dir1_Channge()事件中加入代码Drive1.Drive=Dir1.Path
C.在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.Drive
D.在Dirve1_Channge()事件中加入代码Drive1.Drive=Dir1.Path
分析:
当改变驱动器列表框Drive1中的驱动器时,就会触发channge事件,执行
Drive1_Change()过程,在过程执行时,要使目录列表框同步显示选定的驱动器目录结构,应将刚选定的驱动器目录结构赋给目录列表框(Dir1)的Path属性。
应选C
结论:
答案应为C
6.目录列表框Path属性的作用是()A.显示当前驱动器或指定驱动器上的目录结构
B.显示当前驱动器或指定驱动器上的某目录下的文件
C.显示根目录下的文件名D.显示路径下的文件分析:
目录列表框Path属性的作用是显示当前驱动器或指定驱动器上的目录结构。
结论:
答案应为A
7.在下列选项中,不能将图像装入图片框和图像框的是()
A.在界面设计时,通过Picture属性装入B.在界面设计时,手工在图像框和图片框中绘制图形
C.在界面设计时,利用剪贴板把图像粘贴上
D.在程序运行期间,用LoadPicture函数把图形文件装入分析:
在设计时,将图像添加到图片框和图像框中有两种方法:
即①使用对象的Picture属性添加图片;②使用剪贴板,将图形粘贴到对象中。
在程序运行时添加图片通常也有两种方法,①使用LoadPicture函数加载图形文件,②使用Picture属性在对象间相互复制。
在界面设计时和程序运行期间,均不能手工在图像框和图片框中绘制图形。
所以上述选项中,B是错误的。
结论:
答案应为B
8.下面错误的语句是()
A.Line(200,200)-(400,400),RGB(255,0,0)B.Line(200,200)-(400,400),,BC.Line(200,200)-(400,400),,FD.Circle(600,600),300,RGB(255,0,0)分析:
Line方法可以画直线和矩形,Line方法的语法格式为:
[对象].Line[[Step](X1,Y1)]-[Step]X2,Y2)][,[Color][,B[F]]。
A选项画一条红色直线。
B选项中的B代表画一个矩形,左上角坐标为(200,200),右下脚坐标为(400,400)。
C选项中的F表示矩形的填充颜色,它必须和B同时存在。
D选项是画一个圆心为(600,600),半径为300的红色圆。
结论:
答案应为C9.下面选项中,能绘制填充矩形的语句是()
A.Line(200,200)-(500,500),B
B.Line(200,200)-(500,500),,BF
C.Line(200,200)-(500,500),BF
D.Line(200,200)-(500,500)
分析:
Line方法语句中可以省略中间参数,但逗号必须保留。
A选项中的B之前少一个逗号,只能画一条直线。
B选项语法正确,能画一个默认颜色为黑色的填充矩形。
C选项中BF之前少一个逗号,只能画一条直线。
D选项画一条直线。
结论:
答案应为B
10.下面选项中,能绘制一条水平直线的选项是()
A.Line(1000,2000)-(1000,2000)
B.Line(1000,2000)-(1000,3000)C.Line(1000,2000)-(2000,2000)D.Line(1000,2000)-(2000,3000)分析:
要绘制一条水平直线,直线两个端点的Y坐标应该相同,只有C满足这个条件。
结论:
答案应为C
11.下面选项中,能绘制椭圆的语句是()
A.Circle(1000,1000),500,RGB(255,0,0),0.5B.Circle(1000,1000),500,RGB(255,0,0),,0.5C.Circle(1000,1000),500,RGB(255,0,0),,,0.5D.Circle(1000,1000),500,RGB(255,0,0),,,,0.5
分析:
Circle方法的语法格式为:
[对象].Circle[Step](X,Y),radius[,[color][,[start][,end][,aspet]]
语句中除圆心坐标和半径外,其它参数均可省略,但其中的逗号必须保留。
上述只有C选项
满足题目要求,故选C。
结论:
答案应为C
12.图像框(Image)和图片框(Picture)在使用时有所不同,以下叙述中正确的是()
A.图片框比图像框占内存少
B.图像框内还可包括其它控件
C.图片框有Stretch属性而图像框没有D.图像框有Stretch属性而图片框没有分析:
图像框比图片框占内存少,图片框可作为其它控件的容器而图像框不能,图片框有Autosize属性而图像框没有,图像框有Stretch属性而图片框没有。
结论:
答案应为D
13.ADOrs为Recordset对象,从Tabel中获取所有记录的语句是()
A.ADOrs.New"Select*FromTabel"
B.ADOrs.Open"Select*FromTabel"
C.ADOrs.Execute"Select*FromTabel"
D.ADOrs.Select"Select*FromTabel"
分析:
Execute为执行的意思,语句ADOrs.Execute"Select*FromTabel"可以从
Tabel中获取所有记录。
结论:
答案应为C
14.要发送数据,通常使用Winsock控件的()
A.SendData方法
B.Listen方法
C.Accept方法
D.GetData方法
分析:
SendData方法用于发送数据。
Listen方法使服务程序处于侦听状态,等待客户访问。
Accept方法用于接受一个连接请求,其中RequestID是客户机发来的请求号。
GetData方法用来取得接收到的数据。
结论:
答案应为A
15.VB程序中通常不会产生错误提示的
()。
A.编译错误B.实时错误
C.运行时错误D.逻辑错误
分析:
编译错误多数是因为不正确的代码产生的。
实时错误也称运行时错误,是指应用程序
运行期间,一条语句试图执行一条不可能执行的操作而产生的错误。
逻辑错误是指程序的运行结果和程序员的设想有出入时产生的错误。
这类错误并不直接导致程序在编译期间和运行期间出现错误,较难发现,逻辑错误不产生错误提示。
结论:
答案应为D
三、完善程序题
1.已知存在一名为“学生”的SQLServer数据库,其中的“students”数据表用来存储学生的基本情况信息,包括学号、姓名、籍贯、性别。
请编写一个简单的应用程序,向students表中添加学生记录。
程序的基本逻辑是:
当窗体被加载时,程序联接SQLServer数据库;当点击“增加”按钮时,首先查询学号是否重复,如果不重复则向students表中添加学生记录。
其运行界面如图1所示。
图1程序如下,请补充完整。
'声明对象变量ADOcn,用于创建与数据库的连接
PrivateADOcnAsConnection
PrivateSubForm_Load()
'连接SQLServer数据库
DimstrDBAsStringstrDB"Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]"
IfADOcnIsNothingThen
SetADOcn=[2]ADOcn.OpenstrDB
EndIf
EndSub
PrivateSubCommand1_Click()
'增加学生记录
DimstrSQLAsString
DimADOrsAs[3]Recordset
ADOrs.ActiveConnection=ADOcn
StudentsWhere学号=”+”‘“+Text1+
IfNot[4]Then
MsgBox“你输入的学号已存在,不能新增加!
”
Else
StrSQL=”InsertIntostudents(学号,姓名,,籍贯,性别)
StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”“+text4+”‘)”
ADOcn.Execute[5]
MsgBox“添加成功,请继续!
”
EndIf
PrivateSubCommand2_Click()
UnloadMe
EndSub
分析:
数据库应用程序的大致框架是
(1)联接后台数据库
(2)联接数据库中的某张表
(3)对这张表进行查询(Select)、插入(Insert)、修改(Update)、删除(Delete)操作。
据此,根据题意应首先在窗体的Load事件中编写连接后台数据库的事件过程。
在Command1_Click()事件过程中,首先连接数据库中的“students”数据表,然后进行查询,查询结果用MsgBox给出提示信息,再对“students”数据表进行插入(Insert)操作。
答案:
[1]学生;
[2]NewConnection
[3]New;
[4]ADOrs.EOF;
[5]strSQL;2.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后,驱动器列表框Drive1的默认驱动器设置为D盘,选择File1中所列的图片文件(*.bmp,*.gif和*.jpg),则相应的图片显示在图片框Picture1中,文件的路径显示在文本框中。
程序运行结果如图2所示
图2
程序如下,请补充完整。
PrivateSubForm_Load()
Drive1.Drive=[1]'将当前驱动器设置为D
File1.Pattern="*.bmp;*.gif;*.jpg"'设置文件列表框中可以显示的文件类型
EndSub
PrivateSubDrive1_change()
Dir1.Path=Drive1.Drive'使Dir1和Drive1同步改变
'将当前驱动器显示在文本框中
EndSub
PrivateSubDir1_Change()
[3]'使文件列表框和目录列表框同步改变
Text1.Text=[4]'将当前目录的路径显示在文本框中EndSub
PrivateSubFile1_click()
Picture1.Picture=LoadPicture(File1.Path+"\"+File1.FileName)
FileName=File1.Path+"\"+File1.FileName
[5]'将文件名显示在文本框中EndSub
分析:
要在图片框中显示图形文件,首先要使三大文件系统控件同步起来,即文件列表框中显示的是指定驱动器的指定目录下的文件列表,可在驱动器列表框的Change事件中设置Dir1.Path=Drive1.Drive,在目录列表框的Chang1事件中设置File1.Path=Dir1.Path。
用LoadPicture函数把图形文件装入图片框中。
通过赋值语句将文件的路径显示在文本框中。
答案:
[1]"D:
"
[2]Text1.Text=Drive1.Drive
[3]File1.Path=Dir1.Path
[4]Dir1.Path
[5]Text1.Text=FileName
3.使用顺序文件读写方式编写一个简单的记事本应用程序,其运行界面如图3所示。
:
假设在以D盘的根目录下有一个名为W1.txt的文本文件,程序运行时,当点击“打开”按钮(Command1)时,程序将W1.Txt文件中的内容显示在文本框(Text1)中,当点击“保存”按钮(Command2)时,将Text1中的内容保存在W1.txt文件中。
当点击“退出”按钮(Command3)时关闭本窗体。
图3记事本程序运行界面
程序如下,请补充完整。
PrivateSubCommand1_Click()
DimstrtxtAsString
Text1=""
Open[1]以读方式打开文件
DoWhile[2]判断文件是否结束
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序设计 典型 例题 解析