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=“姓名”
实验二简单程序设计数据类型及常用内部函数的简单应用
一．实验目的：
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应用窗体
实验三选择程序设计
一．实验目的：
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结构命令按钮
实验五数组程序设计
一．实验目的：
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
实验六过程程序设计
一．实验目的：
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 函数过程命令按钮
End Function
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
Form1 Caption Form1 Form2
Form2 Caption Form2 Form3
Form3 Caption Form3
2．设置窗体控件及属性值。

对象控件名称属性属性值
窗体Form1 Caption Form1
文本框1 Text1 Text Text1
打开Open
Caption
打开
保存Save
Caption
保存
退出Exit
Caption
退出
字体Font
Caption
字体
颜色Color
Caption
颜色
四．实验思考：
1．下列程序为实验内容1的部分程序代码，单击确定命令按钮的程序代码是什么？
Private Sub Form_Load()
Text2.PasswordChar = “*”
Text2.Text = ““
Text1.Text = ““。