vb程序设计实验指导书.doc

vb程序设计实验指导书932020年4月19日文档仅供参考实验的总体要求与方法实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。1 实验的基本目的（1） 经过实验熟悉面向对象程序设计的基本概念。（2） 经过实验熟练掌握利用VB进行可视化程序设计的基本方法。（3） 经过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有计一般应用程序和解决事务管理问题的能力。2 实验的基本要求（1） 上机实验之前，应认真预习有关实验内容及相应教材。（2） 实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。（3） 上机时要遵守实验室的规章制度，爱护实验设备。实验报告每个实验结束后都应写出实验报告，报告中应包括下列内容：（） 实验目的（） 实验内容与要求（） 实验步骤（） 实验结果及分析讨论、实验心得体会等。实验一 熟悉vb的开发环境、程序设计的基本步骤【实验目的】 1熟悉Visual Basic 6.0集成开发环境。2. 学习怎样启动和退出VB3掌握开发一个简单程序的基本步骤。4掌握简单代码的编写。 【实验内容】1启动和退出VB2开发一个简单程序。3将Visual Basic工程编译生成可执行文件。【实验要求及操作步骤】一、启动和退出VB1、进入VB集成开发环境要进入VB应用程序，首先要运行VB的集成开发环境。启动VB的方法如下：方法1单击任务栏上的“开始”按钮；选择“程序”文件夹，接着选取“Microsoft Visual Basic 6.0中文版”文件夹，再选取“Microsoft Visual Basic 6.0中文版”项，如图1-1所示；图1-1 启动VB的方法1 单击鼠标左键。方法2 单击任务栏上的“开始”按钮； 选择“程序”文件夹； 使用“Windows 资源按理器”查找VB可执行文件 VB6.exe； 双击图标。方法3 在桌面创立一个VB快捷键； 双击该快捷键。VB启动后，出现VB6.0的“新建工程”对话框（图-2）单击“打开”按钮，带有一个窗体的新工程将被创立，并能够看到VB集成开发环境的界面，如图1-3所示。有的系统启动后可直接进入图1-3所示的界面。图1-2 VB6.0的“新建工程”对话框图1-3 VB的集成开发环境窗口1、退出VB方法：（1） 单击主窗口右上角的“关闭”按钮。（2） 执行“文件”菜单中的“退出”命令。（3） 按Alt+Q键。二、开发一个简单程序要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。实验步骤：（1）新建工程在桌面上双击Microsoft Visual Basic 6.0快捷方式图标，系统进入Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0进入设计模式。如图14所示。图14“新建工程”对话框单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。（2）设计界面在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图15所示。图15初始界面（3）设置属性如表11所示。表11 属性设置对象属性属性值Form1Caption我的第一个VB程序Label1Caption设置属性后的界面如图16所示。 图16设置属性后的界面 图17第一个程序（4）编写程序代码Private Sub Form_Click( )Label1.Caption = 床前明月光End Sub（5）运行程序运行VB程序有三种方法：单击工具栏上的“启动”按钮；从“运行”菜单中选择“启动”菜单项；按F5键。例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图17所示。（6）保存程序单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。三、将Visual Basic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。退出Visual Basic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。实验二 命令按钮、文本框和标签【实验目的】1掌握命令按钮、文本框和标签常见属性值的设置方法。2学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。3掌握命令按钮的主要事件的使用。 【实验内容】1利用命令按钮、文本框和标签判断密码是否正确。2建立应用程序，对两个文本框中输入的内容进行交换。【实验要求与步骤】1 实验内容要求: 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。步骤：（1）设计界面在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图21所示。 图21初始界面 图22 设置属性后的界面（2）设置属性设置属性后的界面如图22所示。表21属性设置对象属性属性值Label1Caption请输入密码：Command1Caption登陆Command2Caption退出Label2CaptionLabel2BorderStyle1-Fixed SingleText1TextText1MaxLength16Text1PasswordChar*Form1Caption登陆界面（3）编写程序代码Private Sub Command1_Click() If Text1.Text=“goodbaby” Then Label2.Caption=“欢迎使用本系统！” Else Label2.Caption=“密码错误！请重新输入密码！” End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub（4）运行程序 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图23所示。图23 输入的密码正确 在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图24所示。图24 输入的密码错误2 实验内容（1）设计界面在窗体上放置两个Label 控件、两个TextBox控件和三个CommandButton控件。初界面如图25所示。 图25 初始界面 图26 属性设置后的界面（2）属性设置设置属性后的界面如图26所示。表22属性设置对象属性名称属性值Form1Caption交换Label1Caption输入第1个数Label2Caption输入第2个数Text1Text空Text2Text空Command1NameCmdChangeCaption交换DefaultTureCommand2NameCmdClearCaption清空Command3NameCmdExitCaption退出（3）编写程序代码 Option Explicit Private Sub CmdChange_Click( ) Dim temp As Integer temp=Text1.Text Text1.Text=Text2.Text Text2.Text=temp End Sub Private Sub CmdExit_Click( ) Unload Me End Sub Private Sub CMdCLear_Click( ) Text1.Text=” Text2.Text=” Text1.SetFocus End Sub(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) 设计界面在窗体上添加一个命令按钮。初始界面如图31所示。 图31 初始界面 图32 设置属性后的界面(2) 设置属性表31 属性设置对象属性属性值Command1Caption计算圆的周长Form1CaptionInputBox和MsgBox举例设置属性后的界面如图32所示。(3) 编写程序代码Private Sub Command1_Click( ) Const pi = 3.14159 Dim r As Single, s As String, s2 As String Dim zhouchang As Single s = InputBox(请输入半径, 输入半径, 1) r = Val(s) zhouchang = 2 * pi * r s2 = 半径= + s + ,圆的周长= + Str(zhouchang) MsgBox s2, 64, 确认窗口End Sub(4) 运行程序单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图33所示。(a) (b) (c)图33 计算圆的周长2实验内容(1) 设计界面初始界面如图34所示。图3-4 初始界面 (2) 设置属性表31 属性设置对象属性属性值Form1Caption求三角形的面积(3) 编写程序代码 Private Sub Form_click()Dim a As Single, b As Single, c As SingleDim s As Single, p As Singlea = InputBox(请输入三角形的边a：, 输入)b = InputBox(请输入三角形的边b：, 输入)c = InputBox(请输入三角形的边c：, 输入)If (a + b = c Or a + c = b Or b + c = c Or Abs(a - c) = b Or Abs(b - c) = a) Then MsgBox (你输入的数据有误！)Elsep = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Print 三角形的面积为：; sEnd IfEnd Sub(4) 运行程序如图35（a）（b）（c）（d）所示 (a) (b) （c） （d）图35 计算三角形的面积实验四 选择结构【实验目的】 1掌握逻辑表示式的正确书写形式。2掌握单分支与双分支条件语句的用法，熟悉If.Then.Else语句。3掌握选择结构中多条件，多分支程序的用法，熟悉Select Case语句。【实验内容】1. 编写程序，利用文本框检查用户密码。提示：能够用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性能够隐蔽用户输入的字符。2输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句SelectCase来解决。【实验步骤与指导】1实验内容（1）建立用户界面（2）设置对象属性表41 属性设置对象属性属性值说明Frame1Caption请输入您的密码： Text1Text清空PasswordChar*只显示字符“*”Label1CaptionFontName黑体字体名称fontSize三号字体大小（3）编写事件代码Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 回车字符的Ascii为13 If Text1.Text = 123456 Then Label1.Caption = 欢迎使用本系统！ Else Label1.Caption = 对不起，密码错！ End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End IfEnd Sub（4）运行程序程序输出界面如图41，图42所示。 图41 验证密码正确 图42 验证密码不正确2实验内容（1）建立用户界面。参考图43所示图43 界面设计（2）设置对象属性表42 属性设置对象属性属性值说明Form1Caption星期Label1Caption输入一个数字（0-6）Label2Caption空BorderStyle1-Fixed Single边框样式Command1Caption星期DefaultTrue缺省命令按钮Text1Text“”空（3）编写事件代码Private Sub Command1_Click()Dim n As Integer, m As Stringn = Val(Text1.Text)Select Case nCase 1m = 星期一（Monday）Case 2m = 星期二（Tuesday）Case 3m = 星期三（Wednesday）Case 4m = 星期四（Thursday）Case 5m = 星期五（Friday）Case 6m = 星期六（Saturday）Case 0m = 星期日（Sunday）Case Elsem = 重新输入 End Select Label2.Caption = mEnd Sub程序输出界面如图44所示。图44 程序运行结果实验五 循环结构【实验目的】 1掌握For语句的使用。2掌握Do语句的使用。3掌握如何控制循环条件，防止死循环或不循环。【实验内容】1. 利用For循环求S=1+(1+2)+(1+2+3)+(1+2+3+n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器也可用一个循环来实现括号内每累加一个数，就往S中累加一次。2输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2n用做除数去除n，若n不能被其中任何一个数整除，则n为素数。【实验步骤与指导】1实验内容（1）建立用户界面（2）设置对象属性。参考图51所示 图51 属性设置 图52 程序运行结果（3）编写事件代码Private Sub Command1_Click( )Dim n As Integer, i As Integer, j As Integer, s As Longn = Val(Text1.Text)j = 0: s = 0For i = 1 To nj = j + is = s + jNext iLabel2.Caption = 和数S= & Str(s)Text1.SelLength = Len(Text1.Text)End Sub（4）运行程序程序输出界面如图52所示。2实验内容（1）建立用户界面。参考图53所示图53 界面设计（2）设置对象属性（3）编写事件代码 Private Sub Text1_GotFocus( )Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command1_Click()Dim n As LongSelect Case Val(Text1.Text)Case Is MsgBox 该数太大, vbInformation + vbOKOnly, 注意Case Elsen = Val(Text1.Text)s = 0i = 2Do While i = Sqr(n) And s = 0If n Mod i = 0 Thens = 1Else: i = i + 1End IfLoopIf s = 0 Thena = 是一个素数Elsea = 不是一个素数End IfLabel1.Caption = Str(n) & aEnd SelectText1.SetFocusEnd Sub（4）运行程序程序运行结果如图54所示。图54 程序运行结果实验六 Sub过程【实验目的】 1掌握Sub过程的定义。2掌握Sub过程的调用。3掌握Sub过程参数传递规则。【实验内容】编写一个求阶乘的过程，调用该过程求4！和6！。【实验步骤与指导】1设计界面在窗体上添加两个命令按钮和两个标签。初始界面如图61所示。 图61 初始界面 图62 设置属性后的界面2设置属性表61 属性设置对象属性属性值Command1Caption求4！Command2Caption求6！Label1CaptionLabel1BorderStyle1-Fixed SingleLabel2CaptionLabel2BorderStyle1-Fixed Single设置属性后的界面如图62所示。3编写程序代码Private Sub jiecheng(n As Integer, result As Long) Dim i As Integer result = 1 For i = 1 To n result = result * i Next i End SubPrivate Sub Command1_Click( ) Dim x As Integer, t As Long x = 4 Call jiecheng(x, t) Label1.Caption = Str(x) + != + Str(t)End SubPrivate Sub Command2_Click( ) Dim x As Integer, t As Long x = 6 Call jiecheng(x, t) Label2.Caption = Str(x) + != + Str(t)End Sub4运行程序分别单击“4！”命令按钮和“6！”命令按钮，程序运行效果如图63所示。图63 求4！和6！实验七 Function过程【实验目的】 1掌握Function过程的定义。2掌握Function过程的调用。3掌握Function过程参数传递规则。【实验内容】编写一个求任意数的平方的函数，调用该函数求110的平方数。【实验步骤与指导】1设计界面在窗体上添加一个标签和一个列表框。初始界面如图71所示。 图71 初始界面 图72 设置属性后的界面2设置属性表71 属性设置对象属性属性值Label1Caption求110的平方数List1List设置属性后的界面如图72所示3编写程序代码Private Function power(x As Integer) As Integer power = x * xEnd FunctionPrivate Sub Form_Click( ) Dim a As Integer For a = 1 To 10 List1.AddItem power(a) Next aEnd Sub4运行程序运行程序后，单击窗体，程序运行效果如图73所示。图73 求110的平方数实验八 单选框和复选框的应用【实验目的】1掌握单选框,复选框的定义。2掌握单选框,复选框的区别。【实验内容】建立一个标准工程实现单选框和复选框的组合应用。【实验步骤与指导】1设计界面在窗体上添加一个单选框组(包含三个单选框),一个复选框组(包含三个复选框),两个标签框。初始界面如图61所示。 图81 初始界面 图82 设置属性后的界面2设置属性，如表81所示表81 属性设置对象属性属性值Optionbutton1(0)Caption张文Optionbutton1(1)Caption王雪Optionbutton1(2)Caption林非Checkbox1(0)CaptionVB6.0语言程序设计Checkbox1(1)Caption汇编语言Checkbox1(2)Caption单片机原理Label1caption无Label2caption无设置属性后的界面如图82所示。3编写程序代码 Private Sub Check1_Click(index As Integer)Dim k As StringDim i As Integerk = For i = 0 To 2If Check1(i).Value = 1 Thenk = k & Check1(i).Caption & End IfNext ik = 你选择了 & kLabel2.Caption = kEnd SubPrivate Sub Option1_Click(index As Integer)Dim i As IntegerFor i = 0 To 2If Option1(index).Visible = True ThenLabel1.Caption = 你选择了 & Option1(index).CaptionEnd IfNext iEnd Sub4运行程序分别单选框中的某一项和复选框中的某几项，程序运行效果如图83所示。图83 运行结果实验九 组合框的应用【实验目的】1掌握组合框的常见属性。2了解列表框和组合框的区别。【实验内容】运用组合框实现学校的添加与删除功能。【实验步骤与指导】1设计界面在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。初始界面如图91所示。 图91 初始界面 图92 设置属性后的界面2设置属性，如表91所示表91 属性设置对象属性属性值Command1Caption删除名称CmdDelCommand2Caption添加名称CmdAddCommand3Caption清除名称CmdClearCommand4Caption关闭名称CmdEndLabel1Caption学校Text1text无名称TxtInfor设置属性后的界面如图92所示。3编写程序代码Private Sub CmdAdd_Click()CboMsg.Text = TxtInfor.TextEnd SubPrivate Sub CmdClear_Click() CboMsg.ClearEnd SubPrivate Sub CmdDel_Click() Dim IntIndex As Integer IntIndex = CboMsg.ListIndex CboMsg.Text = Call Del(IntIndex)End SubPrivate Sub CmdEnd_Click() EndEnd SubPrivate Sub Form_Load()With CboMsg .AddItem 盐城师范学院, 0 .AddItem 盐城生物工程高等学校, 1 .AddItem 盐城工学院, 2 .AddItem 盐城师范学校, 3 .ListIndex = 0End WithEnd Sub4运行程序结果如图93所示图93 程序运行结果实验十 图像框的应用【实验目的】1熟悉图像框与图片框的区别。2掌握图像框的属性与特点。【实验内容】将一个图形文件放到图像框中，改变图像框的大小，观察图形是否随之改变。【实验步骤与指导】1设计界面在窗体上添加五个命令按钮和一个图像框。初始界面如图101所示。 图101 初始界面 图102 设置属性后的界面2设置属性，如表101所示表101 属性设置对象属性属性值Command1Caption改变宽度Command2Caption改变高度Command3Caption改变高度和宽度Command4Caption恢复原始尺寸Command4Caption退出Image1pictureE:vb 65203483.wmfImage1stretchtrue设置属性后的界面如图102所示。3编写程序代码Private Sub Command1_Click()Image1.Left = Image1.Left - Image1.Width / 2Image1.Width = Image1.Width * 2End SubPrivate Sub Command2_Click()Image1.Top = Image1.Top - Image1.Height / 2Image1.Height = Image1.Height * 2End SubPrivate Sub Command3_Click()Image1.Left = Image1.Left - Image1.Width / 2Image1.Width = Image1.Width * 2Image1.Height = Image1.Height * 2End SubPrivate Sub Command4_Click()Image1.Left = 2225Image1.Top = 666Image1.Height = 1515Image1.Width = 1515End SubPrivate Sub Command5_Click()EndEnd Sub4运行程序分别单击五个命令按钮，程序运行效果如图103 106所示。 图103 改变宽度后运行结果 图104 改变高度后运行结果 图105 改变高度和宽度后的运行结果 图106 恢复原始尺寸实验十一 滚动条【实验目的】1掌握滚动条的应用。2熟悉滚动条的属性。【实验内容】设计一程序，当拖动或单击水平和垂直滚动条使窗体上的文本框将随之上下或者左右移动。【实验步骤与指导】1设计界面在窗体上添加一个垂直滚动条，一个水平滚动条，一个文本框，一个命令按钮。初始界面如图111所示。图111 初始界面2设置属性表111 属性设置对象属性属性值Hscroll1max1200Hscroll1min100Hscroll1largechange300Vscroll1max800Vscroll1min50Vscroll1largechange300Text1textVb6.0程序设计语言Command1caption退出设置属性后的界面如图112所示。图112 设置属性后的界面3编写程序代码Private Sub Command1_Click()EndEnd SubPrivate Sub HScroll1_Change()Text1.Left = 800 + HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Text1.Top = 300 + VScroll1.ValueEnd Sub4运行程序分别拖动水平滚动条或者垂直滚动条，程序运行效果如图113所示。图113 程序运行效果实验十二 定时器【实验目的】1掌握定时器控键的用法。2熟悉定时器控键的属性。【实验内容】1编写一个程序利用计时器计时。2制作一个日历时钟应用程序。【实验步骤与指导】1设计界面在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始界面如图121所示。图121 初始界面2设置属性，如表111所示表121 属性设置对象属性属性值Command1Caption开始计时Command2Caption停止Command3Caption重新开始Label1BorderStyle1-Fixed SingleLabel1Caption0Timer1enabletrueTimer1interval400设置属性后的界面如图122所示图122 设置属