1、可视化编程实验指导书实验一 熟悉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中文版”文件夹，再选取“Micr
2、osoft 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） 单击主窗口右
3、上角的“关闭”按钮。（2） 执行“文件”菜单中的“退出”命令。（3） 按Alt+Q键。二、开发一个简单程序要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。实验步骤：（1）新建工程在桌面上双击Microsoft Visual Basic 6.0快捷方式图标，系统进入Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0进入设计模式。如图14所示。图14“新建工程”对话框单击“文件”菜单，选择“新建工程”菜单项，也可进入设
4、计模式。（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程序有三种方
5、法：单击工具栏上的“启动”按钮；从“运行”菜单中选择“启动”菜单项；按F5键。例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图17所示。（6）保存程序单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。三、将Visual Basic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。退出Visual Basic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行
6、。实验二 命令按钮、文本框和标签【实验目的】1掌握命令按钮、文本框和标签常用属性值的设置方法。2学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。3掌握命令按钮的主要事件的使用。 【实验内容】利用命令按钮、文本框和标签判断密码是否正确。建立应用程序，对两个文本框中输入的内容进行交换。【实验要求与步骤】实验内容要求: 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。步骤：（1）设计界面在窗体上添加两个标签、一个文本框和
7、两个命令按钮。初始界面如图21所示。 图21初始界面 图22 设置属性后的界面（2）设置属性设置属性后的界面如图22所示。表21属性设置对象属性属性值Label1Caption请输入密码：Command1Caption登陆Command2Caption退出Label2CaptionLabel2BorderStyle1-Fixed SingleText1TextText1MaxLength16Text1PasswordChar*Form1Caption登陆界面（3）编写程序代码Private Sub Command1_Click() If Text1.Text=“goodbaby” Then L
8、abel2.Caption=“欢迎使用本系统！” Else Label2.Caption=“密码错误！请重新输入密码！” End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub（4）运行程序 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图23所示。图23 输入的密码正确 在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图24所示。图24 输入的密码错误实验内容（1）设计界面在窗体上放置两个Label
9、 控件、两个TextBox控件和三个CommandButton控件。初界面如图25所示。 图25 初始界面 图26 属性设置后的界面 （2）属性设置设置属性后的界面如图26所示。表22属性设置对象属性名称属性值Form1Caption交换Label1Caption输入第1个数Label2Caption输入第2个数Text1Text空Text2Text空Command1NameCmdChangeCaption交换DefaultTureCommand2NameCmdClearCaption清空Command3NameCmdExitCaption退出（3）编写程序代码 Option Explicit
10、 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）交换前的界
11、面 图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 属性设置对象属性属性值Command1Captio
12、n计算圆的周长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
13、 Sub(4)运行程序单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图33所示。(a) (b) (c)图33 计算圆的周长2实验内容(1)设计界面初始界面如图34所示。(2)设置属性表31 属性设置对象属性属性值Form1Caption求三角形的面积图3-4 初始界面 (3)编写程序代码 Private Sub Form_click()Dim a As Single, b As Single, c As SingleDim s As Single, p As Singlea = In
14、putBox(请输入三角形的边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运行程序如图35（a）（b）（c）（d）所示 (a) (b)
15、 （c） （d）图35 计算三角形的面积实验四 选择结构【实验目的】 1掌握逻辑表达式的正确书写形式。2掌握单分支与双分支条件语句的用法，熟悉If.Then.Else语句。3掌握选择结构中多条件，多分支程序的用法，熟悉Select Case语句。【实验内容】1. 编写程序，利用文本框检查用户密码。提示：可以用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。2输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句SelectCase来解决。【实验步骤与指导】1实验内容（1）
16、建立用户界面。（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 = 对不
17、起，密码错！ 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缺省命令按钮T
18、ext1Text“”空（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
19、.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不能被其中任何一
20、个数整除，则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)E
21、nd 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 2147483647MsgBox 该数太大, vbInformation + vbOKOnly, 注意Case Els
22、en = 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过程参数传递规则。【实验内容】编
23、写一个求阶乘的过程，调用该过程求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 Lo
24、ng) 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.
25、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的平
26、方数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掌握单选框,复选框的区别。【实验内容】建立一个标
27、准工程实现单选框和复选框的组合应用。【实验步骤与指导】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 2
