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

vb综合性设计实验报告

第一篇：vb综合性设计实验报告综合性实验实验名称:用vb编写简单计算器专业班级:土木工程0901班学生姓名：***学号：*********指导教师：***需求分析该计算器程序是在VisualBasic6.0环境下编写，编写完成后在Windowsxp下运行，通过初步测试，发现该计算程序能完成整数的加，减，乘，除四种运算。通过在虚拟键盘上用鼠标点击输入第一个数，然后点击运算符，再输入第二个数，最后点击“=”就会在计算器上方的文本框中输出结果，清空文本框进行下次运算。经过仔细测试发现，该计算器最高支持五位整数的运算，在除法运算中能精确到小数点后14位。运行环境WINDOWSXP系统；VB6.0；3开发工具和编程语言开发工具：VisualBasic6.0“微型整值计算器”程序编写代码：Dimop1AsIntegerDimop2AsIntegerDimoperatorAsStringPrivateSubCommand1_Click()Text1.Text=Text1.Text&“1”EndSubPrivateSubCommand2_Click()Text1.Text=Text1.Text&“2”EndSubPrivateSubCommand3_Click()Text1.Text=Text1.Text&“3”EndSubPrivateSubCommand4_Click()Text1.Text=Text1.Text&“4”EndSubPrivateSubCommand5_Click()Text1.Text=Text1.Text&“5”EndSubPrivateSubCommand6_Click()Text1.Text=Text1.Text&“6”EndSubPrivateSubCommand7_Click()Text1.Text=Text1.Text&“7”EndSubPrivateSubCommand8_Click()Text1.Text=Text1.Text&“8”EndSubPrivateSubCommand9_Click()Text1.Text=Text1.Text&“9”EndSubPrivateSubCommand11_Click()Text1.Text=Text1.Text&“0”EndSubPrivateSubCommand10_Click()op1=Val(Text1.Text)operator=“+”Text1.Text=“"EndSubPrivateSubCommand12_Click()op1=Val(Text1.Text)operator=”-“Text1.Text=”“EndSubPrivateSubCommand13_Click()op1=Val(Text1.Text)operator=”*“Text1.Text=”“EndSubPrivateSubCommand14_Click()op1=Val(Text1.Text)operator=”/“Text1.Text=”“EndSubPrivateSubCommand15_Click()op2=Val(Text1.Text)Ifoperator=”+“ThenText1.Text=op1+op2ElseIfoperator=”-“ThenText1.Text=op1-op2ElseIfoperator=”*“ThenText1.Text=op1*op2ElseIfoperator=”/"ThenText1.Text=op1/op2EndIfEndSub4系统设计（1）程序的组织结构（包括窗体、模块及其功能）。窗体模块：用来包含sub与事件过程窗口：用来承载控件，包括按钮控件、文本框控件、标签控件。控件：按钮控件用来输入数据与运算符号，文本框控件用来显示输入的数值以及最后的运算结果，标签控件显示标签既该程序的自定义名称。Sub过程：通过代码的编写使窗口上的控件能在程序运行时有特殊的作用，使命令按钮能产生相应的数值，运算按钮产生相应的运算过程，及文本框中显示相应结果。（2）每个窗体（模块）详细描述设计思路。I.首先打开新建工程，创建一个forml窗口，并在窗口中放入控件。分别放入一个标签控件，一个文本框控件和15个按钮控件，调整各控件的大小和位置，使其布局如下图示。II.调整各控件的属性值。单击标签控件，将其caption属性设置为“微型整值计算器”并将fount属性设置为粗体，小四。将文本框清空，然后依次设置command1~command15的caption属性分别为数字“1~10”和运算符“+”“-”“*”“/”以及“=”。III.编写控件触发事件过程代码。先声明三个变量：两个整值和一个字符串。然后编写command1~command1