实验一、vb集成开发环境的使用
班级：工商管理081班 学号： 姓名： 课程名 计算机程序设计(VB) 任课教师 实验目的 1． 熟悉VB集成开发环境； 2． 理解属性、方法、事件的概念； 3． 掌握程序设计的基本步骤。 1．启动VB，创建一个应用程序，要求在屏幕上显示“欢迎您使用Visual Basic”和“输入您的姓名”，在文本框输入姓名。 2．窗体上设计三个命令按钮和一个文本框，三个命令按钮分别用于在窗体上显示一行文本、清除显示和退出应用程序。 实验内容 实验步骤 1. 1) 创建一个标准EXE工程 2) 将form1的caption改为“欢迎您使用Visual Basic” 3) 添加一个标签label1 4) 将其caption设为“输入您的姓名” 5) 添加一个文本框text1 2. 1) 创建一个标准EXE工程 2) 添加三个命令按钮，将其caption属性分别改为显示，清除，退出 3) 双击显示按钮，写入代码：print”Let's begin to study Visual Basic!” 4) 双击清除按钮，写入代码：cls 5) 双击退出按钮，写入代码：exit 实验心得 与小结
了解了VB集成开发环境、基本掌握程序设计的步骤和基本理解了属性、方法、事件的概念。 实验二、顺序程序设计
班级：工商管理081班 学号：20089910129 姓名： 课程名： 计算机程序设计(VB) 任课教师 实验目的 1.掌握赋值语句的正确书写格式； 2.掌握常用函数的使用； 3.掌握InputBox和MsgBox的使用。 实验内容 1.输入半径，计算圆周长和面积。 2.利用计算机解决“鸡兔同笼问题”。 实验步骤 1. 1) 创建一个四个标签：label1, label2, label3, label4 2) 创建二个文本框：text1.text2 3) 创建三个命令按钮command1, command2,command3 源码如下： Private Sub Command1_Click() Dim X, Y As Single Dim C As String X = Text1.Text Y = Text2.Text C = (X + Y) * 2 Label1.Caption = \Label4.Caption = \矩形的周长为：\End Sub Private Sub Command2_Click() Dim X, Y As Single Dim S As String X = Text1.Text Y = Text2.Text S = X * Y Label1.Caption = \Label4.Caption = \矩形的面积为：\End Sub Private 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 Sub Private Sub c2_Click() Dim c! c = a + b label1.Caption = c End Sub 实验心得 与小结 基本掌握赋值语句的正确书写格式、常用函数的使用、InputBox和MsgBox的使用；感觉学习vb越来越有味了。 实验三、选择结构程序设计
班级：工商管理081 学号：20089910129 姓名： 课程名： 计算机程序设计(VB) 任课教师 实验目的 1.掌握逻辑表达式的正确书写形式； 2.掌握单分支与双分支条件语句的使用。 1.编写程序，输入任意一个自然数，判断该数的奇偶性。要求进行合法性检查。 2.从键盘输入三个数，判断能否构成三角形。如果能构成三角形，则计算三角形的面积。 实验内容 实验步骤 1. 1) 创建二个标签label1，label2 2) 创建一个文本框text1 3) 创建三个命令按钮command1,command2,command3 源程序如下： Private Sub Command1_Click() Dim a As Integer a = Text1.Text If a Mod 2 = 0 Then Label2.Caption = \你输入的是偶数\Else Label2.Caption = \你输入的是奇数\End If End Sub Private Sub Command3_Click() Text1.Text = \Label2.Caption = \End Sub 2. 1) 创建一个标签label1，label2 实验心得 与小结
2) 创建三个文本框text1，text2,text3 3) 创建三个命令按钮command1 源程序如下: Private Sub Command1_Click() Dim a%, b%, c% Dim d As Double, f As Double a = Text1.Text b = Text2.Text c = Text3.Text If a + b > c And a + c > b And b + c > a Then d = (a ^ 2 + b ^ 2 - c ^ 2) / (2 * a * b) f = 1 / 2 * a * b * Sqr(1 - d ^ 2) Label2.Caption = \能构成三角形，且面积为：\Else Label2.Caption = \不能构成三角形\End If End Sub 基本掌握了逻辑表达式的正确书写形式，基本掌握了单分支与双分支条件语句的使用。对vb编程有了进一步的理解。 实验四、选择结构程序设计
班级：工商管理081班 学号：20089910129 姓名： 课程名： 计算机程序设计(VB) 任课教师 实验目的 1. 掌握多分支条件语句的使用； 2. 设计选择结构程序。 1.分别用Elseif和Case语句设计程序，实现将百分制成绩转换为等级制成绩功能，并输出。 2.编一模拟袖珍计算器程序。要求：随机产生两个操作数和一个操作符，输出计算的结果。 实验内容 实验步骤 1. 1) 创建一个标签label1 2) 创建三个文本框text1,text2.text3 3) 创建一个命令按钮command 源程序如下: Private Sub Command1_Click() Dim a!, b!, c! a = Text1.Text b = Text2.Text c = Text3.Text If a = 0 And b = 0 Then Label1.Caption = \为任意数\ElseIf a = 0 Then Label1.Caption = c / b ElseIf b ^ 2 - 4 * a * c < 0 Then Label1.Caption = \无解\Else Label1.Caption = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) & \(-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) End If End Sub 2. 1) 创建一个文本框text1 2) 创建一个标签label1 3) 创建一个命令按钮command1 源程序如下： Private Sub Command1_Click() Dim a! a = Val(Text1.Text) Select Case a Case Is >= 90 Label1.Caption = \优秀\Case Is >= 80 Label1.Caption = \良好\Case Is >= 70 Label1.Caption = \中等\Case Is >= 60 Label1.Caption = \及格\Case Else Label1.Caption = \不及格\End Select End Sub 大体掌握了多分支条件语句的使用；学会了设计选择结构程序。感觉vb的程序编的越来越长了。 实验心得 与小结
Visual basic程序实验报告
