(科学计算器.docVIP

html head HTA:Application ID=oHTA ApplicationName=TroDropper Scroll=No Caption=Yes SingleInstance=No MaximizeButton=No MinimizeButton=Yes ShowInTaskBar=Yes WindowState=Normal Script language=vbscript Dim e Dim PI Dim YN Dim mIndex Dim His(9) YN=0 e=2.71828182845905 PI=3.14159265358979 Sub Window_Onload() Self.ResizeTo 285,355 Self.MoveTo 300,200 Window.resizeTo 1200,800 Reveal() End Sub Sub CL() textfield_input.value= End Sub Sub MeInfo() MsgBox 科学计算器 Chr(13) Chr(13) 作者：闵简书(英文名：mjswh) Chr(13) Chr(13) QQ：215162353,64,About Me End Sub Sub MyUp() mIndex=mIndex-1 If mIndex0 Then mIndex=0 Else textfield_input.value=His(mIndex) End If End Sub Sub MyDown() mIndex=mIndex+1 If mIndex9 Then mIndex=9 Else textfield_input.value=His(mIndex) End If End Sub Sub Reveal() Submit_Time.value=Time() MyTime=SetTimeOut(Reveal(),1000) End Sub Sub MyButton(str) If YN Then textfield_input.value= textfield_input.value=textfield_input.value Str YN=0 End Sub Sub Equ() On Error Resume Next YN=1 mIndex=9 tAns=Err tAns=CStr(EVal(textfield_input.value)) textfield_Ans.Value=tAns If Not tAns=Err Then Ans=CDbl(tAns) For i=0 To 8 His(i)=His(i+1) Next His(9)=textfield_input.value End Sub Function ArcSin(num) If num=1 Then ArcSin=PI/2 Else If num=-1 Then ArcSin=-PI/2 Else ArcSin=Atn(num/Sqr(-num*num+1)) End If End If End Function Function ArcCos(num) If num=1 Then ArcCos=0 Else If num=-1 Then ArcCos=PI Else ArcCos=Atn(-num/Sqr(-num*num+1))+2*Atn(1) End If End If End Function Function ArcTan(num) ArcTan=Atn(num) End Function Function ln(num) ln=Log(num) End Function Function HpySin(num) HpySin=(e^num-e^(-num))/2 End Function Function HpyCos(num) HpyCos=(e^num+e^(-num))/2 End Function Function HpyTan(num) HpyTan=HpySin(num)/HpyCos(num) End Function /script meta http-equiv=Content-Type content=text/html; charset=gb2312 / title科学计算器-By 闵简书/title style type=text/css !-- body,td,th { font-family: 宋体; font-size: 100px; color: #FFFF00; } body { margin-left: 0px; mar