vb实验练习一.docVIP

实验一 VB环境和简单应用程序设计（4个学时） 一 、实验目的 熟悉Visual Basic集成开发环境的使用。 掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。 掌握窗体对象的属性、事件和方法。 二 、实验内容 1. 在VB的集成开发环境中实现如下的操作： 1）、将“标准”工具栏去掉后再添加上，将“编辑”工具栏添上再去掉。 2)、分别利用“菜单”和“工具栏”中的命令打开“属性窗口”、“工程资源管理器窗口” 3）、将“窗体布局窗口“的”启动位置“设置成“手工”。 4)、在工具箱中任意添加一个Active X 控件。 5）、在工程1中增加两个窗体：Form1、Form2 6）、在工程1中增加两个标准模块：Module1 、Module2 7）、在工程1中增加一个类模块：Class1 8）、在工程资源管理器中将Form2、Module2 删除。 9）、在在工程资源管理器中利用“切换文件夹”按钮隐藏或显示对象的文件夹 10）、将代码窗口中的字体大小改为18号字。 2．设计一个窗体，窗体内有1个文本框和3个命令按钮控件。 要求： 当按“显示”按扭时，在文本框内显示“欢迎来到青岛科技大学！”一串红色、四号、隶书字符串。 当按“清除”按钮时，清除文本框内全部信息； 当按“退出”按钮时，结束程序运行。 1) 创建界面（将设计好的界面截下来粘贴在下面） 以表格形式进行属性设置（写出所有非默认属性值的设置） 对象 属性名 属性值 说明 命令按钮command1 caption “显示” 定义按钮名称为“显示” 命令按钮command2 caption “清除” 定义按钮名称为“清除” 命令按钮command3 caption “退出” 定义按钮名称为“退出” 文本框text1 forecolor “红色” 将在文本框内的字符设为红色 font “隶书” “四号” 将在文本框内的字体设为隶书四号字, text 在运行时，文本框起初不显示内容 代码设计 Private Sub Command1_Click() Text1.Text = 欢迎来到青岛科技大学！ End Sub Private Sub Command2_Click() Text1.Text = End Sub Private Sub Command3_Click() End End Sub 调试过程记录（错误情况及改正方法，不得少于三条） 错误：刚开始时，文本框没有将text的属性值“text1”删除，以致刚运行时文本框里出现“text1”等字。 改正：将文本框text的属性值“text1”删除。 3. 设计一个窗体，在窗体上添加一个文本框和三个命令按钮。 要求： 当按“显示”按扭时，在文本框内显示“Visual Basic 程序设计”一串字符串。 当按“黑体”按钮时，文本框内的字符串的字体变为黑体； 当按“隶书”按钮时，文本框内的字符串的字体变为隶书； 1) 创建界面（将设计好的界面截下来粘贴在下面） 以表格形式进行属性设置（写出所有非默认属性值的设置） 对象 属性名 属性值 说明 命令按钮command1 Caption “显示” 定义命令按扭为“显示” 命令按钮command2 Caption “黑体” 定义命令按钮为“黑体” 命令按钮command3 Caption “隶书” 定义命令按钮为“隶书” 文本框text1 Text “ 在运行时，文本框起初不显示内容 代码设计 Private Sub Command1_Click() Text1.Text = Visual Basic 程序设计 End Sub Private Sub Command2_Click() Text1.FontName = 黑体 End Sub Private Sub Command3_Click() Text1.FontName = 隶书 End Sub 调试过程记录（错误情况及改正方法，不得少于三条） 3