vb综合性设计实验报告

1、综 合 性 实 验实 验 名 称: 用vb编写简单计算器 专 业 班 级: 土 木 工 程 0901班学 生 姓 名： *学 号： *指 导 教 师： *1 需求分析该计算器程序是在Visual Basic6.0环境下编写，编写完成后在Windows xp下运行，通过初步测试，发现该计算程序能完成整数的加，减，乘，除四种运算。通过在虚拟键盘上用鼠标点击输入第一个数，然后点击运算符，再输入第二个数，最后点击“=”就会在计算器上方的文本框中输出结果，清空文本框进行下次运算。经过仔细测试发现，该计算器最高支持五位整数的运算，在除法运算中能精确到小数点后14位。2 运行环境WINDOWS XP系统；V

2、B6.0；3开发工具和编程语言开发工具：Visual Basic6.0“微型整值计算器”程序编写代码：Dim op1 As IntegerDim op2 As IntegerDim operator As StringPrivate Sub Command1_Click() Text1.Text = Text1.Text & 1End SubPrivate Sub Command2_Click() Text1.Text = Text1.Text & 2End SubPrivate Sub Command3_Click() Text1.Text = Text1.Text & 3End SubPr

3、ivate Sub Command4_Click() Text1.Text = Text1.Text & 4End SubPrivate Sub Command5_Click() Text1.Text = Text1.Text & 5End SubPrivate Sub Command6_Click() Text1.Text = Text1.Text & 6End SubPrivate Sub Command7_Click() Text1.Text = Text1.Text & 7End SubPrivate Sub Command8_Click() Text1.Text = Text1.Te

4、xt & 8End SubPrivate Sub Command9_Click() Text1.Text = Text1.Text & 9End SubPrivate Sub Command11_Click() Text1.Text = Text1.Text & 0End SubPrivate Sub Command10_Click() op1 = Val(Text1.Text) operator = + Text1.Text = End SubPrivate Sub Command12_Click() op1 = Val(Text1.Text) operator = - Text1.Text

5、 = End SubPrivate Sub Command13_Click() op1 = Val(Text1.Text) operator = * Text1.Text = End SubPrivate Sub Command14_Click() op1 = Val(Text1.Text) operator = / Text1.Text = End SubPrivate Sub Command15_Click() op2 = Val(Text1.Text) If operator = + Then Text1.Text = op1 + op2 ElseIf operator = - Then

6、 Text1.Text = op1 - op2 ElseIf operator = * Then Text1.Text = op1 * op2 ElseIf operator = / Then Text1.Text = op1 / op2 End IfEnd Sub4 系统设计（1）程序的组织结构（包括窗体、模块及其功能）。窗体模块：用来包含sub与事件过程窗口：用来承载控件，包括按钮控件、文本框控件、标签控件。 控件：按钮控件用来输入数据与运算符号，文本框控件用来显示输入的数值以及最后的运算结果，标签控件显示标签既该程序的自定义名称。 Sub过程：通过代码的编写使窗口上的控件能在程序运行时有

7、特殊的作用，使命令按钮能产生相应的数值，运算按钮产生相应的运算过程，及文本框中显示相应结果。（2）每个窗体（模块）详细描述设计思路。I. 首先打开新建工程，创建一个forml窗口，并在窗口中放入控件。分别放入一个标签控件，一个文本框控件和15个按钮控件，调整各控件的大小和位置，使其布局如下图示。II. 调 整 各 控 件 的 属 性 值。 单击标签控件，将其caption属性 设置为“微型整 值计 算器”并将fount属性 设 置 为 粗 体，小四。将文本框清空，然后依次设置command1command15的caption属性分别为数字“110”和运算符“+”“-”“*”“/”以及“=”。I

8、II. 编写控件触发事件过程代码。先声明三个变量：两个整值和一个字符串。然后编写command1command10的click事件使用赋值语句，在文本框中显示相应数值。再编写command11command14的click事件，使用赋值语句赋予相应运算符，并将文本框中字符串转换为数值型赋值给第一个变量，清空文本框。编写command15的click事件代码，将第二次输入的字符串转换为数值型赋给第二个变量，并用块结构条件语句分别编写四种运算过程。IV. 完成后进行调试，修改，运行，测试。5 系统运行及测试（1） 几组测试数据以及相应的测试结果： 运算10/3的结果 运算14*3的结果 运算78+20的结果（2） 运行界面：6 参考文献1 郭晓君、谢日行，visual basic程序设计教程，黄河水利出版社2 龚沛曾、杨志强、陆慰民，visual basic程序设计实验指导与测试，高等教育出版社7心得体会在这次实验中，在vb环境下制作了一个标准exe工程，虽然结果比较令人满意，但是在制作过程中遇到了不少困难。在其中深深体会到了了解和掌握一门计算机语言并不容易，要真正学好它必须要付出足够的努力。我在这次实验中就查阅了相关资料，并通过与他人的相互交流学习，这样