计算梯形的面积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

全部回答

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息