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, (

calc
....\Form1.frm
....\MSSCCPRJ.SCC
....\Project1.exe
....\Project1.vbp
....\Project1.vbw

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．