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

's=（上底+下底）×高÷2

private

sub

form_load()

meshow

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()

Form1Caption = "学号，姓名"

Call Command2_Click

End Sub

Private Sub Command1_Click()

Label1Caption = Val(Text1) + Val(Text2)

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Label1Caption = ""

End Sub

Private Sub Command3_Click()

End

End Sub

可用希腊字母的英文注音，如：

用sigma这个变量代替σ，

用alpha这个变量代替α，

用beta这个变量代替β，

用omega这个变量代替Ω，

附：希腊字母 中英文读音及常用意义对照一览表

序号 大写 小写 英文注音 国际音标注音 对应英文字母 中文读音 意 义 对应数值

1 Α α alpha a:lfa a 阿尔法 角度（小写）；系数 1

2 Β β beta beta b, v 贝塔 磁通系数；磁感应强度（大写）；角度（小写）；系数 2

3 Γ γ gamma ga:m g, gh, y 伽马 电导系数（小写） 3

4 Δ δ delta delta d, dh, th 戴尔塔 变化量（大写）；屈光度 4

5 Ε ε epsilon ep`silon e 艾普西龙 对数之基数；电势能（小写） 5

6 Ζ ζ zeta zeta z 截塔 系数；方位角；阻抗；相对粘度；原子序数 7

7 Η η eta eta e, i 艾塔 磁滞系数；效率（小写） 8

8 Θ θ theta θita th 西塔 温度；相位角 9

9 Ι ι iot jot i 约塔 微小，一点儿 10

10 Κ κ kappa kap k 卡帕 介质常数 20

11 ∧ λ lambda lamda l 兰姆达 波长（小写）；体积 30

12 Μ μ mu mju m 缪 磁导系数微（千分之一）放大因数（小写）；动摩擦因数（小写） 40

13 Ν ν nu nju n 纽 磁阻系数；光频率（小写），中微子（小写） 50

14 Ξ ξ xi ksi x, ks 克西 随机变量 60

15 Ο ο omicron omik`ron o 奥密克戎 无穷小量：ο(x) 70

16 ∏ π pi pai p 派 圆周率=圆周÷直径=314159 2653589793 80

17 Ρ ρ rho rou r 柔 电阻系数（小写）密度(小写) 100

18 ∑ σ sigma `sigma s 西格马 总和（大写），表面密度；跨导（小写） 200

19 Τ τ tau to: t 套 时间常数；周期（大写） 300

20 Υ υ upsilon jup`silon u, y, v, f 宇普西龙 位移 400

21 Φ φ phi fai ph, f 法爱 磁通（大写）；电势（小写）；黄金分割符号；工程学中表示直径（大写斜体） 500

22 Χ χ chi khi ch, kh 奇 卡方分布；电感 600

23 Ψ ψ psi psai ps 帕赛 角速；介质电通量（静电力线）；角 700

24 Ω ω omega o`miga o 欧米伽 欧姆（大写）；角速度（小写）；角 800

干麻要 一个一个的 ,直接复制粘贴不就行了

Private Sub Command1_Click()

WorkbooksOpen "C:\Users\Administrator\Desktop\程序\Book2xls"

Range("AH4")Value = "=countif(C4:AD4,""白"")"

Range("AH4")Select

SelectionCopy

Range("AH5:AH60")Select

ActiveSheetPaste

Set xlApp = CreateObject("ExcelApplication")

xlAppVisible = True

End Sub

1、vb中产生[a,b]区间的随机数的公式是：Int((b-

a+

1)

Rnd

+

a)

2、根据以上公式得出，根本无法以公式法生成(a,b](半开区间)范围内的随机数。

3、Rnd

函数返回小于

1

但大于或等于

0

的值。

4、int是取整函数。

Si、Ni 是什么，我这里使用简单的函数 fs、fn 来表示，你可以修改这些函数，实现你需要的功能。

Private Function fs(ByVal i As Long) As Double

fs = i

End Function

Private Function fn(ByVal i As Long) As Double

fn = i

End Function

'实现 B = ……

Public Function fb(ByVal n As Long) As Double

Dim i As Long, s1 As Double, s2 As Double, s3 As Double, s4 As Double

Dim vs As Double, vn As Double

s1 = 0: s2 = 0: s3 = 0: s4 = 0

For i = 1 To n

vs = Log(fs(i)) / Log(10)

vn = Log(fn(i)) / Log(10)

s1 = s1 + vs vn

s2 = s2 + vs

s3 = s3 + vn

s4 = s4 + vs vs

Next

fb = (s1 - s2 s3 / n) / (s3 - s2 ^ 2 / n)

End Function

'实现 A = ……

Public Function fa(ByVal n As Long) As Double

Dim i As Long, s1 As Double, s2 As Double

s1 = 0: s2 = 0

For i = 1 To n

s1 = s1 + Log(fn(i)) / Log(10)

s2 = s2 + Log(fs(i)) / Log(10)

Next

fa = s1 / n - fb(n) s2 / n

End Function

界面放个按钮,复制代码过去,自己修改Wa,d,L,a的值,运行后点按钮出结果

Private Sub Command1_Click()

Dim Wa, d, L, a, result

Wa = 1

d = 1

L = 1

a = 1

PI = 314

result = 576 / (Wa a (Sqr(PI d) + Sqr(L)) / L)

MsgBox result

End Sub

以上就是关于vb程序代码中的梯形公式怎么编写全部的内容，包括:vb程序代码中的梯形公式怎么编写、用VB编写一个数学计算程序，完成数学公式 的计算。、高分求VB程序数学特殊公式输入编写方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！