Visual basic程序实验报告.docVIP

实验一、vb集成开发环境的使用 班级：工商管理081班 学号： 姓名： 课程名 计算机程序设计(VB) 任课教师 实验目的 熟悉VB集成开发环境； 理解属性、方法、事件的概念； 掌握程序设计的基本步骤。 实验内容 1．启动VB，创建一个应用程序，要求在屏幕上显示“欢迎您使用Visual Basic”和“输入您的姓名”，在文本框输入姓名。 2．窗体上设计三个命令按钮和一个文本框，三个命令按钮分别用于在窗体上显示一行文本、清除显示和退出应用程序。 实验步骤 1. 1) 创建一个标准EXE工程2) 将form1的caption改为“欢迎您使用Visual Basic”3) 添加一个标签label14) 将其caption设为“输入您的姓名”5) 添加一个文本框text12.1) 创建一个标准EXE工程2) 添加三个命令按钮，将其caption属性分别改为显示，清除，退出3) 双击显示按钮，写入代码：print”Lets begin to study Visual Basic!”4) 双击清除按钮，写入代码：cls5) 双击退出按钮，写入代码：exit 实验心得 与小结 了解了VB集成开发环境、基本掌握程序设计的步骤和基本理解了属性、方法、事件的概念。 实验二、顺序程序设计 班级：工商管理081班 学号： 姓名： 课程名： 计算机程序设计(VB) 任课教师 实验目的 1.掌握赋值语句的正确书写格式； 2.掌握常用函数的使用； 3.掌握InputBox和MsgBox的使用。 实验内容 1.输入半径，计算圆周长和面积。 2.利用计算机解决“鸡兔同笼问题”。 实验步骤 1. 1) 创建一个四个标签：label1, label2, label3, label42) 创建二个文本框：text1.text23) 创建三个命令按钮command1, command2,command3 源码如下：Private Sub Command1_Click()Dim X, Y As SingleDim C As StringX = Text1.TextY = Text2.TextC = (X + Y) * 2Label1.Caption = Label4.Caption = 矩形的周长为： + CEnd SubPrivate Sub Command2_Click()Dim X, Y As SingleDim S As StringX = Text1.TextY = Text2.TextS = X * YLabel1.Caption = Label4.Caption = 矩形的面积为： + SEnd SubPrivate Sub Command3_Click()Text1.Text = Text2.Text = Label4.Caption = Label1.Caption = 请输入矩形的长和宽End Sub 2. 1) 创建二个命令按钮,名称为c1,c2，其属性分别为“输入”，“计算”2) 创建一个标签label1源程序如下：Dim a!, b!Private Sub c1_Click()a = InputBox(请输入一个数)b = InputBox(请再输入一个数)End SubPrivate Sub c2_Click()Dim c!c = a + blabel1.Caption = cEnd Sub 实验心得 与小结 基本掌握赋值语句的正确书写格式、常用函数的使用、InputBox和MsgBox的使用；感觉学习vb越来越有味了。 实验三、选择结构程序设计 班级：工商管理081 学号： 姓名： 课程名： 计算机程序设计(VB) 任课教师 实验目的 1.掌握逻辑表达式的正确书写形式； 2.掌握单分支与双分支条件语句的使用。 实验内容 1.编写程序，输入任意一个自然数，判断该数的奇偶性。要求进行合法性检查。 2.从键盘输入三个数，判断能否构成三角形。如果能构成三角形，则计算三角形的面积。 实验步骤 1. 1) 创建二个标签label1，label22) 创建一个文本框text13) 创建三个命令按钮command1,command2,command3源程序如下：Private Sub Command1_Click()Dim a As Integera = Text1.TextIf a Mod 2 = 0 Th