vb程序设计_实验指导书

实验的总体要求与方法实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。1．实验的基本目的（1）通过实验熟悉面向对象程序设计的基本概念。（2）通过实验熟练掌握利用VB进行可视化程序设计的基本方法。（3）通过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有计一般应用程序和解决事务管理问题的能力。2．实验的基本要求（1）上机实验之前，应认真预习有关实验内容及相应教材。（2）实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。（3）上机时要遵守实验室的规章制度，爱护实验设备。３．实验报告每个实验结束后都应写出实验报告，报告中应包括下列内容：（１）实验目的（２）实验内容与要求（３）实验步骤（４）实验结果及分析讨论、实验心得体会等。实验一熟悉vb的开发环境、程序设计的基本步骤【实验目的】1．熟悉VisualBasic6.0集成开发环境。2.学习怎样启动和退出VB3．掌握开发一个简单程序的基本步骤。4．掌握简单代码的编写。【实验内容】1．启动和退出VB2．开发一个简单程序。3．将VisualBasic工程编译生成可执行文件。【实验要求及操作步骤】一、启动和退出VB1、进入VB集成开发环境要进入VB应用程序，首先要运行VB的集成开发环境。启动VB的方法如下：[方法1]◇单击任务栏上的“开始”按钮；◇选择“程序”文件夹，接着选取“MicrosoftVisualBasic6.0中文版”文件夹，再选取“MicrosoftVisualBasic6.0中文版”项，如图1-1所示；图1-1启动VB的方法1◇单击鼠标左键。[方法2]◇单击任务栏上的“开始”按钮；◇选择“程序”文件夹；◇使用“Windows资源按理器”查找VB可执行文件VB6.exe；◇双击图标。[方法3]◇在桌面创建一个VB快捷键；◇双击该快捷键。VB启动后，出现VB6.0的“新建工程”对话框（图１-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到VB集成开发环境的界面，如图1-3所示。有的系统启动后可直接进入图1-3所示的界面。图1-2VB6.0的“新建工程”对话框图1-3VB的集成开发环境窗口1、退出VB方法：（1）单击主窗口右上角的“关闭”按钮。（2）执行“文件”菜单中的“退出”命令。（3）按Alt+Q键。二、开发一个简单程序要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。实验步骤：（1）新建工程在桌面上双击MicrosoftVisualBasic6.0快捷方式图标，系统进入VisualBasic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，VisualBasic6.0进入设计模式。如图1－4所示。图1－4“新建工程”对话框单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。（2）设计界面在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图1－5所示。图1－5初始界面（3）设置属性如表1－1所示。表1－1属性设置对象属性属性值Form1Caption我的第一个VB程序Label1Caption设置属性后的界面如图1－6所示。图1－6设置属性后的界面图1－7第一个程序（4）编写程序代码PrivateSubForm_Click()Label1.Caption=床前明月光EndSub（5）运行程序运行VB程序有三种方法：①单击工具栏上的“启动”按钮；②从“运行”菜单中选择“启动”菜单项；③按F5键。例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图1－7所示。（6）保存程序单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。三、将VisualBasic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。退出VisualBasic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。实验二命令按钮、文本框和标签【实验目的】1．掌握命令按钮、文本框和标签常用属性值的设置方法。2．学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。3．掌握命令按钮的主要事件的使用。【实验内容】1．利用命令按钮、文本框和标签判断密码是否正确。2．建立应用程序，对两个文本框中输入的内容进行交换。【实验要求与步骤】1．实验内容要求:在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。步骤：（1）设计界面在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图2－1所示。图2－1初始界面图2－2设置属性后的界面（2）设置属性设置属性后的界面如图2－2所示。表2－1属性设置对象属性属性值Label1Caption请输入密码：Command1Caption登陆Command2Caption退出Label2CaptionLabel2BorderStyle1-FixedSingleText1TextText1MaxLength16Text1PasswordChar*Form1Caption登陆界面（3）编写程序代码PrivateSubCommand1_Click()IfText1.Text=“goodbaby”ThenLabel2.Caption=“欢迎使用本系统！”ElseLabel2.Caption=“密码错误！请重新输入密码！”EndIfEndSubPrivateSubCommand2_Click()EndEndSub（4）运行程序①在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图2－3所示。图2－3输入的密码正确②在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图2－4所示。图2－4输入的密码错误2．实验内容（1）设计界面在窗体上放置两个Label控件、两个TextBox控件和三个CommandButton控件。初界面如图2－5所示。图2－5初始界面图2—6属性设置后的界面（2）属性设置设置属性后的界面如图2－6所示。表2－2属性设置对象属性名称属性值Form1Caption交换Label1Caption输入第1个数Label2Caption输入第2个数Text1Text空Text2Text空Command1NameCmdChangeCaption交换DefaultTureCommand2NameCmdClearCaption清空Command3NameCmdExitCaption退出（3）编写程序代码OptionExplicitPrivateSubCmdChange_Click()DimtempAsIntegertemp=Text1.TextText1.Text=Text2.TextText2.Text=tempEndSubPrivateSubCmdExit_Click()UnloadMeEndSubPrivateSubCMdCLear_Click()Text1.Text=””Text2.Text=””Text1.SetFocusEndSub(4)运行程序执行结果如图2-7（a）、（b）所示。单击“清空”按钮并再数入数据，进行交换。图2-7（a）交换前的界面图2-7（b）单击交换后的界面实验三表达式、InputBox函数和MsgBox语句【实验目的】1．掌握表达式的构成和如何求表达式的值。2．掌握赋值语句的使用。3．掌握InputBox函数的使用。4．掌握MsgBox语句的使用。【实验内容】1.利用InputBox函数和MsgBox语句求圆的周长。2.利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。【实验步骤与指导】1．实验内容(1)设计界面在窗体上添加一个命令按钮。初始界面如图3－1所示。图3－1初始界面图3－2设置属性后的界面(2)设置属性表3－1属性设置对象属性属性值Command1Caption计算圆的周长Form1CaptionInputBox和MsgBox举例设置属性后的界面如图3－2所示。(3)编写程序代码PrivateSubCommand1_Click()Constpi=3.14159DimrAsSingle,sAsString,s2AsStringDimzhouchangAsSingles=InputBox(请输入半径,输入半径,1)r=Val(s)zhouchang=2*pi*rs2=半径=+s+,圆的周长=+Str(zhouchang)MsgBoxs2,64,确认窗口EndSub(4)运行程序单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图3－3所示。(a)(b)(c)图3－3计算圆的周长2．实验内容(1)设计界面初始界面如图3－4所示。图3-4初始界面(2)设置属性表3－1属性设置对象属性属性值Form1Caption求三角形的面积(3)编写程序代码PrivateSubForm_click()DimaAsSingle,bAsSingle,cAsSingleDimsAsSingle,pAsSinglea=InputBox(请输入三角形的边a：,输入)b=InputBox(请输入三角形的边b：,输入)c=InputBox(请输入三角形的边c：,输入)If(a+b=cOra+c=bOrb+c=a)Or(Abs(a-b)=cOrAbs(a-c)=bOrAbs(b-c)=a)ThenMsgBox(你输入的数据有误！)Elsep=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Print三角形的面积为：;sEndIfEndSub(4)运行程序如图3—5（a）（b）（c）（d）所示(a)(b)（c）（d）图3－5计算三角形的面积实验四选择结构【实验目的】1．掌握逻辑表达式的正确书写形式。2．掌握单分支与双分支条件语句的用法，熟悉If….Then…..Else语句。3．掌握选择结构中多条件，多分支程序的用法，熟悉SelectCase语句。【实验内容】1.编写程序，利用文本框检查用户密码。提示：可以用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。2．输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句SelectCase来解决。【实验步骤与指导】1．实验内容（1）建立用户界面（2）设置对象属性表4－1属性设置对象属性属性值说明Frame1Caption请输入您的密码：Text1Text清空PasswordChar*只显示字符“*”Label1CaptionFontName黑体字体名称fontSize三号字体大小（3）编写事件代码PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车字符的Ascii为13IfText