vb综合性设计实验报告_vb设计实验报告
vb综合性设计实验报告由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb设计实验报告”。
综 合 性 实 验
实 验 名 称: 用vb编写简单计算器 专 业 班 级: 土 木 工 程 0901班 学 生 姓 名： *** 学 号： ********* 指 导 教 师： *** 需求分析
该计算器程序是在Visual Basic6.0环境下编写，编写完成后在Windows xp下运行，通过初步测试，发现该计算程序能完成整数的加，减，乘，除四种运算。通过在虚拟键盘上用鼠标点击输入第一个数，然后点击运算符，再输入第二个数，最后点击“=”就会在计算器上方的文本框中输出结果，清空文本框进行下次运算。经过仔细测试发现，该计算器最高支持五位整数的运算，在除法运算中能精确到小数点后14位。运行环境
WINDOWS XP系统；VB6.0；
3开发工具和编程语言
开发工具：Visual Basic6.0 “微型整值计算器”程序编写代码：
Dim op1 As Integer Dim op2 As Integer Dim operator As String
Private Sub Command1_Click()
Text1.Text = Text1.Text & “1” End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text & “2” End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & “3” End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text & “4” End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text & “5” End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text & “6” End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & “7” End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & “8” End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & “9” End Sub
Private Sub Command11_Click()Text1.Text = Text1.Text & “0” End Sub
Private Sub Command10_Click()op1 = Val(Text1.Text)operator = “+” Text1.Text = “” End Sub
Private Sub Command12_Click()op1 = Val(Text1.Text)operator = “-” Text1.Text = “” End Sub
Private Sub Command13_Click()op1 = Val(Text1.Text)operator = “*” Text1.Text = “” End Sub
Private Sub Command14_Click()op1 = Val(Text1.Text)operator = “/” Text1.Text = “” End Sub
Private Sub Command15_Click()op2 = Val(Text1.Text)If operator = “+” Then Text1.Text = op1 + op2 ElseIf operator = “-” Then Text1.Text = op1-op2 ElseIf operator = “*” Then Text1.Text = op1 * op2 ElseIf operator = “/” Then Text1.Text = op1 / op2 End If End Sub 4 系统设计
（1）程序的组织结构（包括窗体、模块及其功能）。
窗体模块：用来包含sub与事件过程 窗口：用来承载控件，包括按钮控件、文本框控件、标签控件。
控件：按钮控件用来输入数据与运算符号，文本框控件用来显示输入的数值以及最后的运算结果，标签控件显示标签既该程序的自定义名称。
Sub过程：通过代码的编写使窗口上的控件能在程序运行时有特殊的作用，使命令按钮能产生相应的数值，运算按钮产生相应的运算过程，及文本框中显示相应结果。
（2）每个窗体（模块）详细描述设计思路。
I.首先打开新建工程，创建一个forml窗口，并在窗口中放入控件。分别放入一个标签控件，一个文本框控件和15个按钮控件，调整各控件的大小和位置，使其布局如下图示。
II.调 整 各 控 件 的 属 性 值。单击标签控件，将其caption属性 设置为“微型整
值计 算器”并将fount属性 设 置 为 粗 体，小四。将文本框清空，然后依次设置command1~command15的caption属性分别为数字“1~10”和运算符“+”“-”“*”“/”以及“=”。
III.编写控件触发事件过程代码。先声明三个变量：两个整值和一个字符串。然后编写command1~command10的click事件使用赋值语句，在文本框中显示相应数值。再编写command11~command14的click事件，使用赋值语句赋予相应运算符，并将文本框中字符串转换为数值型赋值给第一个变量，清空文本框。编写command15的click事件代码，将第二次输入的字符串转换为数值型赋给第二个变量，并用块结构条件语句分别编写四种运算过程。IV.完成后进行调试，修改，运行，测试。系统运行及测试
（1）几组测试数据以及相应的测试结果：
运算10/3的结果 运算14*3的结果 运算78+20的结果（2）运行界面：
参考文献
[1] 郭晓君、谢日行，visual basic程序设计教程，黄河水利出版社
[2] 龚沛曾、杨志强、陆慰民，visual basic程序设计实验指导与测试，高等教育出版社 7心得体会
在这次实验中，在vb环境下制作了一个标准exe工程，虽然结果比较令人满意，但是在制作过程中遇到了不少困难。在其中深深体会到了了解和掌握一门计算机语言并不容易，要真正学好它必须要付出足够的努力。我在这次实验中就查阅了相关资料，并通过与他人的相互交流学习，这样既有利于相互的学习与提高，又能养成良好的学习习惯。此外，此次实验的成功完成，对我自己也是极大的鼓舞，鼓舞我今后更加努力的去学好这门课程。这个计算器的制作使我领会到了vb的实用性与强大的功能，所以我以后一定会以更加努力认真的态度来学习vb课程，为以后的应用与实践打下坚实的基础。
