VB实验报告(含答案)

.

.

实 验 报 告

课程名称_程序设计基础Visual Basic_

班 级______ _____＿

姓 名_____ ____ .

. 实验一 VB环境和创建一个简单的VB程序

一．实验目的：

1.了解VB系统对计算机软件、硬件的要求。

2.掌握启动和退出VB的方法。

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

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

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

二．实验内容：

1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。

图1.1 实验1-1 运行界面

三．实验结果：对象属性设置

对象 属性 属性值 说明

Form1 caption 我的第一个vb程序 窗体

Label1 caption 请输入姓名 标签

Text1 text ““ 文本框

Command1 caption 显示 命令按钮

Command2 caption 清除 命令按钮

四．实验思考：

1.标签label控件设置的属性代码有哪些？

Label1.Caption=“ 请输入姓名”

Label1.fontsize=24

Label1.fontbold=True

2.两个按钮所使用的是什么事件？代码分别是什么？

Private Sub Command1_Click()

Text1.text=“姓名” .

. End Sub

Private Sub Command2_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）做计算

对象 属性 属性值 说明

Label1 Caption 被除数 标签

Label2 Caption 除数 标签

Label3 Caption 浮点数 标签

Label4 Caption 整除数 标签

Label5 Caption 余数除 标签

Command1 Caption 执行除法运算 命令按钮

四．实验思考：

1.温度转换中的Command1命令的单击事件的程序代码是什么？

Private Sub Command1_Click()

Dim C!,F!

F=val(inputbox(“输入华氏温度”))

C=5/9*（F-32）

Msgbox “对应的摄氏温度为：” & C

End Sub

2. 用三种除法运算（/ 、\、Mod）做计算，说明三种除法的区别？

/：两个数相除

\：两个数整除

Mod：两个数相除，得余数

3. 三种除法运算（/ 、\、Mod）做计算，Command1命令的单击事件的程序代码是什么？

Private Sub Command1_Click()

Dim a!,b!

a=val(text1.text)

b= val(text2.text)

text3.text=a/b

text4.text=a\b

text5.text=a mod b

End Sub .

. 实验三 选择程序设计

一．实验目的：

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 字体 框架

Frame2 Caption 字号 框架

Frame3 Caption 字型 框架

Label1 Caption 奥林匹克运动会 标签

Option1 Caption 宋体 单选按钮

Option2 Caption 仿宋 单选按钮

Option3 Caption 黑体 单选按钮

Option4 Caption 楷体 单选按钮

Option5 Caption 大 单选按钮

Option6 Caption 中 单选按钮

Option7 Caption 小 单选按钮

Check1 Caption 加粗 复选框

Check2 Caption 倾斜 复选框

Check3 Caption 下划线 复选框

Check4 Caption 删除线 复选框

四．实验思考：

1. 模拟简易计算器Command1命令的单击事件的程序代码是什么？

Private Sub Command1_Click()

Dim a!, b!

Dim c As String

a = Val(Text1.Text)

b = Val(Text3.Text)

c = Text2.Text

Select Case c

Case “+”

Text4.Text = a + b

Case “-”

Text4.Text = a - b

Case “*”

Text4.Text = a * b

Case “/”

If b = 0 Then

MsgBox “除数为0.” .

. Else

Text4.Text = a / b

End If

End Select

End Sub

2. 模拟简易计算器Command2命令的单击事件的程序代码是什么？

Private Sub Command1_Click()

Dim a!, b!

Dim c As String

a = Val(Text1.Text)

b = Val(Text3.Text)

c = Text2.Text

If c = “+” Then

Text4.Text = a + b

ElseIf c = “-” Then

Text4.Text = a - b

ElseIf c = “*” Then

Text4.Text = a * b

ElseIf c = “/” Then

If b = 0 Then

MsgBox “除数为0”

else

Text4.Text = a / b

End If

End If

End Sub

3. 通过单选按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么

Private Sub Command1_Click()

If Option1.Value = True Then

Label1.FontName = “宋体”

ElseIf Option2.Value = True Then

Label1.FontName = “华文仿宋”

ElseIf Option3.Value = True Then

Label1.FontName = “黑体”

Else

Label1.FontName = “楷体_GB2312”

End If

If Option5.Value = True Then

Label1.FontSize = 24

ElseIf Option6.Value = True Then

Label1.FontSize = 16

Else