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

PAGE \* MERGEFORMAT10 实 验 报 告 一 课 程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() Text1.Text = 欢迎使用Visual Basic 6.0 Form1.Print 你好 End Sub Private Sub Command2_Click() Text1 = 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 变量名:; Tab(15); var1; Tab(30); var2; Tab(40); var3; Tab(50); var4 Print 变量值:; Tab(15); var1; Tab(30); var2; Tab(40); var3; Tab(50); var4 Print 变量类型:; Tab(15); TypeName(var1); Tab(30); TypeName(var2); Tab(40); TypeName(var3); Tab(50); TypeName(var4) Print Print 变量名:; Tab(15); var5; Tab(30); var6; Tab(40); var7; Tab(50); var8 Print 变量值:; Tab(15); var5; Tab(30); var6; Tab(40); var7; Tab(50); var8 Print 变量类型:; Tab(15); TypeName(var5); Tab(30); TypeName(var6); Tab(40); TypeName(var7); Tab(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） 通过该程序掌握计算类程序的结构、赋值语句的使用 程序界面