本站原创河北工业大学计算机软件技术基础(VB)
课程设计任务书
本题难度级别:B实现基本要求代码:约200行主要涉及:基本控件,算法,字符串操作
一、设计题目:简单算术表达式计算器
(出题人:朱怀忠)
二,目的与要求1.目的培养学生综合利用语言进行程序设计的能力,主要是.基本要求3.创新要求在基本要求达到后,进行创新设计,设计方法和基本原理问题描述问题的解决方案PublicFunctionCaculate(pStrAsString)asString
'先算除法
DoWhile(找到除号了)
左边等于FindNumber(等)
'找左边的数,显然把找数单独放在一个函数里我们程序结果会清晰很多
右边等于FindNumber(等)'找右边的数
pStr等于Replace(pStr,左边&,"/"&,右边,Val(左边)/Val(右边))
Loop
'除法没了,算乘法
DoWhile(找到乘号了)
左边等于FindNumber(等)
右边等于FindNumber(等)
pStr等于Replace(pStr,左边&,"*"&,右边,Val(左边)*Val(右边))
Loop
'该减法了,别着急套上边的套路,减法可就复杂多了..上述运算完成后可能得到如下各种形式'的结果,最正常的1+3-2,不正常的1-3+-4,2*4*-2,1/5/-2,-5+2-3等
'可以这样处理,+-连在一起的,用–号替换掉,-号前面没有字符的,或者前边一个字符也是'运算符号的,统统都不管,在这里你可以不管,但你的FindNumber可不能不管,把上面几种情'况中的-号也要当作找到的运算值.
DoWhile(找到减号了)
pStr等于Replace(pStr,"+-","-")
if(不是那些非法情况)then
找左右两边替换
else
'不正常情况我啥都不做,继续循环找-号
endif
Loop
'该加法了
'照抄上边的结构
Caculate等于pStr'返回结果
EndFunction
一切好像非常明了了,没错,写程序过程中分析很重要,好的分析可以省掉不好的分析带来的90%的工作量,这就是所谓的理论指导实践！接下来就是写代码,构造那些FindNumber等函数的过程了,至于哪些函数是干什么的,去找MSDN,找搜索引擎,英文和计算机文化基础并非是白学只拿个学分的.
③编写代码
这里给出一些关键性的代码以供参考,编程时候大部分的代码要经过反复测试才能得到结果,有些要进行各种边界测试才能知道是否健壮.
'找到一个运算符左右两侧的运算值
PrivateSubFindNum(pStrAsString,pPosAsInteger,ByRefpLeftAsString,ByRefpRightAsString)
ops等于"*/+-"
Fori等于pPos-1To1Step-1
If(InStr(1,ops,Mid(pStr,i,1))<,>,0)Then
If(i等于1)Then'这一定是个–号喽
pLeft等于Mid(pStr,i,pPos-i)
Else
pLeft等于Mid(pStr,i+1,pPos-i-1)
EndIf
ExitFor
EndIf
Nexti
'最左边没了别的运算符那显然左边的都是运算数值了
Ifi等于0Then
pLeft等于Left(pStr,pPos-1)
EndIf
Fori等于pPos+1ToLen(pStr)
If(InStr(1,ops,Mid(pStr,i,1))<,>,0Andi<,>,pPos+1)Then
pRight等于Mid(pStr,pPos+1,i-pPos-1)
ExitFor
EndIf
Nexti
'最右边了那就把所有右边的当作运算值
Ifi等于Len(pStr)+1Then
pRight等于Right(pStr,Len(pStr)-pPos)
EndIf
EndSub
四、问题的描述isualBasic程序设计教程及VisualBasic实验教程
VB6.0程序员指南
VB6.0控件参考手册
MSDN中文版,课程设计网站上提供的其它资料.
在本题设计素材中还提供了如下本题专用资料:
窗体背景图片
六、设计部分的评分标准(本题难度为B级,综合时乘难度系数0.9)
完成基本要求80完成基本要求后的扩展要求90所有要求完成并且有创新100[注:最后得分是根据本部分得分(占最大比例)以及课程设计期间纪律,设计报告书,答辩情况综合得出)
VB课程设计任务书–简单算术表达式计算器第1页共4页