实验一 顺序结构程序设计(4学时)

实验报告一

课程VB程序设计实验项目Visual Basic环境

顺序选择程序设计(4学时)

成绩

专业班级会计三班指导教师李缙

姓名谢玉洁学号201531100163 实验日期2016年3月18日

实验目的

（1）熟悉Visual Basic6.0集成开发环境

（2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握常用函数的使用方法

（4）掌握常用输入、输出语句

实验内容

一、VB环境和顺序结构

【实验1】设计一个简单VB程序（20分）（实验教材P5）

它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。

通过该程序熟悉VB的界面，了解VB的工作原理：事件驱动

实验结果：

【请将你的代码粘贴到下面】

Private Sub Command1_Click()

T ext1.T ext = "欢迎使用Visual Basic 6.0"

Form1.Print "你好"

End Sub

Private Sub Command2_Click()

T ext1 = " "

Form1.Cls

End Sub

Private Sub Command3_Click()

End

End Sub

【请将你的典型结果的截图粘贴到下面】

【实验2】分别定义八个变量，变量名为：var1、var2、var3、var4、var5、var6、var7、

var8，变量的数据类型依次定义为：字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。（20分）（P15）

通过该程序掌握变量的定义、变量名与变量值的含义。

实验结果：

【请将你的代码粘贴到下面】

Option Explicit

Private Sub Form_Click()

Dim var1 As String

Dim var2 As Integer

Dim var3 As Long

Dim var4 As Single

Dim var5 As Double

Dim var6 As Currency

Dim var7 As Boolean

Dim var8 As Date

var1 = "Hello World!": var2 = 1000

var3 = 30000: var4 = 1.005

var5 = 3.1415926: var6 = 100.1234

var7 = True: var8 = #5/1/2015#

Print

Print "变量名:"; T ab(15); "var1"; T ab(30); "var2"; T ab(40); "var3"; T ab(50); "var4"

Print "变量值:"; T ab(15); var1; T ab(30); var2; T ab(40); var3; T ab(50); var4

Print "变量类型:"; T ab(15); TypeName(var1); T ab(30); TypeName(var2); T ab(40); TypeName(var3); T ab(50); TypeName(var4)

Print

Print "变量名:"; T ab(15); "var5"; T ab(30); "var6"; T ab(40); "var7"; T ab(50); "var8" Print "变量值:"; T ab(15); var5; T ab(30); var6; T ab(40); var7; T ab(50); var8

Print "变量类型:"; T ab(15); TypeName(var5); T ab(30); TypeName(var6); T ab(40); TypeName(var7); T ab(50); TypeName(var8)

End Sub

Private Sub Form_Load()

Form1.Caption = "变量的定义和赋值"

Form1.FontSize = 13

End Sub

【请将你的典型结果的截图粘贴到下面】

【实验3】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分）（P29）

通过该程序掌握计算类程序的结构、赋值语句的使用

程序界面如下所示

实验结果：

【请将你的代码粘贴到下面】

Option Explicit

Private Sub Command1_Click()

Dim a As Double, b As Double, c As Double

Dim s As Double, area As Double, r As Integer

a = Val(InputBox("请输入三角形边长a的值", "计算三角形面积程序"))

T ext1.T ext = Str(a)

b = Val(InputBox("请输入三角形边长b的值", "计算三角形面积程序"))

T ext2.T ext = Str(b)

c = Val(InputBox("请输入三角形边长c的值", "计算三角形面积程序"))

T ext3.T ext = Str(c)