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

名前

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

本文 VBはじめたばかりでして、見落としなど多いと思いますが、見てみてください。最近、四則の計算をする簡単な電卓を作ったばかりで…。 Private Sub Command1_Click() If Val(Text1.Text) <= 0 Then Text4.Text = "そんな三角形はありません" ElseIf Val(Text2.Text) <= 0 Then Text4.Text = "そんな三角形はありません" ElseIf Val(Text3.Text) <= 0 Then Text4.Text = "そんな三角形はありません" ElseIf Text1.Text > Val(Text2.Text) + Val(Text3.Text) Then Text4.Text = "そんな三角形はありません" ElseIf Text2.Text > Val(Text1.Text) + Val(Text3.Text) Then Text4.Text = "そんな三角形はありません" ElseIf Text3.Text > Val(Text1.Text) + Val(Text2.Text) Then Text4.Text = "そんな三角形はありません" Else A = Val((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 2) Text4.Text = Str(Sqr(Val(A) * (Val(A) - Val(Text1.Text)) * (Val(A) - Val(Text2.Text)) * (Val(A) - Val(Text3.Text)))) End If End Sub 三角形であるための条件がif〜elseの間にあります。