|
|

楼主 |
发表于 2006-4-26 13:01:00
|
显示全部楼层
Re:新手进来,我出道题目给你们做~
Dim a, b, c, d, s As Double
Dim j As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
j = "对不起, 您输入的边长不符合标准"
If a + b > c And b + c > a And a + c > b Then
d = (a + b + c) / 2
s = (d * (d - a) * (d - b) * (d - c)) ^ (1 / 2)
TextBox4.Text = s
Else
MessageBox.Show(j)
End If
End Sub
End Class
——————————————————————————————————————————
这是这道题目的正确解答,当然答案有多着~我就列出简单的答案了~
呵呵。我这道题目给的是新手做的~干吗老爱计较发的是否有用呢?对你没用对别人有用啊,你们说是不是呢?呵呵 |
|