可视化程序设计实验报告

1、. . XIAN TECHNOLOGICAL UNIVERSITY 实验报告 实验课程名称 可视化程序设计 专 业： 信息管理与信息系统 成 绩： 2015 年 4 月 20 日 . . 西安工业大学实验报告 一、实验目的 （1）熟悉 Visual Basic 6.0 集成开发环境。 （2）学习怎样启动和退出 VB （3）掌握开发一个简单程序的基本步骤。 （4）掌握简单代码的编写。 二、实验内容 （1）启动和退出 VB （2）开发一个简单程序。 （3）将 Visual Basic 工程编译生成可执行文件。 三、实验步骤、数据记录及处理 1 1、启动和退出、启动和退出 VBVB 进入 VB 集成

2、开发环境 要进入 VB 应用程序，首先要运行 VB 的集成开发环境。启动 VB 的方法如下： 方法方法 11 单击任务栏上的“开始”按钮； 选择“程序”文件夹，接着选取“Microsoft Visual Basic 6.0 中文版”文件夹， 再选取“Microsoft Visual Basic 6.0 中文版”项，如图 1-1 所示； 专业信息管理与信息系统班级 13051 3 姓名贾丹丹学号 1305131 17 实验课程可视化程序设计指导教师姬浩实验日期 2015 年 3 月 22 日 同实验者 实验项目熟悉 VB 的开发环境，程序设计的基本步骤 实验设备 及器材 硬件：IBM PC 及其

3、兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间。 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 . . 图图 1-1 启动启动 VB 的方法的方法 1 单击鼠标左键。 方法方法 22 单击任务栏上的“开始”按钮； 选择“程序”文件夹； 使用“Windows 资源按理器”查找 VB 可执行文件 VB6.exe； 双击图标。 方法方法 33 在桌面创建一个 VB 快捷键； 双击该快捷键。 VBVB 启动后，出现 V

4、B6.0 的“新建工程”对话框（图-2）单击“打开”按钮，带有一 个窗体的新工程将被创建，并可以看到 VB 集成开发环境的界面，如图 1-3 所示。有的系统 启动后可直接进入图 1-3 所示的界面。 图图 1-2 VB6.0 的的“新建工程新建工程”对话框对话框 . . 图图 1-3 VB 的集成开发环境窗口的集成开发环境窗口 退出 VB 方法： （1） 单击主窗口右上角的“关闭”按钮。 （2） 执行“文件”菜单中的“退出”命令。 （3） 按 Alt+Q 键。 2 2、开发一个简单程序、开发一个简单程序 要求：要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签

5、（Label）显示“床前明月光”。 实验步骤：实验步骤： （1）新建工程 在桌面上双击 Microsoft Visual Basic 6.0 快捷方式图标，系统进入 Visual Basic6.0 集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准 EXE”（即标准工程） 。单击“打开”按钮，Visual Basic 6.0 进入设计模式。如图 14 所示。 . . 图 14“新建工程”对话框 单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。 （2）设计界面 在系统提供的名为 Form1 的窗体上进行界面设计。单击工具箱上的标签（Label）控件， 在窗体上添加标签的位置

6、处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标 签控件添加到窗体上。初始界面如图 15 所示。 图 15 初始界面 （3）设置属性 如表 11 所示。 表 11 属性设置 对象属性属性值 Form1Caption 我的第一个 VB 程序 Label1Caption 设置属性后的界面如图 16 所示。 图 16 设置属性后的界面 图 17 第一个程序 （4）编写程序代码 Private Sub Form_Click( ) Label1.Caption = 床前明月光 End Sub （5）运行程序 运行 VB 程序有三种方法：单击工具栏上的“启动”按钮；从“运行”菜单中选择 “启动”菜

7、单项；按 F5 键。 . . 例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图 17 所示。 （6）保存程序 单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合 适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文 件（例如工程文件名为“实验一.vbp”）。 3 3、将、将 VisualVisual BasicBasic 工程编译生成可执行文件工程编译生成可执行文件 单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe 文件。 退出 Visual Basic 集成开发环境，双击实验一.exe 文件

8、，则实验一.exe 文件就可直接运 行。 四、实验心得 通过这次实验，我熟悉了 Visual Basic 6.0 集成开发环境。能够熟练地启动和退出 VB，掌握了开发一个简单程序的基本步骤和简单代码的编写。 西安工业大学实验报告 一、实验目的 （1）掌握命令按钮、文本框和标签常用属性值的设置方法。 （2）学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。 （3）掌握命令按钮的主要事件的使用。 专业信息管理与信息系统班级 13051 3 姓名贾丹丹学号 1305131 17 实验课程可视化程序设计指导教师姬浩实验日期 2015 年 3 月 22 日 同实验者 实验项目常用基本控件使用 实

