vb实验一实验报告2016.docVIP

实 验 报 告 一 课 程 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 = 你好 Text1.Text = 欢迎使用visual basic End Sub Private Sub Command2_Click() Cls Text1.Text = 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 = Text1.Text b = Text2.Text c = Text3.Text Dim s As Single s = (a + b + c) / 2 Dim ss As Single ss = Sqr(s