vb综合性设计实验报告.doc

综 合 性 实 验 实 验 名 称: 用vb编写简单计算器 专 业 班 级: 土 木 工 程 0901班 学 生 姓 名： *** 学 号： ********* 指 导 教 师： *** 1 需求分析 该计算器程序是在Visual Basic6.0环境下编写，编写完成后在Windows xp下运行，通过初步测试，发现该计算程序能完成整数的加，减，乘，除四种运算。通过在虚拟键盘上用鼠标点击输入第一个数，然后点击运算符，再输入第二个数，最后点击“=”就会在计算器上方的文本框中输出结果，清空文本框进行下次运算。经过仔细测试发现，该计算器最高支持五位整数的运算，在除法运算中能精确到小数点后14位。 2 运行环境 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与事件过程 窗口：用来承载控件，包括按钮控件、文本框控件、标签控件。 控件：按钮控件用来输入数据与运算符号，文本框控件用来显示输入的数值以及最