1、 XIAN TECHNOLOGICAL UNIVERSITY 实验报告 实验课程名称 可视化程序设计 专 业： 信息管理与信息系统 成 绩： 2015年 4 月 20 日 西安工业大学实验报告 一、实验目的 （ 1） 熟悉 Visual Basic 6.0 集成开发环境。 （ 2）学习怎样启动和退出 VB （ 3） 掌握开发一个简单程序的基本步骤。 （ 4） 掌握简单代码的编写。 二、实验内容 （ 1） 启动和退出 VB （ 2） 开发一个简单程序。 （ 3） 将 Visual Basic 工程编译生成可执行文件。 三、实验步骤、数据记录及处理 1、启动和退出 VB 进入 VB 集成开发环境
2、要进入 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； 专 业 信息管理与信息系 统 班 级 130513 姓 名 贾丹 丹 学 号 13
3、0513117 实 验 课 程 可视化程序设 计 指导教 师 姬 浩 实验 日 期 2015 年 3 月 22 日 同实验 者 实 验 项 目 熟悉 VB 的 开 发 环 境 ， 程 序 设 计 的 基 本 步 骤 实验设备及器 材 硬件： IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间 。 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 双击图标。 方法 3 在桌面创建一个 VB 快捷键； 双
4、击该快捷键。 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）显示“
5、床前明月光”。 实验步骤： （ 1） 新建工程 在桌面上双击 Microsoft Visual Basic 6.0 快捷方式图标，系统进入 Visual Basic6.0集成开发环境，并显示 “ 新建工程 ” 对话框，默认选择是建立 “ 标准 EXE” （即标准工程）。单击 “ 打开 ” 按钮， Visual Basic 6.0 进入设计模式。如图 1 4 所示。 图 1 4“ 新建工程 ” 对话框 单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。 （ 2） 设计界面 在系统提供的名为 Form1 的窗体上进行界面设计。单击工具箱上的标签（ Label）控件，在窗体上添加标签的位置
6、处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图 1 5 所示 。 图 1 5 初始界面 （ 3） 设置属性 如表 1 1 所示。 表 1 1 属性设置 对 象 属 性 属性 值 F o r m 1 C a p t i o n 我 的 第 一 个 VB 程 序 Label1 C a p t i o n 设置属性后的界面如图 1 6 所示。 图 1 6 设置属性后的界面 图 1 7 第一个程序 （ 4） 编写程序代码 Private Sub Form_Click( ) Label1.Caption = “床前明月光 “ End Sub （ 5） 运行程序
7、运行 VB 程序有三种方法： 单击工具栏上的 “ 启动 ” 按钮； 从 “ 运行 ” 菜单中选择“ 启动 ” 菜单项； 按 F5 键。 例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图 1 7所示。 （ 6） 保存程序 单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一 .frm” ），然后保存工程文件（例如工程文件名为 “ 实验一 .vbp” ）。 3、 将 Visual Basic 工程编译生成可执行文件 单击“文件”菜单中的“生成实验一 .exe” 菜单项，就可生成可执行的 .exe 文件
8、。 退出 Visual Basic集成开发环境，双击实验一 .exe文件，则实验一 .exe文件就可直接运行。 四、实验心得 通过这次实验，我 熟悉了 Visual Basic 6.0 集成开发环境。 能够熟练地启动和退出VB， 掌握了开发一个简单程序的基本步骤和简单代码的编写。 专 业 信息管理与信息系 统 班 级 130513 姓 名 贾丹 丹 学 号 130513117 西安工业大学实验报告 一、实验目的 （ 1） 掌握命令按钮、文本框和标签常用属性值的设置方法。 （ 2） 学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。 （ 3） 掌握命令按钮的主要事件的使用。 二、实验内容
9、 （ 1） 利用命令按钮、文本框和标签判断密码是否正确。 （ 2）建立应用程序，对两个文本框中输入的内容进行交换。 。 三、实验步骤、数据记录及处理 1 实验内容 要求 : 在文本框中输入“ goodbaby”，然后单击“登录”命令按钮，则在标签 Label2中显示“欢迎使用本系统！”；在文本框中输入“ abc”，然后单击“登录”命令按钮，则在标签 Label2 中显示“密码错误！请重新输入密码！”。 步骤： （ 1） 设计界面 在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图 2 1 所示。 图 2 1 初始界面图 2 2 设置属性后的界面 （ 2）设置属性 设置属性后的界面如图
10、 2 2 所示。 表 2 1 属性设置 对 象 属 性 属性 值 实 验 课 程 可视化程序设 计 指 导教 师 姬 浩 实验 日 期 2015 年 3 月 22 日 同 实 验 者 实 验 项 目 常 用 基 本 控 件 使 用 实验设备及器 材 硬件： IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间 。 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。 L a b e l 1 C a p t
11、i o n 请 输 入 密 码 ： C o m m a n d 1 C a p t i o n 登 陆 C o m m a n d 2 C a p t i o n 退 出 L a b e l 2 C a p t i o n L a b e l 2 B o r d e r S t y l e 1 - F i x e d S i n g l e T e x t 1 T e x t T e x t 1 M a x L e n g t h 1 6 T e x t 1 P a s s w o r d Ch a r * F o r m 1 C a p t i o n 登陆界 面 （ 3）编写程序代码 Pr
12、ivate 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”，然后单击“登录”命令按钮，则在标签 Label2 中显示“欢迎使用本系统！”。运行结果如图 2 3 所示。 图 2 3 输入的密码正确 在文本框中输入“ abc”，然后单击“登录”命令按钮，则
13、在标签 Label2 中显示“密码错误！请重新输入密码！”。运行结果如图 2 4 所示。 图 2 4 输入的密码错误 2 实验内容 （ 1）设计界面 在窗体上放置两个 Label 控件、两个 TextBox 控件和三个 CommandButton 控件。初 界面如图 2 5 所示。 图 2 5 初始界面 图 2 6 属性设置后的界面 （ 2）属性设置 设置属性后的界面如图 2 6 所示。 表 2 2 属性设置 对 象 属性名 称 属性 值 Form1 Caption 交 换 Label1 Caption 输入第 1 个 数 Label2 Caption 输入第 2 个 数 Text1 Text
14、 空 Text2 Text 空 Command1 Name C m d C h a n g e Caption 交 换 Default Ture Command2 Name CmdClear Caption 清 空 Command3 Name CmdExit Caption 退 出 （ 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 CmdExi
15、t_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）单击交换后的界面 四、实验心得 通过本次实验，我 掌握命令按钮、文本框和标签常用属性值的设置方法 ， 学会 了 使用命令按钮、文本框和标签在窗体上建立用户界面的方法 并且 掌握命令按钮的主要事件的使用。 西安工业大学实验报告 专
16、业 信息管理与信息系 统 班 级 130513 姓 名 贾丹 丹 学 号 130513117 一、实验目的 （ 1）掌握逻辑表达式的正确书写形式。 （ 2）掌握单分支与双分支条件语句的用法，熟悉 If .Then .Else 语句。 （ 3）掌握选择结构中多条件，多分支程序的用法，熟悉 Select Case 语句。 （ 4）掌握 For 语句的使用。 （ 5）掌握 Do 语句的使用。 （ 6）掌握如何控制循环条件，防止死循环或不循环。 二、实验内容 （ 1） 编写程序，利用文本框检查用户密码。提示：可以用文本框的 PasswordChar 属性来隐蔽用户输入的字符。提示：设密码是“ 1234
17、56”，利用文本框的 PasswordChar 属性可以隐蔽用户输入的字符。 （ 2） 输入一个数字（ 0-6），用中英文显示星期几。提示：用多条件多分支选择语句SelectCase 来解决。 （ 3） 利用 For 循环求 S=1+(1+2)+(1+2+3) +(1+2+3+ +n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器也可用一个循环来实现括号内每累加 一 个数，就往 S 中累加一次。 （ 4） 输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了 1 和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次 2 n 用做除数去除
18、n，若 n 不能被其中任何 一 个数整除，则 n 为素数。 三、实验步骤、数据记录及处理 选择结构 1实验内容 （ 1）建立用户界面。 （ 2）设置对象属性。 表 4 1 属性设置 对 象 属 性 属性 值 说 明 F r a m e 1 C a p t i o n 请输入您的密码 ： Te x t 1 T e x t 清 空 P a ssw o r d Ch a r * 只显示字符“ *” L a b e l 1 C a p t i o n F o n t N a m e 黑 体 字体名 称 f o n t S i z e 三 号 字体大 小 （ 3）编写事件代码。 实 验 课 程 可视化程序设 计 指 导教 师 姬 浩 实验 日 期 2015 年 3 月 25 日 同 实 验 者 实 验 项 目 VB 控制结 构 实验设备及器 材 硬件： IBM PC 及其兼容机，要求 CPU 为 Pentium166 以上，内存在 32MB 以上，硬盘有 200MB 以上的自由空间 。 软件：操作系统为中文 Windows 95/98 或 Windows 2000 Professional,开发环境为 Visual Basic 6.0 中文企业版。
