vb程序代码中的梯形公式怎么编写

你要梯形的什么公式呢？
如果是面积公式，如下：
Dim B1 As Long, B2 As Long, H As Long
'B1:上底
'B2:下底
'H:高
B1 = 10
B2 = 23
H = 8
Msgbox "该梯形的面积为：" & Str((B1 + B2) * H / 2)