VB课程设-加减乘除计算器.doc

此文档收集于网络，如有侵权，请联系网站删除加减乘除计算器设计报告 一：设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，主要培养学生综合使用基本控件，控件数组，常用算法等能力。2.关键问题的解决l 在窗体上分别创建用于0-9个操作数字和、*、运算符号的控件数组，并创建用于显示操作数、运算结果的文本框及其它控件。l 单击数字控件数组元素时，先判断参加运算的数是否是新的操作数，用以确定单击数字键后数字在文本框中的显示方式，如果是新的操作数如234，那么连续单击2，3，4数字键，在文本框中会显示234。l 单击操作符，结束第一个操作数的输入，同时把第一个操作数存储到一个全局变量中。l 单击等号（=），结束第二个操作数的输入并存储，根据上面记下的index值选择操作符计算。l 如果用键盘操作运算，应根据所按键对应的KeyAscii值转换成对应的字符来 断执行什么操作，确定调用哪个事件过程。最后完成运算。二、模块之间的调用关系，或程序流程图命令按钮输入键盘输入得到操作数存储第一个数输入操作符存储操作符，清空文本框得到第二个数存储第二个数得到计算命令调用操作数，根据操作符运算三、程序代码 Public s As Single, i As Single, j As Single, f As Integer, m As SinglePrivate Sub c_Click()Text1 = i = 0f = 0s = 0j = 0End SubPrivate Sub Command1_Click()Text1.Text = Text1.Text & .End SubPrivate Sub deng_Click()j = cun(Text1)Call jisuan(i, j, s)Text1 = sf = 0s = 0i = 0j = 0End SubPrivate Sub form_Keypress(Keyascii As Integer) Select Case Chr(Keyascii) Case 0 To 9 commadone_click (Val(Chr(Keyascii)Case . Call Command1_ClickCase + Call commandjia_click(0)Case - Call commandjia_click(1)Case * Call commandjia_click(2)Case / Call commandjia_click(3)Case = Call commanddeng_clickEnd SelectEnd SubPrivate Sub jia_Click(Index As Integer)i = cun(Text1)Text1.Text = f = Index + 1End SubPrivate Sub one_Click(Index As Integer)Text1 = Text1 & IndexEnd SubPublic Sub jisuan(i, j, s)Select Case f Case 1 s = i + j Case 2 s = i - j Case 3 s = i * j Case 4 s = i / jEnd SelectEnd SubPublic Function cun(x As String)cun = Val(x)End Function四、设计方案的完善及目前存在的问题l 只能进行一次运算不能运算负数五、本次设计的收