9、验设备 及器材 硬件：IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间。 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 . . 二、实验内容 （1）利用命令按钮、文本框和标签判断密码是否正确。 （2）建立应用程序，对两个文本框中输入的内容进行交换。 。 三、实验步骤、数据记录及处理 1 实验内容 要求要求: : 在文本框中输入“goodbaby” ，然后单击“登录”命令按钮，则在标签 Label

10、2 中显示“欢迎使用本系统！” ；在文本框中输入“abc” ，然后单击“登录”命令 按钮，则在标签 Label2 中显示“密码错误！请重新输入密码！” 。 步骤：步骤： （1）设计界面 在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图 21 所示。 图 21 初始界面 图 22 设置属性后的界面 （2）设置属性 设置属性后的界面如图 22 所示。 表 21 属性设置 对象属性属性值 Label1Caption请输入密码： Command1Caption登陆 Command2Caption退出 Label2Caption Label2BorderStyle1-Fixed Single

11、 Text1Text Text1MaxLength16 Text1PasswordChar* Form1Caption登陆界面 （3）编写程序代码 Private Sub Command1_Click() If Text1.Text=“goodbaby” Then . . Label2.Caption=“欢迎使用本系统！” Else Label2.Caption=“密码错误！请重新输入密码！” End If End Sub Private Sub Command2_Click() End End Sub （4）运行程序 在文本框中输入“goodbaby” ，然后单击“登录”命令按钮，则在标签

12、Label2 中 显示“欢迎使用本系统！” 。运行结果如图 23 所示。 图 23 输入的密码正确 在文本框中输入“abc” ，然后单击“登录”命令按钮，则在标签 Label2 中显示 “密码错误！请重新输入密码！” 。运行结果如图 24 所示。 图 24 输入的密码错误 2 实验内容 （1）设计界面 在窗体上放置两个 Label 控件、两个 TextBox 控件和三个 CommandButton 控件。初 界面如图 25 所示。 . . 图 25 初始界面 图 26 属性设置后的界面 （2）属性设置 设置属性后的界面如图 26 所示。 表 22 属性设置 对象属性名称属性值 Form1Cap

13、tion 交换 Label1Caption 输入第 1 个数 Label2Caption 输入第 2 个数 Text1Text 空 Text2Text 空 NameCmdChange Caption 交换 Command1 DefaultTure NameCmdClear Command2 Caption 清空 NameCmdExit Command3 Caption 退出 （3）编写程序代码 Option Explicit Private Sub CmdChange_Click( ) Dim temp As Integer temp=Text1.Text Text1.Text=Text2.T

14、ext 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）单击交换后的界面 四、实验心得 通过本次实验，我掌握命令按钮、文本框和标签常用属性值的设置方法，学会了使用 命令按钮、文本框和

15、标签在窗体上建立用户界面的方法并且掌握命令按钮的主要事件的使 用。 西安工业大学实验报告 专业信息管理与信息系统班级 13051 3 姓名贾丹丹学号 1305131 17 实验课程可视化程序设计指导教师姬浩实验日期 2015 年 3 月 25 日 同实验者 实验项目 VB 控制结构 实验设备 硬件：IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间。 . . 一、实验目的 （1）掌握逻辑表达式的正确书写形式。 （2）掌握单分支与双分支条件语句的用法，熟悉 If.Then.Else 语句。 （3）掌握选择结构中多条件

16、，多分支程序的用法，熟悉 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

17、)的值。提示： 本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器也可用一个循环来 实现括号内每累加一个数，就往 S 中累加一次。 （4）输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了 1 和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次 2n 用做除 数去除 n，若 n 不能被其中任何一个数整除，则 n 为素数。 三、实验步骤、数据记录及处理 选择结构 1实验内容 （1）建立用户界面。 （2）设置对象属性。 表 41 属性设置 对象属性属性值说明 Frame1Caption请输入您的密码： Text 清空 Text1 PasswordChar

18、*只显示字符“*” Caption FontName黑体字体名称 Label1 fontSize三号字体大小 （3）编写事件代码。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 回车字符的 Ascii 为 13 及器材 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 . . If Text1.Text = 123456 Then Label1.Caption = 欢迎使用本系统！ El

