《数组_计算器程序》由会员分享，可在线阅读，更多相关《数组_计算器程序（15页珍藏版）》请在金锄头文库上搜索。
1、第四章,数 组计算器程序,控件数组,作用：如果一组控件的功能和外观都很类似（属于同一类），则可以采用控件数组的方法来处理。,好处： 1. 控件数组可以共享代码，避免重复编写代码，同时提高程序的质量。 2. 把对数据的操作定义成数组是结构化 程序设计 的特点之一。,应用控件数组,按钮按照功能分成三类：数字按钮（09，小数点.）运算符按钮（+、-、*、/、%、1/x、sqrt、=、+/-）其他按钮（退格、清零、退出）,第一步：在窗体上创建所需要的控件：,数字按钮控件数组 num(0)num(10)运算符按钮控件数组 oper(0)oper(7)其他按钮文本框,第二步：定义所需要的变量,记录两个运算
2、数 Dim num1, num2 As Double 记录运算结果 Dim sum As Double 记录运算类型 Dim ope As Integer 区分运算数个数 Dim flag As Integer,为变量赋初值,Private Sub Form_Load()num1 = 0num2 = 0sum = 0flag=0 End Sub,第三步：为数字按钮编写代码,当按下数字按钮时，文本框内要显示相应的数字，因此，考虑使用Select Case语句。,Private Sub num_Click(Index As Integer)Select Case IndexCase 0If Tex
3、t1.Text = “ ThenText1.Text = “0“ElseText1.Text = Text1.Text + “0“End IfCase 1,第四步：为运算符按钮编写代码,当按下运算符按钮后，表示第一个运算数已经输入 1）首先记录第一个运算数 2）然后记录运算符类型,Private Sub oper_Click(index As Integer)If Text1.Text “ Thennum1 = CDbl(Text1.Text) 记录第一个运算数Text1.Text = “ 把文本框清空，为输入第二个运算数作准备ope = index 记录运算符类型If ope = 4 The
4、nflag = 1 单目运算，只有一个运算数End IfEnd If End Sub,第五步：为等号按钮编写代码,当按下等号按钮后，表示第二个运算数已经输入， 首先记录第二个运算数 然后执行运算,Private Sub Command1_Click()If flag = 1 ThenSelect Case opeCase 4res = -num1Case 5res = Sqr(num1)Case 6res = 1 / num1End SelectText1.Text = Str(res)Exit SubEnd If,If Text1.Text “ Thennum2 = CDbl(Text1.T
5、ext)Select Case opeCase 0res = num1 + num2Case 1res = num1 - num2Case 2res = num1 * num2Case 3res = num1 / num2Case 7res = num1 Mod num2End SelectText1.Text = CStr(res)End If End Sub,退出按钮： Private Sub Command4_Click()Unload Me End Sub,第六步：为其他按钮编写代码,清零按钮： Private Sub Command3_Click()Text1.Text = “ End Sub,退格按钮： Private Sub Command2_Click()If Text1.Text “ ThenText1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End If End Sub,第七步：完善,在实际使用时还会有很多具体问题要解决： 1）除数为0时怎样处理； 2）双运算数只输入了一个运算数时； 3）输入的数据大于所允许的范围时,
