WSHで数学をするスレ

>>28 保守乙。

なんか、スターウォーズのDVDレンタルで借りて来たら、眠れなくなってしまった。
>>15 を使いやすくしてみました。

連続で何回も計算可能。
起動の度に、RND(1)の乱数列が変わる。
＞＞24さんのPI（）関数も組み込み済み。など

Randomize
Dim strFormula : strFormula = "sin(PI()/2)*log(EXP(1))"
Do
strFormula = InputBox("PI()" & VbCrLf & "Sin(), Atn(), Exp(), Log(), Rnd(), Int(), " & VbCrLf & "Hex(), Left(3, ), Chr(), Asc(), Now(), ","式を入力して下さい。",strFormula )

Msgbox(Eval(strFormula) )

Loop while strFormula <> ""

'----------------------------------------
Function PI()
PI=4*atn(1)
End Function