请大虾们帮忙! 一个VB基础题! 急!

用VB做一个完整的计算器  
  我只能做出简单的加减法     做不出来连加连等   还有   删除键   要一位一位的删的!! 问题点数：20、回复次数：4Top

1 楼phlac（天下）回复于 2005-05-04 20:18:02 得分 0

一位一位的删  
  Text1.Text   =   Mid(Text1.Text,   1,   Len(Text1.Text)   -   1)  
  Top

2 楼Gutta（冯大狂）回复于 2005-05-05 08:24:48 得分 20

在MSDN的安装光盘上有一个Samples目录，里面包含了很多很多实例，当然也包括VB的，你进去Samples\VB98的目录，里面有一个Calc目录，这里面就是计算器的例子，去看看吧，基本实现了所有功能。Top

3 楼niece（薇 我有新女人了）回复于 2005-05-05 10:49:35 得分 0

我以前做过   你可以用用数学的方式Top

4 楼lmshj（DoubleX）回复于 2005-05-05 13:32:46 得分 0

引用“Microsoft   Script   Control   1.0”  
  Private   Sub   Command1_Click()  
          Dim   VBEval   As   New   ScriptControl  
          Dim   Result   As   String  
          On   Error   GoTo   E  
          VBEval.Language   =   "vbscript"  
          Result   =   VBEval.Eval(Text1.Text)  
          MsgBox   Text1.Text   &   "="   &   Result  
          Exit   Sub  
  E:  
          MsgBox   "表达式错误，检查是否输入了非法字符！"  
  End   SubTop

相关问题

• vb
• vbeval
• 目录
• text
• result

• 帖主：zhuanglipeng_000
• Gutta

• Visual Basic类图书
• Visual Basic类源码下载