实验一 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) 以表格形式进行属性设置(写出所有非默认属性值的设置)
控件名称 | 属性名称 | 属性值 | |
Command1 | Caption大一vb程序设计基础 | 显示 | |
Command2 | Caption | 清除 | |
Command3 | Caption | 退出 | |
Text1 | Text | 无 | |
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) 以表格形式进行属性设置(写出所有非默认属性值的设置)
控件名称 | 属性名称 | 属性值 | |
Command1 | Caption | 显示 | |
Command2 | Caption | 黑体 | |
Command3 | Caption | 隶书 | |
Text1 | Text | 无 | |
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属性 通过查课本解决
2、在给字体属性赋值时,忘了将字体上加引号 通过查课本解决
3、无
4. 窗体的Click、DbClick、Load事件的使用,以及Print方法和相关属性的使用。
要求:
在属性窗口中将窗体设置成无最大化按钮和最小化按钮,并使标题栏显示“窗体”。
在窗体装入时,窗体上显示“装入图片”字符串,并显示一张图片,标题栏显示“显示图片”。
当用户单击窗体时,在标题栏显示“鼠标单击”,去除图片,并在窗体上显示“欢迎使用VB”
当用户双击窗体时,在标题栏显示“鼠标双击”,,并清除窗体上的字符串。
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论