Question

用VB编程求三角形的面积

Answer 1

三角形面积公式：S=1/2lh

Sub sjxmj()
Dim s As Double
Dim l As Double
Dim h As Double

Do
l = Val(InputBox("请输入三角形底边长:"))
h = Val(InputBox("请输入三角形的高:"))
s = 0.5 * l * h
Loop While (l <= 0 Or h <= 0)

MsgBox "三角形的面积为：" & s

End Sub

Answer 2

private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub

Answer 3

已经回答了一个，见：
http://zhidao.baidu.com/question/5248254.html

Answer 4

private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub
private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub
private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub
private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub
private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub
private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub
private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub

Answer 5

文本框1 中输入 底长
文本框2 中输入 高长
点下 确定 按钮，然后在文本框3 中输出 面积？
是不是这样的题目？