《Visualbasic程序实验报告》由会员分享，可在线阅读，更多相关《Visualbasic程序实验报告（16页珍藏版）》请在金锄头文库上搜索。
1、实验一、vb集成开发环境的使用班级：工商管理081班 学号： 姓名： 课程名计算机程序设计(VB)任课教师实验目的1 熟悉VB集成开发环境；2 理解属性、方法、事件的概念；3 掌握程序设计的基本步骤。实验内容1启动VB，创建一个应用程序，要求在屏幕上显示“欢迎您使用Visual Basic”和“输入您的姓名”，在文本框输入姓名。2窗体上设计三个命令按钮和一个文本框，三个命令按钮分别用于在窗体上显示一行文本、清除显示和退出应用程序。实验步骤1.1) 创建一个标准EXE工程2) 将form1的caption改为“欢迎您使用Visual Basic”3) 添加一个标签label14) 将其capti
2、on设为“输入您的姓名”5) 添加一个文本框text12.1) 创建一个标准EXE工程2) 添加三个命令按钮，将其caption属性分别改为显示，清除，退出3) 双击显示按钮，写入代码：print”Lets begin to study Visual Basic!”4) 双击清除按钮，写入代码：cls5) 双击退出按钮，写入代码：exit实验心得与小结了解了VB集成开发环境、基本掌握程序设计的步骤和基本理解了属性、方法、事件的概念。实验二、顺序程序设计班级：工商管理081班 学号：20089910129 姓名： 课程名：计算机程序设计(VB)任课教师实验目的1.掌握赋值语句的正确书写格式；2.
3、掌握常用函数的使用；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.Capt
4、ion = 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 Sub2.1)
5、创建二个命令按钮,名称为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 学号：20089910129 姓名：
6、 课程名：计算机程序设计(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 T
7、henLabel2.Caption = 你输入的是偶数ElseLabel2.Caption = 你输入的是奇数End IfEnd SubPrivate Sub Command3_Click()Text1.Text = Label2.Caption = End Sub2.1) 创建一个标签label1，label22) 创建三个文本框text1，text2,text33) 创建三个命令按钮command1源程序如下:Private Sub Command1_Click()Dim a%, b%, c%Dim d As Double, f As Doublea = Text1.Textb = Tex
8、t2.Textc = Text3.TextIf a + b c And a + c b And b + c a Thend = (a 2 + b 2 - c 2) / (2 * a * b)f = 1 / 2 * a * b * Sqr(1 - d 2)Label2.Caption = 能构成三角形，且面积为： + Str(f)ElseLabel2.Caption = 不能构成三角形End IfEnd Sub实验心得与小结基本掌握了逻辑表达式的正确书写形式，基本掌握了单分支与双分支条件语句的使用。对vb编程有了进一步的理解。实验四、选择结构程序设计班级：工商管理081班 学号：20089910
9、129 姓名： 课程名：计算机程序设计(VB)任课教师实验目的1. 掌握多分支条件语句的使用；2. 设计选择结构程序。实验内容1.分别用Elseif和Case语句设计程序，实现将百分制成绩转换为等级制成绩功能，并输出。2.编一模拟袖珍计算器程序。要求：随机产生两个操作数和一个操作符，输出计算的结果。实验步骤1.1) 创建一个标签label12) 创建三个文本框text1,text2.text33) 创建一个命令按钮command源程序如下:Private Sub Command1_Click()Dim a!, b!, c!a = Text1.Textb = Text2.Textc = Text
10、3.TextIf a = 0 And b = 0 ThenLabel1.Caption = X为任意数ElseIf a = 0 ThenLabel1.Caption = c / bElseIf b 2 - 4 * a * c = 90Label1.Caption = 优秀Case Is = 80Label1.Caption = 良好Case Is = 70Label1.Caption = 中等Case Is = 60Label1.Caption = 及格Case ElseLabel1.Caption = 不及格End SelectEnd Sub实验心得与小结大体掌握了多分支条件语句的使用；学会
11、了设计选择结构程序。感觉vb的程序编的越来越长了。实验五、循环结构程序设计班级：工商管理081班 学号：20089910129 姓名： 课程名：计算机程序设计(VB)任课教师实验目的1.掌握For语句的使用；2.掌握Do语句的使用；3.掌握如何控制循环条件，防止死循环或不循环。实验内容1.编写程序求出100以内能被5或7整除的自然数的和。2.我国现有人口13亿。设年增长率为1%，编写程序，计算多少年后增加到20亿。3.设计程序，求出s=1+(1+2)+(1+2+3)+(1+2+3+n)的值。实验步骤1.1）创建两个命令按钮command1，command22）程序如下： 被5整除的自然数的和的
12、情况：Private Sub Command1_Click()Dim i As Integer, n As Integer, s As IntegerFor i = 1 To 100If i Mod 5 = 0 Thenn = n + 1s = s + iEnd IfNext iPrint 1100自然数中能被5整除的数据的个数为： & nPrint 以及它们的和为： & sEnd Sub被7整除的自然数的和的情况：Private Sub Command1_Click()Dim i As Integer, n As Integer, s As IntegerFor i = 1 To 100If
13、 i Mod 7 = 0 Thenn = n + 1s = s + iEnd IfNext iPrint 1100自然数中能被7整除的数据的个数为： & nPrint 以及它们的和为： & sEnd Sub2.1) 创建一个命令按钮command1,将其caption属性改为“计算”2）源程序如下：Private Sub Command1_Click()Dim a!, b!Doa = a + 1b = 13 * (1 + 0.01) aLoop While b = 20Print aEnd Sub3.1) 创建一个文本框text12) 创建一个标签label13) 创建一个命令按钮command1源程序如下：Private Su
