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

第四章 数 组—计算器程序 控件数组 作用： 如果一组控件的功能和外观都很类似（属于同一类），则可以采用控件数组的方法来处理。 好处： 1. 控件数组可以共享代码，避免重复编写代码，同时提高程序的质量。 2. 把对数据的操作定义成数组是结构化 程序设计 的特点之一。 * 应用控件数组 * 按钮按照功能分成三类： 数字按钮（0~9，小数点.） 运算符按钮（+、-、*、/、%、1/x、sqrt、=、+/-） 其他按钮（退格、清零、退出） * 第一步：在窗体上创建所需要的控件： 数字按钮控件数组 num(0)~num(10) 运算符按钮控件数组 oper(0)~oper(7) 其他按钮 文本框 * 第二步：定义所需要的变量 记录两个运算数 Dim num1, num2 As Double 记录运算结果 Dim sum As Double 记录运算类型 Dim ope As Integer 区分运算数个数 Dim flag As Integer * 为变量赋初值 Private Sub Form_Load() num1 = 0 num2 = 0 sum = 0 flag=0 End Sub * 第三步：为数字按钮编写代码 当按下数字按钮时，文本框内要显示相应的数字，因此，考虑使用Select Case语句。 Private Sub num_Click(Index As Integer) Select Case Index Case 0 If Text1.Text = Then Text1.Text = 0 Else Text1.Text = Text1.Text + 0 End If Case 1 * 第四步：为运算符按钮编写代码 当按下运算符按钮后，表示第一个运算数已经输入 1）首先记录第一个运算数 2）然后记录运算符类型 * Private Sub oper_Click(index As Integer) If Text1.Text Then num1 = CDbl(Text1.Text) 记录第一个运算数 Text1.Text = 把文本框清空，为输入第二个运算数作准备 ope = index 记录运算符类型 If ope = 7 And ope = 4 Then flag = 1 ’单目运算，只有一个运算数 End If End If End Sub * 第五步：为等号按钮编写代码 当按下等号按钮后，表示第二个运算数已经输入， 首先记录第二个运算数 然后执行运算 * Private Sub Command1_Click() If flag = 1 Then Select Case ope Case 4 res = -num1 Case 5 res = Sqr(num1) Case 6 res = 1 / num1 End Select Text1.Text = Str(res) Exit Sub End If * If Text1.Text Then num2 = CDbl(Text1.Text) Select Case ope Case 0 res = num1 + num2 Case 1 res = num1 - num2 Case 2 res = num1 * num2 Case 3 res = num1 / num2 Case 7 res = num1 Mod num2 End Select Text1.Text = CStr(res) End If End Sub * 退出按钮： Private Sub Comm