vbs+hta计算器_vbs吧

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>科学计算器</title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋体;
font-size: medium;
color: #FFFF00;
}

body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #000000;
}
.CInText {
font-family: Arial, Helvetica, sans-serif;
font-size: x-small;
font-style: normal;
line-height: normal;
font-weight: normal;
font-variant: normal;
text-transform: none;
color: #00FF00;
background-color: #000000;
text-align: right;
display: run-in;
white-space: normal;
letter-spacing: normal;
vertical-align: middle;
word-spacing: normal;
}
.COutText {
font-family: Arial, Helvetica, sans-serif;
font-size: medium;
font-style: normal;
line-height: normal;
font-weight: normal;
font-variant: normal;
text-transform: none;
color: #000000;
background-color: #00FFFF;
letter-spacing: normal;
text-align: right;
vertical-align: middle;
word-spacing: normal;
white-space: normal;
display: inline;
}

-->
</style>
</head>
<body
OnDragStart="Window.Event.ReturnValue=False"
OnConTextMenu="Window.Event.ReturnValue=False"
OnSelectStart="Window.Event.ReturnValue=False"
>
<table width="200" border="12" align="center" cellspacing="4">
<tr>
<td colspan="5" align="center" valign="middle" nowrap bordercolor="#F0F0F0"><input name="textfield_input" type="text" class="CInText" id="textfield_input" size="30" maxlength="100"></td>
</tr>
<tr>
<td colspan="5" align="center" valign="middle" nowrap bordercolor="#F0F0F0"><input name="textfield_Ans" type="text" class="COutText" id="textfield_Ans" size="22" maxlength="22"></td>
</tr>
<tr>
<td colspan="3" align="center" valign="middle" nowrap><input name="Submit_Time" type="button" id="Submit_Time" onClick="MeInfo()" value="00:00:00">
<input name="Submit_e" type="submit" id="Submit_e" onClick="MyButton("e")" value="e">
<input name="Submit_pi" type="submit" id="Submit_pi" onClick="MyButton("PI")" value="π"></td>
<td align="center" valign="middle" nowrap><input name="Submit_up" type="submit" id="Submit_up" onClick="MyUp()" value=" ↑ "></td>
<td align="center" valign="middle" nowrap><input name="Submit_down" type="submit" id="Submit_down" onClick="MyDown()" value=" ↓ "></td>
</tr>
<tr>
<td align="center" valign="middle" nowrap><input name="Submit_sin" type="submit" id="Submit_sin" onClick="MyButton("Sin(")"")" value="Sin"Sin(></td>
<td align="center" valign="middle" nowrap><input name="Submit_cos" type="submit" id="Submit_cos" onClick="MyButton("Cos(")" value="Cos"></td>
<td align="center" valign="middle" nowrap><input name="Submit_tan" type="submit" id="Submit_tan" onClick="MyButton("Tan(")" value="Tan"></td>
<td align="center" valign="middle" nowrap><input name="Submit_arc" type="submit" id="Submit_arc" onClick="MyButton("Arc")" value="Arc"></td>
<td align="center" valign="middle" nowrap><input name="Submit_hpy" type="submit" id="Submit_hpy" onClick="MyButton("Hpy")" value="Hpy"></td>
</tr>
<tr>
<td align="center" valign="middle" nowrap><input name="Submit_ln" type="submit" id="Submit_ln" onClick="MyButton("ln(")" value="ln "></td>
<td align="center" valign="middle" nowrap><input name="Submit_zhi" type="submit" id="Submit_zhi" onClick="MyButton("^")" value=" ^ "></td>
<td align="center" valign="middle" nowrap><input name="Submit_sqrt" type="submit" id="Submit_sqrt" onClick="MyButton("Sqr(")" value="√ "></td>
<td align="center" valign="middle" nowrap><input name="Submit_zk" type="submit" id="Submit_zk" onClick="MyButton("(")" value=" ( "></td>
<td align="center" valign="middle" nowrap><input name="Submit_yk" type="submit" id="Submit_yk" onClick="MyButton(")")" value=" ) "></td>
</tr>
<tr>
<td align="center" valign="middle" nowrap><input name="Submit_7" type="submit" id="Submit_7" onClick="MyButton("7")" value=" 7 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_8" type="submit" id="Submit_8" onClick="MyButton("8")" value=" 8 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_9" type="submit" id="Submit_9" onClick="MyButton("9")" value=" 9 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_chu" type="submit" id="Submit_chu" onClick="MyButton("/")" value=" ÷ "></td>
<td align="center" valign="middle" nowrap><input name="Submit_clear" type="submit" id="Submit_clear" onClick="CL()" value=" CL "></td>
</tr>
<tr>
<td align="center" valign="middle" nowrap><input name="Submit_4" type="submit" id="Submit_4" onClick="MyButton("4")" value=" 4 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_5" type="submit" id="Submit_5" onClick="MyButton("5")" value=" 5 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_6" type="submit" id="Submit_6" onClick="MyButton("6")" value=" 6 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_cheng" type="submit" id="Submit_cheng" onClick="MyButton("*")" value=" × "></td>
<td align="center" valign="middle" nowrap><input name="Submit_off" type="submit" id="Submit_off" onClick="MyButton("Ans")" value=" Ans"></td>
</tr>
<tr>
<td align="center" valign="middle" nowrap><input name="Submit_1" type="submit" id="Submit_1" onClick="MyButton("1")" value=" 1 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_2" type="submit" id="Submit_2" onClick="MyButton("2")" value=" 2 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_3" type="submit" id="Submit_3" onClick="MyButton("3")" value=" 3 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_jian" type="submit" id="Submit_jian" onClick="MyButton("-")" value=" － "></td>
<td align="center" valign="middle" nowrap><input name="Submit_rnd" type="submit" id="Submit_rnd" onClick="MyButton("Rnd()")" value=" RND"></td>
</tr>
<tr>
<td align="center" valign="middle" nowrap><input name="Submit_0" type="submit" id="Submit_0" onClick="MyButton("0")" value=" 0 "></td>
<td align="center" valign="middle" nowrap><input name="Submit_fu" type="submit" id="Submit_fu" onClick="MyButton("-")" value="(-)"></td>
<td align="center" valign="middle" nowrap><input name="Submit_point" type="submit" id="Submit_point" onClick="MyButton(".")" value=" . "></td>
<td align="center" valign="middle" nowrap><input name="Submit_jia" type="submit" id="Submit_jia" onClick="MyButton("+")" value=" ＋ "></td>
<td align="center" valign="middle" nowrap><input name="Submit_equ" type="submit" id="Submit_equ" onClick="Equ()" value=" ＝ "></td>
</tr>
</table>
</body>
</html>

复制到记事本后保存为.hta，vbs嵌在里面的

谁能改GUI？

If mIndex<0 Then
mIndex=0
Else
textfield_input.value=His(mIndex)
End If
End Sub
Sub MyDown()
mIndex=mIndex+1
If mIndex>9 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

http://pan.baidu.com/s/1pJ0VghX

日	一	二	三	四	五	六

vbs+hta计算器

扫二维码下载贴吧客户端