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

加减乘除计算器设计报告 一：设计思路 1.要达到的目的 培养学生综合利用VB语言进行程序设计的能力，主要培养学生综合使用基本控件，控件数组，常用算法等能力。 2.关键问题的解决 在窗体上分别创建用于0-9个操作数字和＋、－、*、／运算符号的控件数组，并创建用于显示操作数、运算结果的文本框及其它控件。 单击数字控件数组元素时，先判断参加运算的数是否是新的操作数，用以确定单击数字键后数字在文本框中的显示方式，如果是新的操作数如234，那么连续单击2，3，4数字键，在文本框中会显示234。 单击操作符，结束第一个操作数的输入，同时把第一个操作数存储到一个全局变量中。 单击等号（=），结束第二个操作数的输入并存储，根据上面记下的index值选择操作符计算。 如果用键盘操作运算，应根据所按键对应的KeyAscii值转换成对应的字符来 断执行什么操作，确定调用哪个事件过程。最后完成运算。 二、模块之间的调用关系，或程序流程图 三、程序代码 Public s As Single, i As Single, j As Single, f As Integer, m As Single Private Sub c_Click() Text1 = i = 0 f = 0 s = 0 j = 0 End Sub Private Sub Command1_Click() Text1.Text = Text1.Text . End Sub Private Sub deng_Click() j = cun(Text1) Call jisuan(i, j, s) Text1 = s f = 0 s = 0 i = 0 j = 0 End Sub Private Sub form_Keypress(Keyascii As Integer) Select Case Chr(Keyascii) Case 0 To 9 commadone_click (Val(Chr(Keyascii))) Case . Call Command1_Click Case + Call commandjia_click(0) Case - Call commandjia_click(1) Case * Call commandjia_click(2) Case / Call commandjia_click(3) Case = Call commanddeng_click End Select End Sub Private Sub jia_Click(Index As Integer) i = cun(Text1) Text1.Text = f = Index + 1 End Sub Private Sub one_Click(Index As Integer) Text1 = Text1 Index End Sub Public 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 / j End Select End Sub Public Function cun(x As String) cun = Val(x) End Function 四、设计方案的完善及目前存在的问题 只能进行一次运算 不能运算负数 五、本次设计的收获及心得体会 得锻炼自己学习课外知识的能力，同时动手能力得到了很大提高 六、对该题目和VB设计的意见和建议 题目难易度适当较好的锻炼学生能力 命令按钮输入 键盘输入 得到操作数 存储第一个数 输入操作符 存储操作符，清空文本框 得到第二个数 存储第二个数 得到计算命令 调用操作数，根据操作符运算