これは、テキスト入力欄に式を入力して計算する数式電卓 です。
HTA 版もあります。)

【実行画面】






< VBScript >

'//数式計電卓

Option Explicit
Dim kai

Do
    kai = InputBox("数式を入れてください。" & vbCR & vbCR &_
        "例)(Sqr(2)+3)*4-5","数式電卓")
    If kai = "" Then
        Exit Do
    ElseIf Eval(kai) = "" Then
        MsgBox "式が正しくありません。",48,"入力が不適正"
    Else
        MsgBox Eval(kai),64,"解"
    End If
Loop


 次のような算術演算子数値演算関数が使えます。

算術演算子

演算の種類演算子
加算+
減算-
乗算*
除算/
整数除算\
剰余Mod
指数^


数値演算関数

関数意味
Abs絶対値
Atnアークタンジェント
Cosコサイン
Exp指数関数 (e を底とする数式のべき乗)
Fix整数部分
Int整数部分
Log自然対数
Rnd乱数
Sgn符号を示す整数
Sinサイン
Sqr平方根
Tanタンジェント

 詳しくは、「Microsoft Windows スクリプト テクノロジ」のマニュアル を参照して下さい。



戻る