vb程序设计试验参考指导书.doc

试验总体要求和方法试验是巩固课堂所学知识、掌握可视化程序设计方法、提升分析问题和处理问题能力最关键路径。所以明确试验目标、内容和要求、试验步骤及试验规则，首先有利于试验任务顺利完成，其次也有利于养成严谨科学作风。每个试验全部要遵照认真预习准备、认真做好试验、认真写好试验汇报三个阶段进行。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 设置属性后界面 编写程序代码Private Sub command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Label1.Captio