西南石油大学实验报告课程VB程序设计实验项目VB应用初步专业年级2011级储运4班指导教师张淮鑫成绩日姓名苏帆学号1101020408实验日期2012年4月14日一、实验目的：（1）了解VB的启动与退出方法（2）熟悉VB集成开发环（3）熟悉VB帮助系统的使用（4）理解VB种类、对象以及事件驱动的基本概念（5）熟悉VB编程的基本步骤（6）掌握常用控件的创建方法（7）掌握编辑程序代码的基本操作二、实验内容：1.启动VisualBasic6.0，创建一个"标准EXE"类型的应用程序，要求：单击窗体在屏幕上显示"欢迎您使用VisualBasic"，并"请输入您的姓名"；运行界面如图所示，以Sy1-1.frm和Sy1-1.vbp文件名保存。提示：(1)程序中用到2个标签和1个文本框，标签显示所需的文字，文本框用于输入您的姓名，最多输入4个字符，对于2个标签内的字号大小可在标签的属性窗口中选择Font属性改变。(2)"欢迎您使用VisualBasic"要在两行显示，只要将Label1控件的宽度缩小一些。运行界面（3）设计界面要求：界面设计完成后请将窗体设计器上的内容以抓图的方式将结果粘贴到下方。（4）编写代码要求：代码编辑完成后请将代码窗口内的代码语句复制粘贴到下方。PrivateSubForm_Click()Label1.Caption="欢迎您使用VisualBasic"Label2.Caption="请输入您的姓名"EndSub2.练习对窗体三个事件过程（Load、Click、DblClick）的编程，三个事件中分别装入不同的图片，可以是你自己喜欢的任何图片。提示：如load事件：PrivateSubForm_Load()Form1.Caption="Load"Form1.Picture=LoadPicture("d:\window.jpg")Rem字符串内容为图片文件的路径EndSub（1）编写代码要求：代码编辑完成后请将代码窗口内的代码语句复制粘贴到下方。PrivateSubForm_Load()Form1.Caption="Load"Form1.Picture=LoadPicture("e:\tree.jpg")EndSubPrivateSubForm_Click()Form1.Caption="Click"Form1.Picture=LoadPicture("e:\树1.jpg")EndSubPrivateSubForm_DblClick()Form1.Caption="DbClick"Form1.Picture=LoadPicture("e:\树2.jpg")EndSub（2）运行界面要求：运行程序执行相应的事件过程并将每次运行的结果以抓图的方式将粘贴到下方。3．在文本框输入一字符串，对字符格式进行设置，包括字体(FontName)、字号(FontSize)；文本框有垂直滚动条，效果如图所示。运行界面提示：字体设置：Text1.FontName="宋体"字号设置：Text1.FontSize=25（1）设计界面要求：界面设计完成后请将窗体设计器上的内容以抓图的方式将结果粘贴到下方。（2）编写代码要求：代码编辑完成后请将代码窗口内的代码语句复制粘贴到下方。PrivateSubCommand1_Click()Text1.FontName="幼圆"EndSubPrivateSubCommand2_Click()Text1.FontName="隶书"EndSubPrivateSubCommand3_Click()Text1.FontSize=25EndSubPrivateSubCommand4_Click()Text1.FontSize=15EndSub4．Move方法练习，移动具有浮雕效果的文字。在窗体中插入你所喜欢的图片，窗体上以浮雕效果显示字符串"新年快乐"，还有两个命令按钮，文件Point02.ico表示左指向、文件Point04.ico表示右指向，如图所示。要求当单击左指向按钮，字符串"新年快乐"向左移动50；单击右指向按钮，向右移动50。提示：(1)浮雕效果的实现就是建立两个相同属性(大小、文字)的标签，通过设置BackStyle为0(透明)、ForeColor字颜色、Left和Top位置等属性。(2)移动利用Move方法，因为浮雕效果的实现通过2个标签来实现，所以移动时也同时进行。例如，向左移动语句为：Label1.MoveLabel1.Left-50Label2.MoveLabel2.Left-50上述用Move方法实现移动，也可利用对属性的改变实