计算器 有数字按键 + - * / 都有-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



Public Sub pt_Click()

txt = txt & "."

End Sub



Private Sub Form_Load()

sym = ""

End Sub



Public Sub oth_Click(Index As Integer)

Form1.equ_Click

Form1.sym = oth(Index).Caption

If Replace(txt, vbCrLf, "") <> txt Then

　txt = Form1.tmp

Else

End If

　txt = txt & vbCrLf & Form1.sym

End Sub



Public Sub equ_Click()

Select Case Form1.sym

　Case "+"

　　Form1.tmp = Val(txt)+ Val(Mid(txt, (InStr(1, txt, Form1.sym)+ 1)))

　　txt = txt & vbCrLf & "=" & Form1.tmp

　Case "-"

　　Form1.tmp = Val(txt)- Val(Mid(txt, (InStr(1, txt, Form1.sym)+ 1)))

　　txt = txt & vbCrLf & "=" & Form1.tmp

　Case "*"

　　Form1.tmp = Val(txt)* Val(Mid(txt, (InStr(1, txt, Form1.sym)+ 1)))

　　txt = txt & vbCrLf & "=" & Form1.tmp

　Case "/"

　　Form1.tmp = Val(txt)/Val(Mid(txt, (