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

名前

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

本文 あまりスマートな方法ではないですが、例えばチェックボックスを テキストと同じ数だけ用意してそれぞれに対応させ、 チェックがはいっているときはその数をルートとみなすとか・・ Option Explicit Dim a As Double Dim b As Double Dim c As Double Dim x1 As Double Dim x2 As Double Dim answer As Double Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text If Check1.Value = 1 Then a = Sqr(a) End If If Check2.Value = 1 Then b = Sqr(b) End If If Check3.Value = 1 Then c = Sqr(c) End If x1 = (a + b + c) / 2 x2 = x1 * (x1 - a) * (x1 - b) * (x1 - c) answer = Sqr(x2) Text4.Text = answer End Sub > その人は専門にやっているわけではないので…。 私もパソコンを２年程前に買ってもらったばかりのド素人です。