实验一VB环境和简单应用程序设计（4个学时）
一、实验目的
1.熟悉Visual Basic集成开发环境的使用。
2.掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。
3.掌握窗体对象的属性、事件和方法。
二、实验内容
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)创建界面（将设计好的界面截下来粘贴在下面）
2)以表格形式进行属性设置（写出所有非默认属性值的设置）
控件名称属性名称属性值
Command1Caption显示
Command2Caption清除
Command3Caption退出
Text1Text无
Font隶书
Forecolor&H000000FF&
3)代码设计
Private Sub Command1_Click()
Text1.Text="欢迎来到青岛科技大学！"
End Sub
Private Sub Command2_Click()
Text1.Text=""
End Sub
Private Sub Command3_Click()
End
End Sub
4)调试过程记录（错误情况及改正方法，不得少于三条）
1、text1与text颠倒了位置通过查课本改正
3.设计一个窗体，在窗体上添加一个文本框和三个命令按钮。
要求：
当按“显示”按扭时，在文本框内显示“Visual Basic程序设计”一串字符串。当按“黑体”按钮时，文本框内的字符串的字体变为黑体；
当按“隶书”按钮时，文本框内的字符串的字体变为隶书；
1)创建界面（将设计好的界面截下来粘贴在下面
2)以表格形式进行属性设置（写出所有非默认属性值的设置）
控件名称属性名称属性值
Command1Caption显示
Command2Caption黑体
Command3Caption隶书
Text1Text无
3)代码设计
Private Sub Command1_Click()
Text1.Text="Visual Basic程序设计"
End Sub
Private Sub Command2_Click()
Text1.Font="黑体"
End Sub
Private Sub Command3_Click()
Text1.Font="隶书"
End Sub
4)调试过程记录（错误情况及改正方法，不得少于三条）
1、错将font字体属性写成了text属性通过查课本解决
vb程序设计是啥
2、在给字体属性赋值时，忘了将字体上加引号通过查课本解决
3、无
4.窗体的Click、DbClick、Load事件的使用，以及Print方法和相关属性的使用。
要求：
在属性窗口中将窗体设置成无最大化按钮和最小化按钮，并使标题栏显示“窗体”。
在窗体装入时，窗体上显示“装入图片”字符串，并显示一张图片，标题栏显示“显示图片”。当用户单击窗体时，在标题栏显示“鼠标单击”，去除图片，并在窗体上显示“欢迎使用VB”
当用户双击窗体时，在标题栏显示“鼠标双击”，，并清除窗体上的字符串。
1）代码设计
Private Sub Form_Click()
Image1.Visible=False
Label1.Visible=False
Print"欢迎使用VB"
Form1.Caption="鼠标单击"
End Sub
Private Sub Form_DblClick()
Cls
Form1.Caption="鼠标双击"
End Sub
Private Sub Form_Load()
Form1.Caption="显示图片"
End Sub将窗体装入后和用户单击窗体后的运行效果界面分别截下粘贴到下面。装入后
鼠标单击时
2）调试过程记录（错误情况及改正方法，不得少于三条
1、忘记了鼠标单击时窗体标题的改变，通过检查发现的
2、printed命令输入错误，单词打错了，通过断点调试发现并改正

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。