掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
平方根 (ID:140089)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あれですね、なんと Option Explicit でも Label1.Caption = Sqr(Text1.Text) Label1.Caption = Text1.Text ^ (1 / N) 両方通ってしまうと言うことは、もうこれは言語仕様というしかかな。 VB.NETでも同じですね、さすがに Option Strict On だとはじかれますが。 それとIsNumericは入り込む余地がないんじゃないかな気持ちはわかるが、ただしマイナスチェックは要るな。 If CDbl(Text1.Text) >= 0 Then Text2.Text = Str(Sqr(CDbl(Text1.Text))) Else MsgBox "入力データーは０以上でお願いします。", _ vbOKOnly, "入力エラー" End If 複素数まで考えると If Abs(CDbl(Text1.Text)) = CDbl(Text1.Text) Then Text2.Text = Str(Sqr(CDbl(Text1.Text))) Else Text2.Text = Str(Sqr(Abs(CDbl(Text1.Text)))) + "i" End If なんてのも有りそうでうだが。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.