vb提示无效过程调用或参数？哪里错了？

2025-04-01 04:47:16

推荐回答（2个）

回答1：

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

回答2：

Private Sub Command1_Click()
h0 = val(Text1(0).Text)
y = val(Text2.Text)
cg = val(Text3.Text)
.....
pk = val(Text15.Text)

最新问答

重庆巴南区李家沱有圆通和申通的公司地址嘛，？具体在那里？

工资比别人低，活比别人干得多，有编制和没编制有什么区别？

手机发烫该怎么解决？

桃之夭夭灼灼其华之子于归宜家宜室什么意思

辛弃疾是什么朝代的人

如果一个快递滞留中转站十五天那么这个快递会多久送到？