VB第五章过程数组_计算器程序.ppt

第四章 数组 计算器程序 控件数组 作用 如果一组控件的功能和外观都很类似 属于同一类 则可以采用控件数组的方法来处理 好处 1 控件数组可以共享代码 避免重复编写代码 同时提高程序的质量 2 把对数据的操作定义成数组是结构化程序设计的特点之一 应用控件数组 按钮按照功能分成三类 数字按钮 0 9 小数点 运算符按钮 1 x sqrt 其他按钮 退格 清零 退出 第一步 在窗体上创建所需要的控件 数字按钮控件数组num 0 num 10 运算符按钮控件数组oper 0 oper 7 其他按钮文本框 第二步 定义所需要的变量 记录两个运算数Dimnum1 num2AsDouble 记录运算结果DimsumAsDouble 记录运算类型DimopeAsInteger 区分运算数个数DimflagAsInteger 为变量赋初值 PrivateSubForm Load num1 0num2 0sum 0flag 0EndSub 第三步 为数字按钮编写代码 当按下数字按钮时 文本框内要显示相应的数字 因此 考虑使用SelectCase语句 PrivateSubnum Click IndexAsInteger SelectCaseIndexCase0IfText1 Text ThenText1 Text 0 ElseText1 Text Text1 Text 0 EndIfCase1 第四步 为运算符按钮编写代码 当按下运算符按钮后 表示第一个运算数已经输入1 首先记录第一个运算数2 然后记录运算符类型 PrivateSuboper Click indexAsInteger IfText1 Text Thennum1 CDbl Text1 Text 记录第一个运算数Text1 Text 把文本框清空 为输入第二个运算数作准备ope index 记录运算符类型Ifope 4Thenflag 1 单目运算 只有一个运算数EndIfEndIfEndSub 第五步 为等号按钮编写代码 当按下等号按钮后 表示第二个运算数已经输入 首先记录第二个运算数然后执行运算 PrivateSubCommand1 Click Ifflag 1ThenSelectCaseopeCase4res num1Case5res Sqr num1 Case6res 1 num1EndSelectText1 Text Str res ExitSubEndIf IfText1 Text Thennum2 CDbl Text1 Text SelectCaseopeCase0res num1 num2Case1res num1 num2Case2res num1 num2Case3res num1 num2Case7res num1Modnum2EndSelectText1 Text CStr res EndIfEndSub 退出按钮 PrivateSubCommand4 Click UnloadMeEndSub 第六步 为其他按钮编写代码 清零按钮 PrivateSubCommand3 Click Text1 Text EndSub 退格按钮 PrivateSubCommand2 Click IfText1 Text ThenText1 Text Left Text1 Text Len Text1 Text 1 EndIfEndS