实验1VB编程环境和文件

PAGE30PAGE29实验1环境和文件实验目的：1．熟悉VB的集成开发环境2．掌握常常用控件件的属性性、方法法3．熟悉常常用对象象事件的的使用4．熟悉文文件系统统控件的的使用5．掌握文文件的打打开、关关闭和读读写操作作实验1.11认识VVisuualBassic实验任务：：认识VissuallBaasicc的集成成开发环环境，熟熟悉各个个窗口的的功能，熟悉控控件的属属性、方方法，熟熟悉事件件的使用用。实验验结果界界面如图图1-1所示示。图1-11实验验1.11运行界界面实验步骤：：启动VB66.0，创创建一个个“标准EEXE”类型的的应用程程序。将窗体的FFontt属性设设为宋体体、小二二、粗体体，Caaptiion属属性设置置为“我的第第一个程程序”。在窗体上添添加两个个命令按按钮Coommaand11(Caaptiion属属性设置置为“欢迎”)和CCommmandd2(CCapttionn属性设设置为“再见”)。双击“欢迎迎”按钮，涉涉及如下下代码：：Printt“欢迎使使用VVisuualBassic”双击“再见见”按钮，添添加如下下代码：：End将窗体和工工程分别别以文件件名vbb1.ffrm和和vb11.vbbp保存存在自己己的文件件夹中。单击F5，试试验运行行本程序序，直至至满意为为止。说明：这里里，“自己的的文件夹夹”指任意磁磁盘获UU盘如D盘根根目录下下以自己己的名字字和学号号命名的的子目录录(例如如姓名为为“赵阳”，学号号为0990801266；则自自己的文文件夹就就是“D:\\赵阳0090801266”)，以以后所有有的实验验若无特特殊说明明均保存存在该目目录下。思考：除了了上述方方法，还还可以怎怎样实现现上述题题目要求求？试一一试。实验1.22对象象移动动动画实验任务：：熟悉Movve方法法实现对象象移动，进一步步熟悉控控件事件件的使用用。实验验结果界界面如图图1-2所示示。图1-2实验验1.2运行行界面实验步骤：：将窗体的CCapttionn属性设设为“欢迎新新同学”；为窗窗体设置置Piccturre属性性（图片片可以从从C:\\Winndowws\WWeb\\Walllpaaperr中取,,也可放放自己喜喜欢的照照片），设设置窗体体不可改改变大小小。在窗体上添添加两个个标签，CCapttionn属性为为“欢迎新新同学”，并将其其设置为为浮雕效效果（提提示：浮浮雕效果果可以由由两个背背景风格格为透明明、前景景颜色不不同、位位置稍有有错位的的标签重重叠而成成）。添加两个命命令按钮钮Commmannd1和Coommaand22，清空CCapttionn属性，将Style属性设置为1-Grapical，分别为Picture属性设置图标文件“Point02.ico”、“Point04.ico”(图标文件位于VB的安装目录下\Common\Graphics\Icons\Arrows文件夹中)。双击Commmannd1，添添加如下下代码：：LLabeel1..MovveLLabeel1..Lefft--500LLabeel2..MovveLLabeel2..Lefft––500双击Commmannd2，添添加如下下代码：：LLabeel1..MovveLLabeel1..Lefft++500LLabeel2..MovveLLabeel2..Lefft++500将窗体和工工程文件件保存在在自己的的文件夹夹中。单击F5，试试验运行行本程序序，直至至满意为为止。思考：根据据Movve方法法的语法法“对象名名.Moovelefft,topp,wiidthh,heeighht”，修改改上述程程序还可可以有哪哪些变化化？试一一试。实验1.33文件系统统控件实验任务：：建立一个图图形浏览览器，窗体上上放置驱驱动器列列表框、目目录列表表框、文文件列表表框、一一个文本本框和一一个图像像框，并实现现以下要要求：(1)文件件列表框框能过滤滤只显示示后缀为为BMPP的图形形文件；；(2)当单单击某BBMP图图形文件件名后，在在Texxt1显显示文件件名（包包括路径径），在在Imaage11显示该该图形内内容；(3)当双双击某图图形文件件名后，调调用wiindoows画画图程序序对该图图形进行行编辑。实验结果如如图1--3所示。图l-3实验验1.33运行界界面实验步骤：：1．在窗体体中加入入Driive、DDir、FFileeLisst三个个文件操操作控件件，分别别用于驱驱动器、目目录及文文件名列列表的操操作（三个控控件可直直接在VVB工具具栏中找找到）。2．通过ddrivve1及及dirr1控件件的chhangge事件件过程建建立三控控件之间间的相互互关联，代代码如下下：PrivaateSubbDiir1__Chaangee()File11.Paath=DDir11.PaathEndSSubPrivaateSubbDrrivee1_CChannge(()Dir1..Patth==Drrivee1.DDrivveEndSSub3．在Foorm__loaad())事件过过程中设设置文件件列表中中的筛选选过滤条条件，并并设置IImagge1对对象的SStreetchh属性使使预览时时的图像像大小自自动适应应图像框框大小。代代码如下下：PrivaateSubbFoorm__Loaad())File11.Paatteern=""*.bbmp""Imagee1.SStreetchh=TruueEndSSub4．编写代代码实现现图形文文件的单单击预览览，双击击打开编编辑。DimFFnamme$PrivaateSubbFiile11_Cllickk()Fnamee=Fille1..Patth&&IIIf(RRighht(FFilee1.PPathh,11)=="\\","",,"\\")&FFilee1.FFileeNammeText11.Teext=FFnammeImagee1.PPictturee=LoaadPiictuure((Fnaame))EndSSubPrivaateSubbFiile11_DbblCllickk()Fnamee=Fille1..Patth&&IIIf(RRighht(FFilee1.PPathh,11)=="\\","",,"\\")&FFilee1.FFileeNammeText11.Teext=FFnammeDimaaa=SShelll(""D:\\winndowws\SSysttem332\mmspaaintt.exxe""&Fnaame,,vbbMaxximiizeddFoccus))‘注意，应应掌握SShelll函数数调用外外部过程程的方法法EndSSub5．将窗体体和工程程文件保保存在自自己的文文件夹中中。6．单击FF5，试试验运行行本程序序，直至至满意为为止。思考：可否否仿照上上述实验验，完成成下一个个实验后后，建立立一个文文本浏览览器。窗窗体上放放置驱动动器列表表框、目目录列表表框、文文件列表表框和两两个文本本框，要要求：1、仅列出出扩展名名为txxt的文文本文件件2、当单击击某文本本文件后后在文本本框显示示该文件件内容；；3、当双击击扩展名名为.ttxt的的文件后后，调用用“记事事本”程程序对文文本文件件进行编编辑。实验1.44顺序文文件实验任务：：建立一个具具有写入入和读取取顺序文文件功能能的程序序，能将将多行文文本框中中输入的的数据保保存到文文本文件件，并在在需要的的时候读读入内存存显示在在文本框框中。实实验结果果如图11-4所示。图l-4实验验1.44运行界界面实验步骤：：1．新建工工程，加加入两个个文本框框、两个个命令按按钮以及及通用对对话框控控件，使使其符合合题目的的界面及及操作要要求；2．在代码码窗口中中输入下下列命令令代码：：OptioonEExplliciitPrivaateSubbCoommaand11_Cllickk()CommmonnDiaalogg1.FFiltter=""文本文件((*.ttxt))|*..txtt|所有有文件((*.**)|**.*""CommmonnDiaalogg1.SShowwSavveOpeenCCommmonDDiallog11.FiileNNameeFoorOOutpputAs#1‘打开在通通用对话话框中选选定的文文本文件件用于覆覆盖式写写入Printt#11,TTextt1.TTextt‘写写入文件件的命令令除了PPrinnt##外还有有wriite#，注注意体会会差别Cloose#1‘关闭闭文件EndSSubPrivaateSubbCoommaand22_Cllickk()DimmcAsStrringgCommmonnDiaalogg1.FFiltter=""文本文件((*.ttxt))|*..txtt|所有有文件((*.**)|**.*""CommmonnDiaalogg1.SShowwOpeenOpeenCCommmonDDiallog11.FiileNNameeFoorIInpuutAAs##1‘‘注意打打开方式式为Innputt读入Text22.Teext="""DoWhhileeNootEEOF((1)LineInpput#1,,c‘注意意，顺序序文件的的读取还还有其它它几种方方法Text22.Teext=TTextt2.Teext&ccChrr(133)&&Chhr(110)‘‘每行末末尾“回车”“换行行”LoopCloose#1EndSSubPrivaateSubbFoorm__Loaad())ChDDrivveAApp..Patth‘改变当当前驱动动器ChDDirAppp.Paath‘‘改变当当前目录录EndSSub3．将窗体体和工程程文件保保存在自自己的文文件夹中中。4．单击FF5，试试验运行行本程序序，直至至满意为为止。思考：内存变量为为什么要要定义为为字符串串类型？？如何改用数数据文件件的其他他读入方方法完成成类似任任务？试试一试。实验1.55随机文文件实验任务：：设计一个随随机文件件读写应应用程序序，用于于学生成成绩维护护，包括括自动显示示每人各各科成绩绩、计算算每人总分分、平均均分，并并可添加加记录。实验结果界面如图1-5所示。图l-5实验验1.55运行界界面实验步骤：：1．建立工工程，设设置标题题栏，根根据题目目要求在在窗体中中添加各各个控件件并设置置其属性性；2．依据下下列提示示设计程程序。（1）定义义数据类类型TyypeStuudTyypeiNooAssInnteggerstrrNammeAAsSStriing**20strrClaassAsStrringg*200sMaathAsSinngleesChhineeseAsSinngleesEnngliishAsSinngleesPhhysiicallAssSiingllesTootallAssSiingllesAvveraageAsSinngleeEnndTTypeeDiimSStuddenttAssSttudTTypee（2）把文文本框中中的数据据赋给变变量Sttudeent..strrNamme=ttxtNNamee.teextSttudeent..strrClaass==txttClaass..texxtSttudeent..sMaath==Vall(txxtMaath..texxt)Sttudeent..sChhineese==Vall(txxtChhineese..texxt)（3）把数数据存入入文件Oppen"Sttudeent..datt"FForRanndommAss#11Leen=LLen((Stuudenn)Reecorrd_NNo=LLOF((1)//LENN(Sttudeent))+1Puut##1,Reccordd_Noo,SStuddenttCllosee#11调试程序，直直到满意意。说明：本实实验为设设计性实实验，试试验界面面和程序序完全可可以自主主创新并并允许适适当增加加功能。思考：怎样修改程程序使其其能删除除某一记记录？怎样修改程程序使其其能求出出全班每每门课程程的平均均成绩和和全班总总平均成成绩？习题1习题1..1选择题题11．ViisuaalBBasiic是一一种面向向对象的的可视化化程序设设计语言言，采取取了（）的编编程机制制。((A)事事件驱动动(B))按过程程顺序执执行((C)从从主程序序开始执执行((D)按按模块顺顺序执行行22．在VVisuualBBasiic中最最基本的的对象是是（），它它是应用用程序的的基石，是是其他控控件的容容器。((A)文文本框(B))命令按按钮((C)窗窗体(DD)标签签33．多窗窗体程序序是由多多个窗体体组成。在在缺省情情况下，VVB在应应用程序序执行时时，总是是把（）指定定为启动动窗体。((A)不不包含任任何控件件的窗体体(BB)设计计时的第第一个窗窗体((C)包包含控件件最多的的窗体(DD)命名名为Fiirstt的窗体体44．有程程序代码码如下：：Teext11.Teext=="ViisuaalBBasiic"则：Texxt1、Texxt和""VissuallBaasicc"分别别代表（）。((A)对对象，值值，属性性(BB)对象象，方法法，属性性((C)对对象，属属性，值值(DD)属性性，对象象，值55．ViisuaalBBasiic是一一种面向向对象的的程序设设计语言言，（）不是是对象系系统所包包含的三三要素。((A)变变量((B)事事件((C)属属性((D)方方法66．ViisuaalBBasiic的一一个应用用程序至至少包含含一个（）文件件，该文文件存储储窗体上上使用的的所有控控件对象象和有关关的（）、对对象相应应的（）过程程和（）代码码。((A)模模块、方方法、事事件、程程序((B)窗窗体、属属性、事事件、程程序((C)窗窗体、程程序、属属性、事事件((D)窗窗体、属属性、事事件、模模块77．以下下不属于于VissuallBaasicc的工作作模式是是（）模模式。((A)编编译((B)设设计((C)运运行((D)中中断88．在VVB集成成环境创创建VBB应用程程序时，除除了工具具箱窗口口、窗体体中的窗窗口、属属性窗口口外必不不可少的的窗口是是（）。（A）窗体体布局窗窗口B）立立即窗口口（C）代代码窗口口（DD）监视视窗口99．保存存新建的的工程时时，默认认的路径径是（）。（AA）MyyDoccumeentss（BB）VBB98（C）＼（D）WWinddowss110．将将调试通通过的工工程经“文件”菜单的的“生成..exee文件”编译成成.exxe后，将将该可执执行文件件到其他他机器上上不能运运行的主主要原因因是（）。（AA）运行行的机器器上无VVB系统统（BB）缺少少.frrm窗体体文件（CC）该可可执行文文件有病病毒（D）以以上原因因都不对对111．对于于窗体，下下面（）属属性可以以在运行行模式下下进行设设置。（AA）MaaxBuuttoon（B）BBordderSStylle（CC）Naame（D）LLeftt12．要使使Priint方方法在FFormm_Loaad事件件中起作作用，要要对窗体体的（）属性性进行设设置。（AA）BaackCColoor（B）FForeeCollor（CC）AuutoRRedrraw（DD）Caaptiion13．若要要使标签签控件显显示时不不覆盖其其背景内内容，要要对（）属性性进行设设置。

（A）BBackkCollor（BB）BoordeerSttylee（CC）FooreCColoor（D）BBackkStyyle14．若要要使命令令按钮不不可操作作，要对对（）属属性设置置。（AA）Ennablled（B）VVisiiblee（CC）BaackCColoor（D）CCapttionn15．文本本框没有有（）属属性。（AA）Ennablled（B）VVisiiblee（CC）BaackCColoor（D）CCapttionn16．不论论何控件件，共同同具有的的是（）属性性。（AA）Teext（B）NNamee（CC）FooreCColoor（D）CCapttionn17．要使使Forrm1窗体的的标题栏栏显示“欢迎使使用VBB”，以下下（）语语句是正正确的。（AA）Foorm11.Caaptiion==“欢迎使使用VBB”（BB）Foorm11.Caaptiion=='欢迎迎使用VVB'（CC）Foorm11.Caaptiion==欢迎使使用VBB（DD）Foorm11.Caaptiion=="欢迎使使用VBB"18．要使使某控件件在运行行时不可可见，应对对（）属属性进行行设置。（AA）Ennablled（B）VVisiiblee（CC）BaackCColoor（D）CCapttionn19．要使使窗体在在运行时时不可改改变窗体体的大小小并且没有有最大化化和最小小化按钮钮，只要要对下列列（）属属性设置置就有效效。（AA）MaaxBuuttoon（B）BBordderSStylle（C）WWidtth（DD）MiinBuuttoon220．当当运行程程序时，系系统自动动执行启启动窗体体的（）事件件过程。（AA）Looad（B）CClicck（CC）UnnLoaad（DD）GootFoocuss21．ViisuaalBBasiic提供供的对数数据文件件的三种种访问方方式分别别为随机机访问方方式、（）和二进制访问方式。（A）顺序序访问方方式 （B）十六进进制访问问方式 （C）倒序序访问方方式 （D）八进制制访问方方式22．打开开顺序文文件的语语句是(()。(A)Ouutpuut (B)Forr （C）Opeen （D）Cloose 23．打开开顺序文文件语句句的参数数中Apppennd是表表示把新新数据添添加到文文件的（）。（A）文件件尾 （B）文件头头 （C）文件件中间 （D）不能创创建一个个新文件件 24．用CClosse关闭闭多个已已打开的的顺序文文件是，文文件号之之间要用用（）标标点符号号隔开。（A）. （B）; （C）, （D）/ 25．读顺顺序文件件中用IInpuut#语句是是从打开开的顺序序文件中中读取一一行数据据，这里里的一行行是指从从当前指指针位置置开始到到（）符符之前的的所有数数据。（A）回车车换行符符 （B）空格符符 （C）A字符符 （D）C字符符 26．写顺顺序文件件时的WWritte#语句会会自动将将写入文文件中的的信息用用（）符符号分开开。（A）;; （B）, （C）/ （D）。27．随机机文件中中每行或或者每个个记录的的长度是是（）。（A）固定定 （B）3000个字节节 （C）不固定定 （D）10个个字节 28．文件件系统控控件中DDrivveLiistBBox是是（）。（A）驱动动器列表表框 （B）目录列列表框 （C）文件件列表框框 （D）图形列列表框 29．文件件操作时时，Rmmdirr函数的的功能是是（）。（A）得到到下一个个可用文文件号 （B）删除一一个已有有的目录录 （C）在打打开的文文件中指指定当前前的读写写位置 （D）返回当当前路径径 30．文件件操作时时，Kiill函函数的功功能是（）。（A）返回回文件被被创建或或者最后后修改的的日期与与时间 （B）返回回以字节节表示的的文件长长度 （C）从磁磁盘中删删除文件件 （D）重命命名一个个文件或或目录 31．为了了把一个个记录型型变量的的内容写写入文件件中指定定的位置置，所使使用的语语句的格格式为::（）。（A）Geet文文件号，记记录号，变变量名（B）Gett文件件号，变变量名，记记录号 （C）Puut文文件号，变变量名，记记录号（D）Putt文件件号，记记录号，变变量名 32．文件件操作时时，LOOF函数数的功能能是（）。（A）确定定文件中中的长度度（字符符总数） （B）判断文文件是否否已经结结束 （C）判断断文件是是否打开开 （D）判断文文件的属属性 33．若若磁盘文文件C::\Daata11.daat不存存在，下下列语句句中，会会产生错错误的是是（）。（A）Oppen"C::\Daata11.daat"ForrOuutpuutAAs##1 （B）Oppen"C::\Daata11.daat"ForrInnputtAss#22 （C）Oppen"C::\Daata11.daat"ForrApppenndAAs##3 （D）Oppen"C::\Daata11.daat"ForrBiinarryAAs##4 34．下列列（）语句句不能实实现从顺顺序文件件中读入入数据。（A）LiineInpput##<文件件号>,,<变量量名>（B）Innputt#<文文件号>>,<变变量名11>[,,<变量量名2>>]（C）Innputt(Leengtth,##<文件件号>))（D）InnputtBoxx（meessaage）35．驱动动器列表表框的DDrivve属性性是（）。（A）返回回或设置置所选定定的驱动动器 （B）显示当当前驱动动器或指指定驱动动器上的的目录 （C）显示示根目录录下的文文件名 （D）只显示示当前路路径下的的文件 36．关闭闭顺序文文件要用用（）语语句。（A）Ouutpuut （B）Forr （C）Opeen （DD）Cloose 37．用CClosse关闭闭已打开开的顺序序文件时时，如果果省略参参数FiileLListt(文件件号列表表)是即即表示关关闭（）已已打开的的文件。（A）1个个 （B）5个 （C）10个个 （D）所有 38．在顺顺序文件件语句中中Inpput##可以从从文件中中同时向向（）个个变量内内读入数数据。（A）一个个 （B）三个 （C）多个 （D）最多多十个 39．写顺顺序文件件时的WWritte#语句会会自动将将写入文文件的信信息中的的字符串串数据加加上（）符符号。（A）""" （B）[] （C）<> （D）{} 40．随机机访问模模式中文文件的读读操作使使用（）命命令。（A）Oppen （B）Putt （C）Inpput （D）Gett 参考答案：：1A2C 3BB 4C5AA6B 7AA8CC 9BB 10A11D 12C 13D 14A 15D 16B 17D 18B 19B 20A21A222CC23A244C25A26B 27A28A 29B 30C31D332AA 33B 34D 35A36D 37D 38C39A40D习题1.22填空题题1、完善下下列程序序，要求求能将不不同学生生的姓名名、性别别、年龄龄通过文文本框输输入，按按“写入”按钮后后写入随随机文件件中，或或按下“读取”按钮后后将随机机文件的的内容读读入到相相应的文文本框中中,或按按下“退出”按钮，程程序运行行结束。PrivaateTyppeSStuddNammeAAsSStriing*88SexxAssSttrinng**2AgeeAssByyte______________________________________’第1空空DimSStuddenttAss_____________________________________’’第2空空DimNNAssInnteggerPrivaateSubbCoommaand11_Cllickk()Stuudennt.NNamee=Texxt1..TexxtStuudennt.SSex=Teext33.TeextStuudennt.AAge=VVal((Texxt2..Texxt)_______________________________________________,,SStuddentt‘第3空N==N+11EndSSubPrivaateSubbCoommaand22_Cllickk()k==CIInt((InpputBBox(("输入入要显示示的记录录号（11-"&SStr((N)&""）：""))If(k>=1)Andd(kk<==N))Thhen__________________________________________________________’第4空空TTextt1.TTextt=Stuudennt.NNameeTTextt3.Texxt==Sttudeent..SexxTTextt2.TTextt=Stuudennt.AAgeEllseMMsgBBox"记录录不存在在！",,vbbCriiticcal,,"警警告"EnddIffEndSSubPrivaateSubbCoommaand33_Cllickk()________________________________________________________’’第5空空EnddEndSSubPrivaateSubbFoorm__Loaad())Opeen""Stuud.ttxt""FoorRRanddomAs#1_________________________________________’第6空空N==0ChDDrivve