VB 编写程序，模拟计算器的加减乘除，功能，要求键盘输入两个操作数和操作符 '-' 版权所有(C)1994 Microsoft Corporation'' 您可以免费以任何方式使用、修改、复制并分发您认为有用的' 示例应用程序文件(或任何修改过的版本)。Microsoft 对任何' 示例应用程序文件不做任何保证，不负任何责任和义务。'-Option ExplicitDim Op1，Op2 ' 预先输入操作数。Dim DecimalFlag As Integer ' 小数点存在吗？Dim NumOps As Integer ' 操作数个数。Dim LastInput ' 指示上一次按键事件的类型。Dim OpFlag ' 指示未完成的操作。Dim TempReadout' C(取消)按钮的 Click 事件过程' 重新设置显示并初始化变量。Private Sub Cancel_Click()Readout=Format(0，\"0.\")Op1=0Op2=0Form_LoadEnd Sub' CE(取消输入)按钮的 Click 事件过程。Private Sub CancelEntry_Click()Readout=Format(0，\"0.\")DecimalFlag=FalseLastInput=\"CEEnd Sub' 小数点(.)按钮的 Click 事件过程' 如果上一次按键为运算符，初始化 readout 为\"0.；' 否则显示时追加一个小数点。Private Sub Decimal_Click()If LastInput=\"NEG\"ThenReadout=Format(0，\"-0.\")ElseIf LastInput<；>；\"NUMS\"ThenReadout=Format(0，\"0.\")End IfDecimalFlag=TrueLastInput=\"NUMSEnd Sub' 窗体的。
怎样用VB做一个按键式的计算器 Private Enum JS加减乘除没有End EnumPrivate Str$，D As Boolean，DH As BooleanPrivate su(1 To 2)As Double，JSF As JSPrivate Sub CBackspace_Click()'后退If Len(Str)>；1 Then '大于两个字符Str=Left(Str，Len(Str)-1)'减去一个字符If InStr(Str，\".\")=0 Then D=False '如果减去的为点，设置点标志ElseIf Str<；>；\"0\"Then Str=\"0\"'如果为1位，直接清零End IfPrintTextEnd SubPrivate Sub CCE_Click()'清除当前数值，清屏Str=\"0D=FalsePrintTextEnd SubPrivate Sub CC_Click()'清除，归零ExeIntePrintTextEnd SubPrivate Sub CDeng_Click()'等号的运算Dim i%'申请integer变量i=JSF '运算标识号转为integer 不然会出错 enum 为 long型DH=True '设置等号标志为trueYunSuan_Click i '调用计算DH=False '设置等号标志为FalseEnd SubPrivate Sub sum_Click(Index As Integer)'0 to 9 的数组换件索引Str=Val(Str&Index)PrintTextEnd SubPrivate Sub PrintText()'显示处理If Str=\"\"Then Str=\"0\"'为空时，初始为0If D Then '如果按过点If Left(Str，1)=\".\"Then Str=\"0\"&Str '如果点为开始，即数值小于1Text1.Text=Str '显示ElseText1.Text=。
想用VB做个计算器程序（计算器只有一个文本框，在键盘输入算式，如（2+4）/2*2，按回车出结果 出结果在文本框显示：（2+4）/2*2=6求具体做法，初学VB，自己尝试了下，未能。
