实验1VB编程环境和文件

1实验1环境和文件实验目的：1．熟悉VB的集成开发环境2．掌握常用控件的属性、方法3．熟悉常用对象事件的使用4．熟悉文件系统控件的使用5．掌握文件的打开、关闭和读写操作实验1.1认识VisualBasic实验任务：认识VisualBasic的集成开发环境，熟悉各个窗口的功能，熟悉控件的属性、方法，熟悉事件的使用。实验结果界面如图1-1所示。图1-1实验1.1运行界面实验步骤：1．启动VB6.0，创建一个“标准EXE”类型的应用程序。2．将窗体的Font属性设为宋体、小二、粗体，Caption属性设置为“我的第一个程序”。3．在窗体上添加两个命令按钮Command1(Caption属性设置为“欢迎”)和Command2(Caption属性设置为“再见”)。4．双击“欢迎”按钮，涉及如下代码：Print“欢迎使用VisualBasic”5．双击“再见”按钮，添加如下代码：End6．将窗体和工程分别以文件名vb1.frm和vb1.vbp保存在自己的文件夹中。7．单击F5，试验运行本程序，直至满意为止。2说明：这里，“自己的文件夹”指任意磁盘获U盘如D盘根目录下以自己的名字和学号命名的子目录(例如姓名为“赵阳”，学号为09080126；则自己的文件夹就是“D:\赵阳09080126”)，以后所有的实验若无特殊说明均保存在该目录下。思考：除了上述方法，还可以怎样实现上述题目要求？试一试。实验1.2对象移动动画实验任务：熟悉Move方法实现对象移动，进一步熟悉控件事件的使用。实验结果界面如图1-2所示。图1-2实验1.2运行界面实验步骤：1．将窗体的Caption属性设为“欢迎新同学”；为窗体设置Picture属性（图片可以从C:\Windows\Web\Wallpaper中取,也可放自己喜欢的照片），设置窗体不可改变大小。2．在窗体上添加两个标签，Caption属性为“欢迎新同学”，并将其设置为浮雕效果（提示：浮雕效果可以由两个背景风格为透明、前景颜色不同、位置稍有错位3的标签重叠而成）。3．添加两个命令按钮Command1和Command2，清空Caption属性，将Style属性设置为1-Grapical，分别为Picture属性设置图标文件“Point02.ico”、“Point04.ico”(图标文件位于VB的安装目录下\Common\Graphics\Icons\Arrows文件夹中)。4．双击Command1，添加如下代码：Label1.MoveLabel1.Left-50Label2.MoveLabel2.Left–505．双击Command2，添加如下代码：Label1.MoveLabel1.Left+50Label2.MoveLabel2.Left+506．将窗体和工程文件保存在自己的文件夹中。7．单击F5，试验运行本程序，直至满意为止。思考：根据Move方法的语法“对象名.Moveleft,top,width,height”，修改上述程序还可以有哪些变化？试一试。实验1.3文件系统控件实验任务：建立一个图形浏览器，窗体上放置驱动器列表框、目录列表框、文件列表框、一个文本框和一个图像框，并实现以下要求：(1)文件列表框能过滤只显示后缀为BMP的图形文件；(2)当单击某BMP图形文件名后，在Text1显示文件名（包括路径），在Image1显示该图形内容；(3)当双击某图形文件名后，调用windows画图程序对该图形进行编辑。实验结果如图1-3所示。4图l-3实验1.3运行界面实验步骤：1．在窗体中加入Drive、Dir、FileList三个文件操作控件，分别用于驱动器、目录及文件名列表的操作（三个控件可直接在VB工具栏中找到）。2．通过drive1及dir1控件的change事件过程建立三控件之间的相互关联，代码如下：PrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.Drive5EndSub3．在Form_load()事件过程中设置文件列表中的筛选过滤条件，并设置Image1对象的Stretch属性使预览时的图像大小自动适应图像框大小。代码如下：PrivateSubForm_Load()File1.Pattern=*.bmpImage1.Stretch=TrueEndSub4．编写代码实现图形文件的单击预览，双击打开编辑。DimFname$PrivateSubFile1_Click()Fname=File1.Path&IIf(Right(File1.Path,1)=\,,\)&File1.FileNameText1.Text=FnameImage1.Picture=LoadPicture(Fname)EndSubPrivateSubFile1_DblClick()Fname=File1.Path&IIf(Right(File1.Path,1)=\,,\)&File1.FileNameText1.Text=FnameDimaa=Shell(D:\windows\System32\mspaint.exe&Fname,vbMaximizedFocus)‘注意，应掌握Shell函数调用外部过程的方法EndSub5．将窗体和工程文件保存在自己的文件夹中。6．单击F5，试验运行本程序，直至满意为止。思考：可否仿照上述实验，完成下一个实验后，建立一个文本浏览器。窗体上放置驱动器列表框、目录列表框、文件列表框和两个文本框，要求：1、仅列出扩展名为txt的文本文件2、当单击某文本文件后在文本框显示该文件内容；3、当双击扩展名为.txt的文件后，调用“记事本”程序对文本文件进行编辑。实验1.4顺序文件实验任务：建立一个具有写入和读取顺序文件功能的程序，能将多行文本框中输入的数据保存到文本文件，并在需要的时候读入内存显示在文本框中。实验结果如图1-4所示。6图l-4实验1.4运行界面实验步骤：1．新建工程，加入两个文本框、两个命令按钮以及通用对话框控件，使其符合题目的界面及操作要求；2．在代码窗口中输入下列命令代码：OptionExplicitPrivateSubCommand1_Click()CommonDialog1.Filter=文本文件(*.txt)|*.txt|所有文件(*.*)|*.*CommonDialog1.ShowSaveOpenCommonDialog1.FileNameForOutputAs#1‘打开在通用对话框中选定的文本文件用于覆盖式写入Print#1,Text1.Text‘写入文件的命令除了Print#外还有write#，注意体会差别Close#1‘关闭文件EndSubPrivateSubCommand2_Click()DimcAsStringCommonDialog1.Filter=文本文件(*.txt)|*.txt|所有文件(*.*)|*.*CommonDialog1.ShowOpenOpenCommonDialog1.FileNameForInputAs#1‘注意打开方式为Input读入Text2.Text=DoWhileNotEOF(1)LineInput#1,c‘注意，顺序文件的读取还有其它几种方法7Text2.Text=Text2.Text&cChr(13)&Chr(10)‘每行末尾“回车”“换行”LoopClose#1EndSubPrivateSubForm_Load()ChDriveApp.Path‘改变当前驱动器ChDirApp.Path‘改变当前目录EndSub3．将窗体和工程文件保存在自己的文件夹中。4．单击F5，试验运行本程序，直至满意为止。思考：1．内存变量为什么要定义为字符串类型？2．如何改用数据文件的其他读入方法完成类似任务？试一试。实验1.5随机文件实验任务：设计一个随机文件读写应用程序，用于学生成绩维护，包括自动显示每人各科成绩、计算每人总分、平均分，并可添加记录。实验结果界面如图1-5所示。图l-5实验1.5运行界面实验步骤：1．建立工程，设置标题栏，根据题目要求在窗体中添加各个控件并设置其属性；82．依据下列提示设计程序。（1）定义数据类型TypeStudTypeiNoAsIntegerstrNameAsString*20strClassAsString*20sMathAsSinglesChineseAsSinglesEnglishAsSinglesPhysicalAsSinglesTotalAsSinglesAverageAsSingleEndTypeDimStudentAsStudType（2）把文本框中的数据赋给变量Student.strName=txtName.textStudent.strClass=txtClass.textStudent.sMath=Val(txtMath.text)Student.sChinese=Val(txtChinese.text)（3）把数据存入文件OpenStudent.datForRandomAs#1Len=Len(Studen)Record_No=LOF(1)/LEN(Student)+1Put#1,Record_No,StudentClose#13．调试程序，直到满意。说明：本实验为设计性实验，试验界面和程序完全可以自主创新并允许适当增加功能。思考：1．怎样修改程序使其能删除某一记录？2．怎样修改程序使其能求出全班每门课程的平均成绩和全班总平均成绩？9习题1习题1.1选择题1．VisualBasic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。(A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行2．在VisualBasic中最基本的对象是（），它是应用程序的基石，是其他控件的容器。(A)文本框(B)命令按钮(C)窗体(D)标签3．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。(A)不包含任何控件的窗体(B)设计时的第一个窗体(C)包含控件最多的窗体(D)命名为First的窗体4．有程序代码如下：Text1.Text=VisualBasic则：Text1、Text和VisualBasic分别代表（）。(A)对象，值，属性(B)对象，方法，属性(C)对象，属性，值(D)属性，对象，值5．VisualBasic是一种面向对象的程序设计语言，（）不是对象系统所包含的三要素。(A)变量(B)事件(C)属性(D)方法6．VisualBasic的一个应用程序至少包含一个（）文件，该文件存储窗体上使用的所有控件对象和有关的（）、对象相应的（）过程和（）代码。(A)模块、方法、事件、程序(B)窗体、属性、事件、程序(C)窗体、程序、属性、事件(D)窗体、属性、事件、模块7．以下不属于VisualBasic的工作模式是（）模式。(A)编译(B)设计(C)运行(D)中断8．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外必不可少的窗口是（）。（A）窗体布局窗口B）立即窗口（C）代码窗口（D）监视窗口9．保存新建的工程时，默认的路径是（）。（A）MyDocuments（B）VB98（C）＼（D）Windows10．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是（）。（A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对11．对于窗体，下面（）属性可以在运行模式下进行设置。（A）MaxButton（B）BorderStyle（C）Name（D）Left1012．要使Print方法在Form_Load事件中起作用，要对窗体的（）属性进行设置。（A）BackColor（B）ForeColor（C）AutoRedraw（D）Caption13．若要使标签控件显示时不覆盖其背景内容，要对（）属性进行设