19、se Label1.Caption = 对不起，密码错！ End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub （4）运行程序 程序输出界面如图 41，图 42 所示。 图 41 验证密码正确 图 42 验证密码不正确 2实验内容 （1）建立用户界面。参考图 43 所示。 图 43 界面设计 （2）设置对象属性。 表 42 属性设置 对象属性属性值说明 Form1Caption星期 Label1Caption输入一个数字（0- 6） Caption 空Label2 BorderStyle1-Fixe

20、d Single边框样式 . . Caption星期 Command1DefaultTrue缺省命令按 钮 Text1Text“”空 （3）编写事件代码。 Private Sub Command1_Click() Dim n As Integer, m As String n = Val(Text1.Text) Select Case n Case 1 m = 星期一（Monday） Case 2 m = 星期二（Tuesday） Case 3 m = 星期三（Wednesday） Case 4 m = 星期四（Thursday） Case 5 m = 星期五（Friday） Case 6 m

21、 = 星期六（Saturday） Case 0 m = 星期日（Sunday） Case Else m = 重新输入 End Select Label2.Caption = m End 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 Long n

22、 = Val(Text1.Text) j = 0: s = 0 For i = 1 To n j = j + i s = s + j Next i Label2.Caption = 和数 S= s End If End Sub （4）运行程序 如图 35（a） （b） （c） （d）所示 (a) (b) （c） （d） 图 35 计算三角形的面积 四、实验心得 通过这次实验，我掌握了表达式的构成和如何求表达式的值，掌握了赋值语句的使用， 掌握了 InputBox 函数的使用和 MsgBox 语句的使用。 . . 西安工业大学实验报告 一、实验目的 （1）了解一维数组的用法。 （2）学会声明，使

23、用一维数组。应用数组解决有关数组常用算法问题。 （3）了解二维数组的用法。 （4）学会声明，使用二维数组。应用数组解决有关数组常用算法问题。 二、实验内容 （1）将下列文字“盐城生物工程高等学校计算机系”存放到数组中，并以倒序打印 出来。要求把这 14 个字符存放到数组 C(14)中，首先依此读取，然后利用循环，设置步长 为1 初值为 14，终值为 1，实现倒序输出。 （2）编写程序，建立并输出一个 10*10 的矩阵，该矩阵两条对角线元素为 1，其余 元素为 0。提示：由于矩阵由行，列组成，需要双下标才能确定一元素位置，所以，使用 二维数组来表示矩阵。设行用 n 表示，列用 m 表示，则主对

24、角线元素即为行与列相等的元 素（即 n=m）,而次对角线的下标满足：n=11-m。 三、实验步骤、数据记录及处理 1实验内容 （1）设计界面。 （2）设置属性。如图 131 所示。 专业信息管理与信息系统班级 13051 3 姓名贾丹丹学号 1305131 17 实验课程可视化程序设计指导教师姬浩实验日期 2015 年 4 月 12 日 同实验者 实验项目VB 数组应用 实验设备 及器材 硬件：IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间。 软件：操作系统为中文 Windows 95/98 或 Windows

