可视化程序设计实验报告.docx

XIAN TECHNOLOGICAL UNIVERSITY实验报告实验课程名称 可视化程序设计 专 业： 信息管理与信息系统 成 绩： 2015 年 4 月 20 日西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月22日同实验者实验项目熟悉VB的开发环境，程序设计的基本步骤实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的 （1）熟悉Visual Basic 6.0集成开发环境。 （2）学习怎样启动和退出VB （3）掌握开发一个简单程序的基本步骤。 （4）掌握简单代码的编写。 二、实验内容 （1）启动和退出VB （2）开发一个简单程序。 （3）将Visual Basic工程编译生成可执行文件。三、实验步骤、数据记录及处理1、启动和退出VB 进入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的集成开发环境窗口退出VB方法：（1） 单击主窗口右上角的“关闭”按钮。（2） 执行“文件”菜单中的“退出”命令。（3） 按Alt+Q键。2、开发一个简单程序要求：新建一工程，在窗体（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”）。3、将Visual Basic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。退出Visual Basic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。四、实验心得通过这次实验，我熟悉了Visual Basic 6.0集成开发环境。能够熟练地启动和退出VB，掌握了开发一个简单程序的基本步骤和简单代码的编写。 专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月22日同实验者实验项目常用基本控件使用实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。西安工业大学实验报告一、实验目的 （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）单击交换后的界面 四、实验心得 通过本次实验，我掌握命令按钮、文本框和标签常用属性值的设置方法，学会了使用命令按钮、文本框和标签在窗体上建立用户界面的方法并且掌握命令按钮的主要事件的使用。西安工业大学实验报告 专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月25日同实验者实验项目VB控制结构实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的 （1）掌握逻辑表达式的正确书写形式。 （2）掌握单分支与双分支条件语句的用法，熟悉If.Then.Else语句。 （3）掌握选择结构中多条件，多分支程序的用法，熟悉Select Case语句。 （4）掌握For语句的使用。 （5）掌握Do语句的使用。 （6）掌握如何控制循环条件，防止死循环或不循环。二、实验内容 （1）编写程序，利用文本框检查用户密码。提示：可以用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。 （2）输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句SelectCase来解决。 （3）利用For循环求S=1+(1+2)+(1+2+3)+(1+2+3+n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器也可用一个循环来实现括号内每累加一个数，就往S中累加一次。 （4）输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2n用做除数去除n，若n不能被其中任何一个数整除，则n为素数。三、实验步骤、数据记录及处理选择结构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 （4）运行结果程序输出界面如图44所示。图44 程序运行结果循环结构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 2147483647MsgBox 该数太大, 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 程序运行结果四、实验心得通过本次实验，我掌握了逻辑表达式的正确书写形式，掌握了单分支与双分支条件语句的用法，熟悉了If.Then.Else语句，掌握了选择结构中多条件，多分支程序的用法，熟悉Select Case语句，掌握了For语句的使用，Do语句的使用以及如何控制循环条件，防止死循环或不循环。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月25日同实验者实验项目数据的输入、输出实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的 （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所示。(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 = 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 计算三角形的面积四、实验心得通过这次实验，我掌握了表达式的构成和如何求表达式的值，掌握了赋值语句的使用，掌握了InputBox函数的使用和MsgBox语句的使用。 西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月12日同实验者实验项目VB数组应用实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的 （1）了解一维数组的用法。 （2）学会声明，使用一维数组。应用数组解决有关数组常用算法问题。 （3）了解二维数组的用法。 （4）学会声明，使用二维数组。应用数组解决有关数组常用算法问题。二、实验内容 （1）将下列文字“盐城生物工程高等学校计算机系”存放到数组中，并以倒序打印出来。要求把这14个字符存放到数组C(14)中，首先依此读取，然后利用循环，设置步长为1初值为14，终值为1，实现倒序输出。 （2）编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素为0。提示：由于矩阵由行，列组成，需要双下标才能确定一元素位置，所以，使用二维数组来表示矩阵。设行用n表示，列用m表示，则主对角线元素即为行与列相等的元素（即n=m）,而次对角线的下标满足：n=11-m。三、实验步骤、数据记录及处理1实验内容（1）设计界面。（2）设置属性。如图131所示。图131 将字符倒序输出（3）编写程序代码。 Private Sub Command1_Click()Dim x As Integer, c(1 To 14) As Stringc(1) = 盐: c(2) = 城: c(3) = 生: c(4) = 物 :c(5) = 工c(6) = 程: c(7) = 高: c(8) = 等: c(9) = 学:c(10) = 校c(11) = 计: c(12) = 算 :c(13) = 机:c(14)= 系For x = 1 To 14 Label1.Caption = Label1.Caption + c(x) Next xFor x = 14 To 1 Step -1 Label2.Caption = Label2.Caption + c(x) Next xEnd Sub（4）运行程序程序输出界面如图132所示。 图132 将字符倒序输出结果 图133 界面设计2实验内容（1）建立用户界面。在窗体中使用图片框控件Picture1，参见图133所示，当然也可用列表框控件来显示矩阵的元素。（2）设置对象属性。（3）编写事件代码。Private Sub Form_Activate()Dim z(10, 10) As IntegerFor n = 1 To 10 For m = 1 To 10 If n = m Or n = 11 - m Then z(n, m) = 1 Else z(n, m) = 0 End If NextNext Picture1.Print For n = 1 To 10 For m = 1 To 10 Picture1.Print Tab(m * 3); z(n, m); 输出各元素的值 Next Print 换行NextEnd Sub（4）运行程序程序输出界面如图134所示。图134 程序运行结果四、实验心得 通过本次实验，我了解了一维数组和二维数组的用法，学会了声明，使用一维数组和二维数组，并能够应用数组解决有关数组常用算法问题。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月12日同实验者实验项目VB过程设计实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的（1）掌握Sub过程的定义。（2）掌握Sub过程的调用。（3）掌握Sub过程参数传递规则。 （4）掌握Function过程的定义。 （5）掌握Function过程的调用。（6）掌握Function过程参数传递规则。二、实验内容 （1）编写一个求阶乘的过程，调用该过程求4！和6！。 （2）编写一个求任意数的平方的函数，调用该函数求110的平方数。三、实验步骤、数据记录及处理Sub过程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设计界面在窗体上添加一个标签和一个列表框。初始界面如图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的平方数 四、实验心得 掌握了Sub过程和Function过程的定义、调用、过程参数传递规则，遇到了很多不懂的地方，在同学的帮助下解决了困难，完成了这次实验。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月14日同实验者实验项目菜单、工具栏、状态栏设计实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的（1）掌握菜单设计器窗口的操作技术。（2）掌握下拉式菜单和弹出式菜单的设计方法。（3）掌握通过工具条控件创建工具栏的步骤和方法。（4）掌握通过状态栏控件创建状态栏的步骤和方法。二、实验内容（1）建立一个窗体菜单，测试快捷键和访问键的功能。在窗体上放置一个文本框，根据菜单中选择的颜色，变换文本框的背景色。（2）在上题的基础上添加一个弹出式菜单，并测试弹出式菜单的执行情况。（3）创建具有“新建”，“复制”，“打开”和“打印”功能的工具栏（4）应用StatusBar控件制作状态栏。三、实验步骤、数据记录及处理菜单设计1实验内容（1）建立用户界面 利用“工具”菜单中的“菜单编辑器”菜单项，建立如图14-1所示的菜单。图14-1 初始菜单（2）属性设置表14-1 菜单设计标题名称快捷键颜色（&C）mnuColor红色mnuRedCtrl+R蓝色mnuBlueCtrl+B绿色mnuGreenCtrl+GLine白色mnuWhiteCtrl+W黑色mnuBlackCtrl+K退出（&X）mnuExit(3) 编写事件代码 Private Sub mnuExit_Click() End End Sub Private Sub mnuBlack_Click() Text1.BackColor=RGB(0,0,0)End Sub Private Sub mnuBlue_Click() Text1.BackColor=RGB(0,0,255) End Sub Private Sub mnuGreen_Click() Text1.BackColor=RGB(0,255,0) End Sub Private Sub mnuRed_Click()Text1.BackColor=RGB(255,0,0) End Sub Private Sub mnuWhite_Click() Text1.BackColor=RGB(255,255,255) End Sub(4) 运行程序 测试程序，测试快捷键和访问键，观察运行结果。2实验内容（1） 在实验1的菜单中增加一个菜单项，如表14-2所示表14-2 新增菜单项标题名称可见性弹出菜单mnuPopFalse打印星号mnuPopStar打印字母mnuPopNum（2） 修改属性 将Text1的对齐属性Alignment设为“2”（居中），多行属性MultiLine设为“Ture”，字体Font属性设为“小三”。（3）添加程序代码 Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single, Y As Single) If Button =2 Then Form1.PopupMenu mnuPop,4 End Sub Private Sub mnuPopNum_Click() Text1.Text=” Text1.Text=”1 2 3 4 5 6 7 8 9 0”& Chr(13) & Chr(10) &”0 9 8 7 6 5 4 3 2 1 “ End Sub Private Sub mnuPopStar_Click() Text1.Text=” Text1.Text=”*”& Chr(13) & Chr(10) &”*“ End Sub（4）运行程序 效果如图14-2所示图14-2 弹出式菜单效果工具栏、状态栏设计1实验内容（1）建立用户界面。添加一个文本框控件Text1。添加AxtiveX控件。参考图151所示。图151 添加控件将工具箱中Toolbar和ImageList控件双击到窗体上。参考图2152所示。图152 设置界面（2）设置对象属性。鼠标指向ImageList控件，单击右键在弹出的快捷菜单中选择属性，在打开的“属性页”对话框，选择“图象”选项卡，单击“插入图片”按钮，选择图片。如图153所示。图153 插入图片在窗体的工具栏上单击鼠标右键，在弹出的快捷菜单中选择属性，打开的“属性页”对话框，在“图象列表”选项中选取ImageList1，建立与图象列表框的关联。参考图2154所示。图154 设置Toolbar的属性选择“按钮”选项卡，单击“插入”按钮，向工具栏中添加4个工具按钮，索引分别为1，2，3，4，对应图象索引值分别为1,2,3,4。参考图155所示。图155 建立与图象列表框的关联（3）编写事件代码。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Text1.Text = Case 2Debug.Print 复制Case 3Debug.Print 打开Case 4Debug.Print 打印End SelectEnd Sub（4）运行程序。程序输出界面如图156所示。图156程序运行结果2实验内容（1）建立用户界面添加AxtiveX控件。向窗体中添加一个StatusBar控件和Timer控件。参考图157所示。 图157 界面设计 图158 插入一个窗格（2）设置对象属性。设置Timer控件的Interval属性为100，右击StatusBar控件，在弹出的快捷菜单中选择属性，在打开的“属性页”对话框，选择“窗格”选项卡。选择插入窗格命令，插入一个窗格，如图158所示。（3）编写事件代码。Private Sub Form_Load( )StatusBar1.Panels(1).Text = 欢迎使用本系统End SubPrivate Sub Timer1_Timer()StatusBar1.Panels(2).Text = Time()End Sub（4）运行程序程序输出界面如图159所示。图159 程序运行结果四、实验心得通过本次试验，我掌握了菜单设计器窗口的操作技术和下拉式菜单和弹出式菜单的设计方法，掌握了通过工具条控件创建工具栏的步骤和方法和通过状态栏控件创建状态栏的步骤和方法。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月14日同实验者实验项目VB数据库设计实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的 （1）掌握数据库、表、记录和字段的概念。 （2）掌握可视化数据库管理器的使用。 （3）了解使用SQL语句对数据库中的数据进行查询和更新的功能。二、实验内容 使用可视化数据库管理器建立一个名为“