实习一熟悉并掌握VB集成开发环境

实习一 熟悉并掌握VB集成开发环境 一、实习目的 1、 熟悉VB的开发环境； 2、 掌握开发VB程序的一般步骤，学会建立简单的VB应用程序。 3、 完成课后习题。 二、原理与方法 VB是面向对象的程序设计语言，把程序和数据封装起来作为一个对象，并为对象赋予应有的属性，在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上。另外VB提供了可视化设计工具，节省了大量编写界面的工作。 VB通过事件驱动的方式来实现对象的操作，其程序不是按照规定的路径执行，而是在响应不同的事件时，驱动不同的事件代码，以此来控制对象的行为。 三、实习仪器与数据 电脑、Visual Basic 6.0 四、实习步骤 1、熟悉VB的开发环境 熟悉VB的菜单、工具条、工具窗口、窗体、控件、代码窗口等。结合第三章内容，熟练掌握窗体的常用属性的使用方法，观察窗体对象不同属性运行的效果。 2、添加窗体和控件 添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。 表1 控制文本框的编辑状态 对象名 属性名 设置值 Text1 Text vb6.0程序应用示例 Text Multiline True Command1 Caption 编辑文本 Command2 Caption 禁止编辑 Text1 Locked False

效果如图1所示。

PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.cn 图1 控制文本框的编辑状态 3、编写代码 Private Sub Command1_Click() Text1.Locked = True End Sub Private Sub Command2_Click() Text1.Locked = False End Sub

4、运行程序 通过不同的方式运行程序，观察运行结果，体会VB开发语言的特点。 5．完成实习报告 内容包括：目的、开发VB程序的一般步骤、VB的特点及实习体会，同时将第四章习题4.7，4.8的结果写入实习报告。

PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.cn 实习二 简单文本编辑器 一、实习目的 1、 学会根据要求设计窗体界面，并对窗体进行合理布局； 2、 掌握标签、文本框、单选、复选框、框架等控件的使用； 3、 掌握用程序代码方式设置属性的方法。 4、 掌握inputbox和MSGbox函数的使用。 二、原理与方法 VB中的控件时预定义的对象，可由工具箱中直接添加到窗体上，自由构建自己需要的界面。对象的属性可由属性窗口设置，也可由代码进行设置或修改。 三、实习仪器与数据 电脑、Visual Basic 6.0 四、实习步骤 1、添加窗体和控件 添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。 表2 窗体或控件属性表 对象名 属性名 设置值 Form1 caption 简单文本编辑器 Frame1 caption 字体 Frame2 caption 字型 Frame3 caption 字号 Frame4 caption 字色 Option1 caption 宋体 Option2 caption 黑体 Option3 caption 隶书 Option4 caption 8号字 Option5 caption 14号字 Option6 caption 24号字 Option7 caption 蓝色 Option8 caption 绿色 Option9 caption 红色 Check1 caption 粗体 Check2 caption 斜体 Check3 caption 下划线

PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.cnCommand1 caption 确定 Command2 caption 取消

效果如图2所示。

图2 简单文本编辑器界面 2、编写代码 Private Sub Command1_Click() If Option1.Value = True Then Text1.Font.Name = "宋体" End If If Option2.Value = True Then Text1.Font.Name = "黑体" End If If Option3.Value = True Then Text1.Font.Name = "隶书" End If If Option7.Value = True Then Text1.ForeColor = vbBlue End If If Option8.Value = True Then Text1.ForeColor = vbGreen End If If Option9.Value = True Then

PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.cn Text1.ForeColor = vbRed End If

If Check1.Value = vbChecked Then Text1.Font.Bold = True Else Text1.Font.Bold = False End If If Check2.Value = 1 Then Text1.Font.Italic = True Else Text1.Font.Italic = False End If If Check3.Value = 1 Then Text1.Font.Underline = True Else Text1.Font.Underline = False End If If Option4.Value = True Then Text1.Font.Size = "8" End If If Option5.Value = True Then Text1.Font.Size = "14" End If End Sub

Private Sub Command2_Click() End End Sub

3、运行程序 运行程序，观察运行结果，对程序中的错误能够调试正确。 4、完善程序 能够利用VB的内部函数和inputbox和MSGbox函数实现在文本框中查找和替换的功能。 5．完成实习报告 内容包括：目的、查找和替换的功能的完整代码。

PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.cn 实习三 编写四则运算程序 一、实习目的 1、掌握VB常量的定义和使用方法； 2、掌握各种表达式的使用方法； 3、掌握常用函数的使用方法； 4、掌握选择结构的程序设计方法。 二、原理与方法 用随机函数Rnd()产生随机数和运算符，并利用函数Val()将文本框内容转换为数值型进行运算。 程序运行时，能够随机产生加、减、乘、除四则运算的算式，并对用户输入的答案进行判断，在Picture控件上显示判断结果。 三、实习仪器与数据 电脑、Visual Basic 6.0 四、实习步骤 1、添加窗体和控件 添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。 表3 窗体或控件属性表 对象名 属性名 设置值 Label1 caption 显示题目 Label2 caption 题次 Text1 text 计算结果 Picture1 Picture ---- Command1 caption 计分 Command2 caption 继续 Command3 caption 退出

效果如图3所示。

PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.cn 图3 四则运算程序界面 2、编写代码 以下给出部分代码，在注释语句后添加部分代码，实现要求的功能。 Dim i As Integer Dim result As Integer Dim ok As Integer, error As Integer Private Sub Command1_Click() Label1 = "" Text1.Visible = False Picture1.Print "- - - - - - - - - - - - - - - -" Picture1.Print "你一共计算 " & i & "题，"; Picture1.Print "得分为：" & Int(ok / i * 100) End Sub Private Sub Command2_Click() Text1.Visible = True Picture1.Cls Text1.SetFocus Form_Load End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Label2.Caption = " 第 " & i + 1 & " 题：" Dim x As Integer, y As Integer, z As Integer, temp As Integer

PDF 文件使用 "pdfFactory Pro" 试用版本创建 www.fineprint.cn