计算器 有数字按键 + - * / 都有-Public sym, tmp Public Sub Cl_Click() txt = "" Form1.sym = "" Form1.tmp = "" End Sub Public Sub cmd_Click(Index As Integer) If InStr(1, txt, "=") <> 0 Then txt = "" txt = txt & Index End Sub Pub