平安校园网二维码:用VB编程求三角形的面积
private sub command1.clack()
a = val(text1.text)
b = val(text2.text)
c = a*b/2
text3.text = c
end sub
三角形面积公式: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
文本框1 中输入 底长
文本框2 中输入 高长
点下 确定 按钮,然后在文本框3 中输出 面积?
是不是这样的题目?
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