计算梯形的面积VB代码怎么写
答案:3 悬赏:70 手机版
解决时间 2021-01-02 10:46
- 提问者网友：末路
- 2021-01-01 22:42
计算梯形的面积VB代码怎么写
最佳答案
- 五星知识达人网友：神鬼未生
- 2021-01-01 22:52
'S=（上底+下底）×高÷2
Private Sub Form_Load()
Me.Show
a = Val(InputBox("请输入梯形上底"))
b = Val(InputBox("请输入梯形下底"))
h = Val(InputBox("请输入梯形的高"))
Print "梯形上底="; a
Print "梯形下底="; b
Print "梯形高="; h
Print "梯形面积="; (a + b) * h / 2
End Sub
Private Sub Form_Load()
Me.Show
a = Val(InputBox("请输入梯形上底"))
b = Val(InputBox("请输入梯形下底"))
h = Val(InputBox("请输入梯形的高"))
Print "梯形上底="; a
Print "梯形下底="; b
Print "梯形高="; h
Print "梯形面积="; (a + b) * h / 2
End Sub
全部回答
- 1楼网友：怙棘
- 2021-01-02 00:30
dim a, b,c,area as decimal ' a为上底，b为下底，c为高，area为面积
area=(a+b)*c/2
print("梯形面积为"& area)
- 2楼网友：荒野風
- 2021-01-01 23:00
' A B
' ************
' * |*
' * | *
' * |h *
' * | *
' **********************
' D C
Private Sub Form_Load()
Dim AB As Single
Dim CD As Single
Dim h As Single
Dim S As Single
AB = InputBox("AB=")
CD = InputBox("CD=")
h = InputBox("h=")
S = (AB + CD) * h / 2
MsgBox "S=" & S, vbOKOnly
End
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