VB6.0设计一个简单的计算器程序

'给个短的给你，用的控件数组'添加按钮cmdNum(10)，其index为0到9，表示10个数字'添加按钮cmdOper(4)，其index为1到4，表示运算符'添加按钮cmdOk，为等于号'添加按钮cmdClear，为清除按钮'然后添加如下代码：Dim flag As IntegerDim isClickNumLast As BooleanDim s1 As String '前一步的值Dim s2 As String '当前框中的值Private Sub Form_Load()isClickNumLast = Trueflag = 1End Sub'点数字的 *** 作Private Sub cmdNum_Click(Index As Integer)Text1.Text = IIf(isClickNumLast, Text1.Text, "") &CStr(Index)isClickNumLast = TrueEnd Sub'点运算符的 *** 作Private Sub cmdOper_Click(Index As Integer)If isClickNumLast ThenCall computeResultText1.Text = s1End Ifflag = IndexisClickNumLast = FalseEnd Sub'得出结果Private Sub cmdOK_Click()Call computeResultText1.Text = s1isClickNumLast = FalseEnd Sub'清屏Private Sub cmdClear_Click() '清屏Text1.Text = ""isClickNumLast = Trueflag = 1End Sub'计算结果Private Sub computeResult()s2 = Text1.TextSelect Case flag 'flag为运算符，分别为+-*/Case 1s1 = CStr(Val(s1) + Val(s2))Case 2s1 = CStr(Val(s1) - Val(s2))Case 3s1 = CStr(Val(s1) * Val(s2))Case 4s1 = CStr(Val(s1) / Val(s2))End SelectEnd Sub'界面预览：'

'源码下载：'http://www.ruiyuan-power.com/sfw/calc.rar

代码就比较复杂了。简单说一下原理。

窗体上，放很多按钮，分别为0-9，还有运算符，等号。一个文本框

点击数字按钮，显示在文本框中，当点击运算符时，就要用变量存储刚才输入的数值。

然后再存储后面输入的数值，最后根据运算符，对两个数，做运算后，把结果显示出来

---