回复 4楼 Artless
Private p, tp, a, LE, D_Out, D_In, E_TS, v_TS, E_T, P_T, V As Double
Private Tube As t.t
Private Sub Command1_Click()
Call Tube.Tubesheet_via_Matrix_2(p, tp, a, LE, D_Out, D_In, E_TS, v_TS, E_T, P_T, V)
End Sub
Private Sub Form_Load()
Set Tube = New t.t
p = 0.03175
tp = 0.03175
a = 0.0508
LE = 12.192
D_Out = 0.0254
D_In = 0.0229
E_TS = 103400000000#
v_TS = 0.3
E_T = 186000000000#
P_T = 414000
V = 175000#
End Sub
其中t.t是由matlab函数生成的dll文件,以添加到引用里了,留个QQ或邮箱,我把那个m文件也发给你吧,谢谢