平方根の計算をするには？ (ID:104250)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 文面からは、やりたいことが良くわからないので、想像で回答します。 テキストボックスにもろ、√33などと入力したいのなら、以下のように したらいかがでしょうか。 Dim a(2) as double,x(2) as double a(0) = Text1.Text a(1) = Text2.Text a(2) = Text3.Text x1=0 For i=0 To 2 s = a(i) If Left(s, 1) = "√" Then s = Right(s, Len(s) - 1) x(i) = Sqr(Val(s)) Else x(i) = Val(s) End If x1=x1+x(i) Next x1=x1/2 x2 = x1 * (x1 - x(0)) * (x1 - x(1)) * (x1 - x(2)) answer = Sqr(x2) あまりにもあたりまえの回答ですみません。