* n5 j* _5 F& D% j下面是我的第二个程序的代码 8 R! u; c' w* Z2 _9 L% S 9 O+ w I4 o& b& RPrivate Sub Form_Load()! [6 e+ s) E: H
2 l: }. M8 K' i. j 4 ]* V+ L" {# ~& PDim x As Double - M) E: u& a2 dDim y As Variant! @; J Z# g' f3 j
Dim mat As gh1' Y% T( w0 H) F- V% W! f
On Error GoTo handle_error4 R8 r3 w/ R. J8 E$ O: _/ N I
$ x: e8 D0 d+ m6 S5 Q
+ {: Y& ]4 b& V* b- x! m
Set mat = New gh1, h: K% `: s7 X5 _
x = 49 f3 d1 z+ E7 B3 o
y = 2 # T3 J4 U# b4 ~6 Y) GCall mat.gh(1, y, x)( B7 g/ A8 b' q' ^1 a
Set mat = Nothing 2 R( h+ `3 Y! a' YText2.Text = y ( a1 w! X# [# a8 h9 ~6 t2 o# V, i- X; Z" H! ]3 }' I
handle_error: MsgBox (Err.Description) 8 @9 W* Q+ }6 w' t* C" y# j3 u; K& U3 n5 E7 U3 v0 n9 H$ D
End Sub 4 O" d& [# z. n / o( H) f' E2 i P9 `Private Sub Text1_Change() 9 b0 ~, f: c% H tx = CDbl(Text1.Text)* u( z/ e' U, {1 F1 u# p8 l
End Sub2 c5 m F7 _5 q8 W& H4 _" j
5 k6 ~2 }; @1 e/ c! c
Private Sub Text2_Change()0 D& _, I3 K. f$ O5 r5 c- Y
Text2.Text = yEnd Sub! J: b" o! _* m$ x. v) l/ n
我估计是红字这,肯定错了但我也不知该改成什么 ,请高手帮忙。 0 P7 n3 Y9 a" W* w Z 本人 qq 1531145753