VB实验报告(含答案)

VB实验报告(含答案)
实验报告
课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境与创建一个简单的VB程序
一.实验目的:
1、了解VB系统对计算机软件、硬件的要求。

2、掌握启动与退出VB的方法。

3、了解与使用VB集成开发环境各窗口、菜单的一般功能。

4、熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。

5、了解文本框、标签框、命令按钮的构造及其属性、事件与方法。

二.实验内容:
1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签与两个命令按钮编一程序,并把命
令按钮分别设置为”显示”与”清除”。

程序运行后,单击”显示”按钮,在文本框中输出一行信息;
单击”清除”按钮,则清除文本框中的内容,运行界面如图1、1所示。

图1、1 实验1-1 运行界面
三.实验结果:对象属性设置
对象属性属性值说明
caption 我的第一个vb程序窗体
Form1
caption 请输入姓名标签
Label1
text ““文本框
Text1
caption 显示命令按钮Command1
caption 清除命令按钮Command2
四.实验思考:
1、标签label控件设置的属性代码有哪些？
Label1、Caption=“请输入姓名”
Label1、fontsize=24
Label1、fontbold=True
2、两个按钮所使用的就是什么事件？代码分别就是什么？
Private Sub Command1_Click()
Text1、text=“姓名”
End Sub
实验二简单程序设计数据类型及常用内部函数的简单应用
一.实验目的:
1.掌握Visual Basic数据类型的基本概念。

2.掌握用Visual Basic的各种运算符及表达式。

3.学习使用Visual Basic内部函数与数据输入、输出方法。

4.掌握命令按钮、文本框与标签。

5.设计顺序程序。

二.实验内容:
1.编写一个华氏温度与摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度,
用msgbox输出转换后的摄氏温度。

转换公式就是:C= 5 / 9(F - 32)。

F为华氏温度,C为摄氏温度。

2、用三种除法运算(/ 、\、Mod)做计算。

要求:在窗体上画五个标签、五个文本框与一个命令按钮,如图2-2所示。

程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。

图2-1
图2-2
三.实验结果:对象属性设置
1、温度转换
对象属性属性值说明
Form1 Caption Inputbox与msgbox应用窗体
Command1 Caption 温度转换命令按钮
2、三种除法运算(/ 、\、Mod)做计算
实验三选择程序设计
一.实验目的:
1、掌握单分支与双分支条件语句的使用。

2、掌握多分支条件语句(If … Then … ElseIf)的使用。

3、掌握Select Case语句的使用及与多分支条件语句的区别。

4、熟练掌握时间过程的编写方法。

二.实验内容:
1、设计一个模拟简易计算器的程序,界面如图3-1所示。

要求:①输入两个操作数与一个操作符,根据操
作符决定所进行的计算;②如果除数为0,用msgbox提示出错信息;③用if语句与selecet case语句两种结构实现。

2、通过单选按钮与复选框控制文字的显示,程序窗口如图3-2所示。

图3-1
图3-2
三.实验结果:对象属性设置
1、模拟简易计算器
对象属性属性值说明
Label1 Caption 输入数1 标签
Label2 Caption 运算器标签
Label3 Caption 输入数2 标签
Label4 Caption 结果标签
Command1 Caption Case结构命令按钮
Command2 Caption if结构命令按钮
Text1-text4 Text ““文本框
2、单选框与复选框
对象属性属性值说明
Frame1 Caption 字体框架
实验五数组程序设计
一.实验目的:
1.熟练掌握固定数组。

2.掌握动态数组。

3.掌握列表框与组合框。

4.了解直线控件与形状控件。

二.实验内容:
1.设计一个程序,找出数组中的最大值、最小值,并计算所有元素的平均值。

在列表框中随机产生10
个100到200之间的整数,在文本框中显示结果信息。

界面如图5-1所示。

图5-1 窗体界面
三.实验结果:对象属性设置
对象属性属性值说明
Label1 Caption 10个100到200之间的
整数
标签
Label2 Caption 最大值标签
Label3 Caption 最小值标签
Label4 Caption 平均值标签
Command1 Caption 计算命令按钮Text1—Text4 Text ““文本框
四.实验思考:
1.数组应在过程内还就是过程外定义,定义的语句就是什么？
过程外定义
Dim a(10) As Integer
2.在窗体载入时,在列表框中随机产生10个整数,则程序代码就是什么？
Private Sub Form_Load()
Dim i%
For i = 1 To 10
a(i) = Int(Rnd * 101 + 100)
List1、AddItem a(i)
Next i
End Sub
实验六过程程序设计
一.实验目的:
1.掌握子过程的定义与调用方法。

2.掌握函数过程的定义与调用方法。

3.理解作用域与生存期。

4、掌握滚动条。

二.实验内容:
1、写两个函数,分别求两个数的最大公约数与最小公倍数,编写子过程求最大公约数,函数过程求最小
公倍数。

要求从文本框中输入两个数。

界面如图6-1所示。

图6-1
2、设计一个用滚动条改变图片背景色的程序。

界面如图6-2所示
图6-2
三.实验结果:对象属性设置
1.结果要求单击命令按钮分别显示,设置对象的属性。

对象属性属性值说明
Label1 caption m 标签
Label2 caption n 标签
Label3 caption 最大公约数标签
Label4 caption 最小公倍数标签
Text1- Text4 text ”“文本框
Command1 caption 子过程命令按钮
Command2 caption 函数过程命令按钮
3、拖动滚动条的滑块,可改变图片控件的背景颜色,三个滚动条的程序代码相似,请写出HScroll1的事件
过程。

Dim r As Integer, g As Integer, b As Integer
Private Sub HScroll1_Change()
r = HScroll1、Value
g = HScroll2、Value
b = HScroll3、Value
Text1、BackColor = RGB(r, g, b)
End Sub
实验七界面设计
一.实验目的:
1.掌握多窗体程序设计的方法。

2.掌握下拉式菜单。

3.了解通用对话框。

二.实验内容:
1、编写密码登录系统。

在窗体1输入用户名与密码,如果密码正确就弹出第二个窗体,第二个窗体自
行设计操作内容;如果密码不正确,弹出信息框,显示”用户名或密码错误,请重新输入”,回到
窗体1继续输入用户名与密码。

密码输入有三次机会,超过三次就弹出第三个窗口,显示”对不起, 您不能使用该系统！”(注:凡就是文字提示内容可自行设计,不要求与题目一样。

三个窗体界面可参照图7-1 图7-2 图7-3所示。

)
图7-1
图7-2
图7-3
2、利用通用对话框设计一个简单的文本编辑器,具有打开、保存、字体、颜色功能。

要求用菜单实现,
有”文件”与”格式”两个菜单,”文件”菜单下包含”打开”、”保存”与”退出”三项。

”格式”
菜单下包含”字体”与”颜色”两项,打开文件显示在文本框中。

(窗体界面可参照图7-4 所示。

)
图7-4
三.实验结果:对象属性设置
1.设置三个窗体的控件及其属性。

对象控件名称属性属性值
Form1 Caption Form1
Form1
Form2 Caption Form2
Form2
Form3 Caption Form3
Form3
2.设置窗体控件及属性值。

对象控件名称属性属性值。