(vb课程设计)达式计算器设计报告.docVIP

表达式计算器设计报告 学院 材料学院 班级 材料074班 学号 072018 姓名 姜枭特 成绩 一、设计思路 1.要达到的目的 ①输入一个简单的四则运算公式，能够正确进行运算并输出最后结果。 ②支持运算符的优先级，对于同一级别运算，按先算左边，后算右边的顺序。 ③支持平方、多种常用数学函数的混合运算。 ④支持对括号的运算处理，包括多括号及括号嵌套。 ⑤能够输出详细的运算过程及每一步运算的结果。 2.关键问题的解决 ①建立一个名为f1的函数，单独对一个只含四则运算符以及平方符号的表达式进行运算，其值作为f1的值。 ②在函数中先设置一个数组D()分离操作数和运算符，并分别储存。 ③通过Mid函数和if语句判断”-“是负数含义还是减法运算符含义，同时处理了”+-*/^”与”-“放在一起的情况。 根据各运算符的优先级通过DO循环分别计算结果，并重新整理数组并储存，最后做加减运算，并实现对于同一级别运算，先算左边，后算右边，最后将值赋给f1。 ⑤再建立一个名为f2的函数，进行括号运算操作，通过Instr和InstrRev函数以及Mid函数提取出括号内的函数，建立新的表达式，再调用f1计算新表达式的值。通过以上循环实现多括号以及括号嵌套的运算。 ⑥通过DO循环，利用Instr、Mid函数提取函数括号内的表达式，调用f1进行计算，再将其值进行函数运算，再将运算值与其他部分拼接，实现abs()、sqr()等多函数的计算。 ⑦通过ListBox控件，用多个AddItem语句实现各运算步骤的详细输出。 ⑧通过查找和判断进行边界情况的讨论，使其更加人性化。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Public Function f1(ByVal Exp As String) As String 构造函数对只含四则运算符以及平方符号的表达式进行运算 Dim a As Integer, Num As Integer, D() As String, b As String, i As Integer, p As Integer, k As Integer p = 0 原符号位 Num = 0 b = Exp For i = 2 To Len(b) Select Case Mid(b, i, 1) Case +, -, *, /, ^ 如果当前位和原符号位相邻，则判断为负数，而不是减法运算符 If i - p 1 Then Num = Num + 2 ReDim Preserve D(0 To Num) 分离操作数和运算符 D(Num - 1) = Mid(b, p + 1, i - p - 1) D(Num) = Mid(Exp, i, 1) p = i Else If Mid(b, i, 1) - Then f1 = F 标记”F”,使ListBox显示非法表达式,请重新输入 Exit Function End If End If Case Else End Select Next i Num = Num + 1 ReDim Preserve D(0 To Num) 储存最后一项 D(Num) = Mid(b, p + 1) 先计算平方： Do a = 0 记录算式中有无平方号 For i = 2 To Num - 1 Step 2 If D(i) = ^ Then If D(i - 1) 0 Then D(i - 1) = - CStr(Val(D(i - 1)) ^ Val(D(i + 1))) Else D(i - 1) = CStr(Val(D(i - 1)) ^ Val(D(i + 1))) End If Num = Num – 2 整理 For k = i To Num D(k) = D(k + 2) Next u = 输出计算步骤 For j = 1 To Num u = u D(j) Next List1.AddItem CStr(u) a = 1 Exit For End If Next Loop Until a = 0 再计算乘除： Do a = 0 记录算式中有无乘除号