Sqr()関数に問題あり
Posted: 2009年10月02日(金) 23:23
Sqr()関数に問題があります.
しかも,C:\Program Files\ActiveBasic 5.0\ablib\src\basic\function.sbp内のソースコードの修正が反映されない様で簡単には対応できません.
以下のソースをVer.4.20でコンパイルすると正しく動作しますが,5.0ではInfinityと表示されてしまうものが現れます.
Dim i As Long
Dim x As Double, y As Double
Dim s As String
s=""
For i=1 To 20
x=0.5*i
y=Sqr(x)
s=s+"Sqr("+Str(x)+")="+Str$(y)+Chr$(13)
Next
MessageBox(0,s,"Sqr()のテスト",MB_OK)
私見ですが, 標準的な関数に関してもソースコードの修正が有効な方が使い勝手が良い様に感じます.
次バージョンで反映いただければ幸いです.
しかも,C:\Program Files\ActiveBasic 5.0\ablib\src\basic\function.sbp内のソースコードの修正が反映されない様で簡単には対応できません.
以下のソースをVer.4.20でコンパイルすると正しく動作しますが,5.0ではInfinityと表示されてしまうものが現れます.
Dim i As Long
Dim x As Double, y As Double
Dim s As String
s=""
For i=1 To 20
x=0.5*i
y=Sqr(x)
s=s+"Sqr("+Str(x)+")="+Str$(y)+Chr$(13)
Next
MessageBox(0,s,"Sqr()のテスト",MB_OK)
私見ですが, 標準的な関数に関してもソースコードの修正が有効な方が使い勝手が良い様に感じます.
次バージョンで反映いただければ幸いです.