25、 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 . . 图 131 将字符倒序输出 （3）编写程序代码。 Private Sub Command1_Click() Dim x As Integer, c(1 To 14) As String c(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

26、 Label1.Caption = Label1.Caption + c(x) Next x For x = 14 To 1 Step -1 Label2.Caption = Label2.Caption + c(x) Next x End Sub （4）运行程序 程序输出界面如图 132 所示。 图 132 将字符倒序输出结果 图 133 界面设计 2实验内容 . . （1）建立用户界面。 在窗体中使用图片框控件 Picture1，参见图 133 所示，当然也可用列表框控件来显 示矩阵的元素。 （2）设置对象属性。 （3）编写事件代码。 Private Sub Form_Activate()

27、 Dim z(10, 10) As Integer For 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 Next Next Picture1.Print For n = 1 To 10 For m = 1 To 10 Picture1.Print Tab(m * 3); z(n, m); 输出各元素的值 Next Print 换行 Next End Sub （4）运行程序 程序输出界面如图 134 所示。 图 134 程序运行结果 . . 四、实验心得 通

28、过本次实验，我了解了一维数组和二维数组的用法，学会了声明，使用一维数组和 二维数组，并能够应用数组解决有关数组常用算法问题。 西安工业大学实验报告 一、实验目的 （1）掌握 Sub 过程的定义。 （2）掌握 Sub 过程的调用。 （3）掌握 Sub 过程参数传递规则。 （4）掌握 Function 过程的定义。 （5）掌握 Function 过程的调用。 （6）掌握 Function 过程参数传递规则。 二、实验内容 （1）编写一个求阶乘的过程，调用该过程求 4！和 6！。 （2）编写一个求任意数的平方的函数，调用该函数求 110 的平方数。 三、实验步骤、数据记录及处理 Sub 过程 1设计

29、界面 专业信息管理与信息系统班级 13051 3 姓名贾丹丹学号 1305131 17 实验课程可视化程序设计指导教师姬浩实验日期 2015 年 4 月 12 日 同实验者 实验项目VB 过程设计 实验设备 及器材 硬件：IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间。 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 . . 在窗体上添加两个命令按钮和两个标签。初始界面如图 61 所示。 图 6

30、1 初始界面 图 62 设置属性后的界面 2设置属性 表 61 属性设置 对象属性属性值 Command1Caption求 4！ Command2Caption求 6！ Label1Caption Label1BorderStyle1-Fixed Single Label2Caption Label2BorderStyle1-Fixed Single 设置属性后的界面如图 62 所示。 3编写程序代码 Private Sub jiecheng(n As Integer, result As Long) Dim i As Integer result = 1 For i = 1 To n res

31、ult = result * i Next i End Sub Private Sub Command1_Click( ) Dim x As Integer, t As Long x = 4 Call jiecheng(x, t) Label1.Caption = Str(x) + != + Str(t) End Sub Private Sub Command2_Click( ) Dim x As Integer, t As Long x = 6 Call jiecheng(x, t) . . Label2.Caption = Str(x) + != + Str(t) End Sub 4运行程

32、序 分别单击“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 * x End Function Private Sub For

33、m_Click( ) Dim a As Integer For a = 1 To 10 List1.AddItem power(a) Next a End Sub 4运行程序 运行程序后，单击窗体，程序运行效果如图 73 所示。 . . 图 73 求 110 的平方数 四、实验心得 掌握了 Sub 过程和 Function 过程的定义、调用、过程参数传递规则，遇到了很多不懂 的地方，在同学的帮助下解决了困难，完成了这次实验。 西安工业大学实验报告 一、实验目的 （1）掌握菜单设计器窗口的操作技术。 （2）掌握下拉式菜单和弹出式菜单的设计方法。 （3）掌握通过工具条控件创建工具栏的步骤和方法。

34、（4）掌握通过状态栏控件创建状态栏的步骤和方法。 二、实验内容 （1）建立一个窗体菜单，测试快捷键和访问键的功能。在窗体上放置一个文本框，根 据菜单中选择的颜色，变换文本框的背景色。 （2）在上题的基础上添加一个弹出式菜单，并测试弹出式菜单的执行情况。 专业信息管理与信息系统班级 13051 3 姓名贾丹丹学号 1305131 17 实验课程可视化程序设计指导教师姬浩实验日期 2015 年 4 月 14 日 同实验者 实验项目菜单、工具栏、状态栏设计 实验设备 及器材 硬件：IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上

35、的自由空间。 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 . . （3）创建具有“新建” ， “复制” ， “打开”和“打印”功能的工具栏 （4）应用 StatusBar 控件制作状态栏。 三、实验步骤、数据记录及处理 菜单设计 1实验内容 （1）建立用户界面 利用“工具”菜单中的“菜单编辑器”菜单项，建立如图 14-1 所示的菜单。 图 14-1 初始菜单 （2）属性设置 表 14-1 菜单设计 标题名称快捷键 颜色（&C） mnuColor 红色 mnuRedCtrl+

36、R 蓝色 mnuBlueCtrl+B 绿色 mnuGreenCtrl+G Line 白色 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(

37、) . . 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 打印星号 mnuPopSta

38、r 打印字母 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=

39、” ” 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 添加控件

40、 将工具箱中 Toolbar 和 ImageList 控件双击到窗体上。参考图 2152 所示。 图 152 设置界面 （2）设置对象属性。 . . 鼠标指向 ImageList 控件，单击右键在弹出的快捷菜单中选择属性，在打开的“属性 页”对话框，选择“图象”选项卡，单击“插入图片”按钮，选择图片。如图 153 所示。 图 153 插入图片 在窗体的工具栏上单击鼠标右键，在弹出的快捷菜单中选择属性，打开的“属性页” 对话框，在“图象列表”选项中选取 ImageList1，建立与图象列表框的关联。参考图 2154 所示。 图 154 设置 Toolbar 的属性 选择“按钮”选项卡，单击“插入

41、”按钮，向工具栏中添加 4 个工具按钮，索引分别 为 1，2，3，4，对应图象索引值分别为 1,2,3,4。参考图 155 所示。 . . 图 155 建立与图象列表框的关联 （3）编写事件代码。 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Text1.Text = Case 2 Debug.Print 复制 Case 3 Debug.Print 打开 Case 4 Debug.Print 打印 End Select End Sub （4

42、）运行程序。 程序输出界面如图 156 所示。 图 156 程序运行结果 . . 2实验内容 （1）建立用户界面 添加 AxtiveX 控件。向窗体中添加一个 StatusBar 控件和 Timer 控件。参考图 157 所 示。 图 157 界面设计 图 158 插入一个窗格 （2）设置对象属性。 设置 Timer 控件的 Interval 属性为 100，右击 StatusBar 控件，在弹出的快捷菜单中选 择属性，在打开的“属性页”对话框，选择“窗格”选项卡。选择插入窗格命令，插入一 个窗格，如图 158 所示。 （3）编写事件代码。 Private Sub Form_Load( ) S

43、tatusBar1.Panels(1).Text = 欢迎使用本系统 End Sub Private Sub Timer1_Timer() StatusBar1.Panels(2).Text = Time() End Sub （4）运行程序 程序输出界面如图 159 所示。 图 159 程序运行结果 . . 四、实验心得 通过本次试验，我掌握了菜单设计器窗口的操作技术和下拉式菜单和弹出式菜单的设 计方法，掌握了通过工具条控件创建工具栏的步骤和方法和通过状态栏控件创建状态栏的 步骤和方法。 西安工业大学实验报告 一、实验目的 （1）掌握数据库、表、记录和字段的概念。 （2）掌握可视化数据库管理器

44、的使用。 （3）了解使用 SQL 语句对数据库中的数据进行查询和更新的功能。 专业信息管理与信息系统班级 13051 3 姓名贾丹丹学号 1305131 17 实验课程可视化程序设计指导教师姬浩实验日期 2015 年 4 月 14 日 同实验者 实验项目VB 数据库设计 实验设备 及器材 硬件：IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间。 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 .

45、. 二、实验内容 使用可视化数据库管理器建立一个名为“Student.mdb”的 Access 数据库，它包 括一个学生学籍表，该表的表名为 xjb，各列的名称、数据类型、长度及意义如下所示。 列名 数据类型 长度 意义 st_No Integer 学号 name Text 10 姓名 sex Text 2 性别 addr Text 50 地址 height single 身高 三、实验步骤、数据记录及处理 1数据库的创建 (1)单击“外接程序”菜单项的“可视化数据管理器”菜单项，启动“可视化数据管理 器” ，显示如图 191 所示的“VisData”窗口。 图 191 可视化数据管理器 (2

46、)选择“可视化数据管理器”中“文件”菜单中的“新建”菜单项用于创建数据库。 (3)选择“Microsoft Access”菜单项，单击该菜单项下的“Version 7.0 MDB”菜单项， 打开“选择要创建的 Microsoft Access 数据库”对话框。 (4)选择新建数据库保存的目录后，在“文件名”文本框中输入数据库的名称 student。 单击“确定” ， “可视化数据管理器”开始在指定的目录下创建以指定名称命名的 Microsoft Access 数据库，如图 192 所示。 . . 图 192 创建数据库后的“可视化数据管理器”界面 2向数据库中添加数据表 （1）在“数据库窗口”

47、中右击鼠标，在弹出的快捷菜单中选“新建表”菜单项，系统 将打开“表结构”对话框，如图 193 所示。 图 193 “表结构”对话框 （2）在“表名称”文本框中键入表名，这里键入名称 xjb。 （3）单击“添加字段”按钮，系统显示“添加字段”对话框，如图 194 所示。在这 个对话框中定义表的字段。单击“确定”按钮，这样我们就定义了 xjb 表的第一个字段。 图 194 “添加字段”对话框 （4）需要继续添加字段时，单击“添加字段”按钮，按与第 3 步相似的方法添加新的 字段，单击“关闭”按钮关闭“添加字段”对话框，此时， “表结构”中显示将该表所有字 段的定义。 （5）单击“生成表”按钮， “可视化数据管理器”创建指定的表并关闭“表结构”对 话框。如图 195 所示。 （6）若要修改现有表的表结构，在“数据库窗口”中右击鼠标，单击弹出的快捷菜单 中“设计”菜单项，系统将打开“表结构”对话框，对欲修改的字段进行修改即可。 3编辑数据表中的数据 （1）在“可视化数据管理器”中打开数据库 student.mdb，如图 2206 所示。 （2）在“数据库窗口”中右击要添加、修改、或删除记录的表，从弹出菜单中选择 “打开”菜单项，系统显示“Dynaset:表名”对话框，