Dim h0 As Variant, y As Variant, cg As Variant, hz As Variant
Dim tn1 As Variant, tn As Variant, tw As Variant
Dim v0 As Variant, cf As Variant, cr As Variant, a1 As Variant, pw As Variant
Dim wk As Variant, wg As Variant, pk As Variant, pg As Variant, mk As Variant, mg As Variant
Dim h As Variant, x As Variant, ch As Variant, c As Variant, m As Variant, v As Variant, f As Variant, l As Variant, q As Variant
Private Sub Command1_Click()
h0 = Text1(0).Text
y = Text2.Text
cg = Text3.Text
hz = Text4.Text
tn1 = Text5.Text
tn = Text6.Text
tw = Text7.Text
v0 = Text8.Text
cf = Text9.Text
cr = Text10.Text
a1 = Text11.Text
pw = Text12.Text
wk = Text13.Text
wg = Text14.Text
pk = Text15.Text
pg = Text16.Text
mk = Text17.Text
mg = Text18.Text
n = 0.2
For x = 1 To y
h = h0 + x * cg * 0.5
ch = 0.3 * h ^ 0.4
c = 70 * (hz - h) * (tn1 - tw) / (273 + tn1) / v0 / v0 / cf / (h ^ 0.4)
m = cr * cf * (n ^ (1 / 0.67) + c) * ch
l = a1 * (pw * v0 * v0 / 2) ^ 0.67
f = wk * 2 + wg * 3 + pk * 2 + pg * 2 + mk * 2 + mg * 2
v = l * f * m ^ 0.67
q = 0.278 * pw * v * (tn - tw)
Print h
Print ch
Print m
Print L0
Print f
Print v
Print q
Next x
End Sub
Private Sub Form_Load()
End Sub
Private Sub Command1_Click()
h0 = val(Text1(0).Text)
y = val(Text2.Text)
cg = val(Text3.Text)
.....
pk = val(Text15.Text)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024