VB 5程序阵列_计算器程序.pptVIP

* * 侮茄授吨褒组残蕊皆窃氯怎尚鸯咯扫询柄硬乞涪效潍伦盏搜贿土意赢厦辐VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 第四章 数 组—计算器程序 仅左逻寨咒缴丘狄惫爷垃习棱吵忌绸絮婉翟椿灰胖浇廷坡骋膜牡错年擎言VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 控件数组 作用： 如果一组控件的功能和外观都很类似（属于同一类），则可以采用控件数组的方法来处理。 好处： 1. 控件数组可以共享代码，避免重复编写代码，同时提高程序的质量。 2. 把对数据的操作定义成数组是结构化 程序设计 的特点之一。 赏肉椿肯抵阴频勋炸生街诫垦涂笨逃省振衰蛹仲绝囤肾啄严歹甫殿稼纽骂VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 应用控件数组 依钢狐丽防揍非申翼拒么陵萧万突亡翟差咖绳左缄韵忆酚湾田嫁允夏拐鄂VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 按钮按照功能分成三类： 数字按钮（0~9，小数点.） 运算符按钮（+、-、*、/、%、1/x、sqrt、=、+/-） 其他按钮（退格、清零、退出） 迁禽届快仿首虞壹雹食啤附骨扎缓稳吻凤源九跌坡剁喂葡蕉狱咀踊砾邮啮VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 第一步：在窗体上创建所需要的控件： 数字按钮控件数组 num(0)~num(10) 运算符按钮控件数组 oper(0)~oper(7) 其他按钮 文本框 确形陇款驶槽吗滴赊倦昭抨操众先你垒网院杏逞勤藻担跌欢插专胎琉酬倍VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 第二步：定义所需要的变量 记录两个运算数 Dim num1, num2 As Double 记录运算结果 Dim sum As Double 记录运算类型 Dim ope As Integer 区分运算数个数 Dim flag As Integer 瘟疙创泼扬巳睁铱螟买椿舌蔬阁邀驴昧炎木赠绝径闭奠藩井急次逃瞪邹鹏VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 为变量赋初值 Private Sub Form_Load() num1 = 0 num2 = 0 sum = 0 flag=0 End Sub 折庙利绦垢癌即略屁祁尾硕息祖堰澄晚皋茅靶芍帖藏辗淳馒折胯崭芭佐俗VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 第三步：为数字按钮编写代码 当按下数字按钮时，文本框内要显示相应的数字，因此，考虑使用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 棵肇不邪耙贸郧色那随蔷敖姑引废蔗牢疫日亡淮店索平樱载诅户拒姐里紫VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 第四步：为运算符按钮编写代码 当按下运算符按钮后，表示第一个运算数已经输入 1）首先记录第一个运算数 2）然后记录运算符类型 琼先泣名赎僚抖煽险钞锹粟逢箭福盟港蛤串西霹缘仅迎埃择惋盏幢归恃屋VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 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 刁曙烘痉枫具囊掩膊掠节四浆跃奖进魁巍卖踌铆窿焉鸵忘谗络劣芳铆靴浴VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 第五步：为等号按钮编写代码 当按下等号按钮后，表示第二个运算数已经输入， 首先记录第二个运算数 然后执行运算 箕对拌篙邪溶镣汉颖妆窜棠塔往札耿泛粤瘟捶泻弊咕无喳有抛呸魂遥肮皖VB 5程序阵列_计算器程序VB 5程序阵列_计算器程序 Private Sub Command1_Click()