VB实验一-实验报告-2016

实验报告一

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

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

成绩

专业班级土木工程1306班指导教师

姓名学号实验日期

实验目的

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

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

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

实验内容

一、VB环境和顺序结构

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

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

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

实验结果：

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

Private Sub Command1_Click()

Cls

Form1.Caption = "你好"

T ext1.T ext = "欢迎使用visual basic"

End Sub

Private Sub Command2_Click()

Cls

T ext1.T ext = ""

Form1.Caption = ""

End Sub

Private Sub Command3_Click()

End

End Sub

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

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

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

实验结果：

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

Private Sub Form_Click()

Dim var1 As String

var1 = "Hello Word"

Dim var2 As Integer

var2 = 1000

Dim var3 As Long

var3 = 300000

Dim var4 As Single

var4 = 1.005

Dim var5 As Double

var5 = 3.1415926

Dim var6 As Currency

var6 = 100.1234

Dim var7 As Boolean

var7 = True

Dim var8 As Date

var8 = #1/5/2015#

Form2.Print

Form2.Print "变量名:", "var1", "var2", "var3", "var4"

Form2.Print "变量值:", var1, var2, var3, var4

Form2.Print "变量类型:", "String", "Integer", "Long", "Single"

Form2.Print

Form2.Print "变量名:", "var5", "var6", "var7", "var8"

Form2.Print "变量值:", var5, var6, var7, var8

Form2.Print "变量类型:", "Double", "Currency", "Boolean", "Date"

End Sub

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

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

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

程序界面如下所示

实验结果：

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

Private Sub Command1_Click()

Dim a As Single

Dim b As Single

Dim c As Single

a = T ext1.T ext

b = T ext2.T ext

c = T ext3.T ext

Dim s As Single

s = (a + b + c) / 2

Dim ss As Single

ss = Sqr(s * (s - a) * (s - b) * (s - c))

T ext4.T ext = ss

End Sub

Private Sub Command2_Click()

End

End Sub

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

【实验4】编写如图2-10所示的一个求“倒序数”的程序。“倒序数”指的是：如产生的数为“1234”，那么与之对应的倒序数就是“4321”。点击“生成”按钮，分别在文本框一中随机生成一个2位整数，在文本框二中随机生成一个3位整数，在文本框三中随机生成一个4位整数。然后点击“求倒序数”按钮，分别在文本框四、文本框五、文本框六中输出其对应的倒序数。（20分）

通过该程序掌握常见函数的使用