()
EE LE сEEBE/b>
EEH EEE
EGEE_________________.
.__________________________.
ACE/b>
Q, EEEE. .
.__________________________.
EE/i>
E E
()
(ρEEE EEE EAH E ED EL E)
C EEE/b>
5- EE/b>
EME 01.02
FEE EEEA
/FEE ../------------------------.
E EEEEEE/b>
/E ../------------------------.
28.X/1999 .
- 1999
LH EAH E EEE E BEEBHE EE ZE EE: EEE, EE EEEZE EEEE EEEEK @EH B EEAE EMEE, EEEEEVisual Basic for Applications 6.0 E CEEBEE E EEEEEAE. EEH EEECE @ EEEE ZEEE EEEBEE E EEEEZEEE.
1.
EBEE E E BEEBHE EE ZE EE : EE EELBEEG, EE EEEZE EEEE EEE EEE@E E EEE B EEAE EMEE. CE EBEEEEGJEE.
2.
2.1. EGEZEEE/b>
EL E EJEEG @EL E DEE, EEEL E EEE @ELH EME, EE EB ZEEED@E DE EAEB, EE ECAEEELD GE
E E E EBHE (1)
F(x)=a0
+a1
x+a2
x2
+Ean
xn
(1)
EE B@ E EE EE E EBEDG HM EZ, EE D@E CE EE EBHE, EE E E, 5 E EEE ZE EED @H, EE, EB E EE EBHE EZE(EEE E E EEEH @MEE) EM EE, E E E DG E EEE4, D .
[1]
āEEEEED @ ECE E EHDG E, EEEEEEM Z DE E EEEZ EE, EE EEE.
āE E E EBHE DJEEZEEE M E BME E GE E , E EEEZEEE EELBEEG.
2.2.1. C EEEZE (EEAZE
ZEEEBME E E EIE @EGEA EEG EBE EEEEEE EEEEE EEEZE EEEIE
ECE, EEEE CEM EE ( E EDEE EEEEEZE(E K). EEE EEAM E EE E L EE CE
CEEE:
- I F(x) EE ;
- @E EEEMEQ
-
E1
- E[ EE EBHE. (@FEEEA)
EE CE EEE EE
1. EER EEIE EEF(b)
2. EA EEG EEMEEBE EE E(3) E@F EbE/p>
3. EE IEE EFC EEF(a) EF(b).
4. E E EG EEBE EE E(2) E@F Ea'.
aEa- Da , E/b>
(2)
bEb- Db , E/b> (3)
@EE EE ME CE[aE, b], EVE(E @EGE EEEEME E-EDE EGEDG A.
5. EEE CE [aEb] MECE [a,b] EEA 1-4 EEE EE B F(b)-F(a) D E[ EEEE ELH EMEQ. EE EEE EEC EE EE G DEED F(a) E F(b).
EE E EEZE
EME EGC FEx)>0, EE EE Eb>a. EE CEZEED@E EGCZEIE EBEEABEEEA E @ E K, @E a Eb.
FEE E:
y y
F(x) F(x)
x x
EE
y y
F(x) F(x)
x x EE
E FEx) < 0
F(x) > 0
E FEx) > 0
F(x) > 0
E FEx) < 0
F(x) < 0
E FEx) > 0
F(x) < 0
сEE
|
сEEEEZE/b>
|
FEx)F(x) > 0
|
DEE/td> |
K |
FEx)F(x) < 0
|
EE/td> |
DEE/td> |
@E E E(EE) E EK, EE[ EE MEEH E EE EDEEE EE @GEEE E[ EE EEEEG EEEEMEEBE E
2 EE E EEZE
EE G EELH CEGEEGCMEIEF(x), EE EEEZEHM M E EBEMEAD, EE EEE EGCZEE @E EM KF EGEG ; EEDELK EGCME EH EEBHE EE EEE M , EHEE , EGEIEE CM, EGCME DELEEEBEMEE EDEE E EE L EE CB EEE EGC J , B@M E EE EEEZEEEEE, EE M CEE JD AEAED GE
2.2.2. C
EEE E EEZE@EEEEEKE EEE EME, EE EE EEEZEE L. EEE EEBML EA EEE EEE. EEEE EEE
- I F(x);
- @E EEEMEQ;
- @EE DEE [ a , b ], E GEDG.
- EE DEEEz, EEE[ a , b ] (Ez REEEEG)
āE EEG E EEG EEEE(1) X Z, EEE
x1
=F(z) (4)
E ECJ BM,
x2
=F(x1
)
x3
=F(x2
) (5)
E/b>
xn
=F(xn-1
)
@E EE DE EAEB, E E E (6)
limxn
=A, nv (6)
E EEEE.
ZEEEE EEM EE E EELE E, CE EE DE:
- D@EE RE EEG ( , EM EE, EEEEM EMEE
- EDE EELE EAEB EB EED CE, EEGE ED E
EQ EBMG CEEE E EE E E.
2.2.3. C EELBEEG (EE E)
C EELBEEG (ZE EEEEEEEG CEEEEE) EEE EZE EE EEEEA EK EEL EE
EE EELBEEG EE EEE
- I F(x);
- @E EEEMEQ;
- @EE DEE [ a , b ], E GEDG.
1. E EA , E R CE[a , b], EE = (a + b ) / 2 (7)
2. E E F(a), F(b), F(E), EBE E EAE: EF(E)>Q, E[ EMEB . EF(E)<Q, EE D@E B ED R, EEE [a , E] E[E , b] EA EF(a), F(b), F(E). ́EEU CM EA EIEECAE E EZ (E - EEEE[). M , EUE EZ, E E BM EEEE, EE EG E E a, E b.
3. C E EI 1.
E EEE E @E EE: EE E E E E(8)
: (8),
(9),
EEEEZEE EE E (9):
EECEZEE E EGEEDGE(1) E .
@E E EE EE E EHM EZE(E EEDME RE EEG EE EEG EEERE EEEED , EEE DM, E E E EC), M JD EEBEEE D EEG EEE E CEE EGCME EEMEE EEJ EE HEEE EEE EE ȁELEEE EE EELBEEG EE EBEMEAD.
2.2.4. C EE EEE/b>
ZEEEE EEB EE CE EEB EC . ÁE EEEE E , EELK E D EGC E EZEE. ρE EE
EEBHEEF(x) = 2x3
-11x2
+20x-12 (11)
EEE E: F(x) = (x+2)2
(2x-3) (12)
EBHE n-E EEM, n E, E (12) E EEE F(x) E E1,5, E E[ E E EZE EE EE ECA E. CEGE E EE @ZEEEAH E[ E EEEE EE IEEEE EEEG EBE E/p>
EE EEEE EEE EEEE EEE E EBHEE (1) EEEEE (x+h1
)(x+h2
)Ex+hn
)*H = 0 (13) ,
E F(x) = (x+h)(bn-1
xn-1
+E1
)+b0
(14)
Eh1En EEEDG, E EEG EE E DL @E ( GEED E DGE EE C D , E @EE (13). ED EM, EDEEh EE EEE EE EEEEEEM E.
āE E MEEQA E(14) EE E
bn
=an
bn-1
=bn
h+an-1
(15)
bn-2
=bn-1
h+an-2
E
@E E EEE@E
1. EE EE DG;
2. EE E @ZEEEEC E[ DG;
3. EE E (14) E(15) AE MEEBHEEE 1 E[EEE
4. RE E EI 2.
5. AE E EE EE EEBHE D @RE.
EEEEA EBEMEAD EEEE EAE .
3.
E G EAE E EEBEAE Visual Basic for Applications E CEEBEE E EEEBHE EEEB.
3.1. EGEEBEZEEEE/b>
EEBEEE EK EUE@EM-AQAM EBEAE, EE E @ELH EAEB EDEDE E E EBEE EE EEEBE E EEE.
E EBEEGE E EEE C EE C R EGEEE (EEEE D ), EH EEEZ EGEE IE
Public function F(x). EE, EBHE EBE E
Public function DetectBorders. FEEE, M ( 7 , 8, 9 ).
Public sub Gra EEGE C EGEE
3.2. EGE
E BME E EBEE EEEEM E EELBEEG. AE IEEEE ECM EE EE
- E @E GEH EE E EEE EGE EE E EEEL;
- GGE E(EE D@E I EEEEE Z EEM EEH E EEEB II);
- EE E E E ED EC BEZE(EKEEH
3.2.1. AE Form_Main
E EH H EBEE ÁED EE, EJEEEEEEEEE ED@EEE, EEE EE EBEE
3.2.2. AE Form_Koeff
EE EQEEBHE.
.
āE G EQEEsub>0 D@E E EE 0.
3.2.3.AE Form_Mnogo
3.2.4.AE Form_WP
EE E EDE E EE EEEJ EEEEE
3.2.5. AE Form_Korni
A EM EDEEEE EE E (Sub FindKor) EE E E/EEZE
E HEE@EE EE EEEEGE EEM EE E EE EGCME
Public sub FF* EEGE C EGCME
Public sub Horda_Kasatelnye E EGE E EEE E E EEEZE
Public sub Find_Kor EEGE E EEE E EEELBEEG CE
.
EAE E EDE@EE E2. E EE EGCMECE EEBE EEEE EQEEEEEE E E E EJ EE@E EGCR, EEEEEE C EDH EPQE
4.
E EEE G EAE E EEBEEVI Function 2.0 , E EEBE EBHE (1) EEEB EEEEEE
EEEG CEEEEE
EE E EEZE(EEAZE
EEEGEEBEEE EMEE EEBHE EZEE, E @G EEEE EBEE
E EE EE
5.
1. .. , .. ݁EEQEM EEEE @E EE@. BEE E, 1979
2. EE.. EL E. BEE E, 1978
3. EE.., E.., ́EEE.. EEZEE. BEE E, 1976
4. . . Visual Basic for Applications 6.0 E EGE, E BHV
6.
6.1. EEBEEBHE EE E/p>
E
M F(x) = 3x2
+5x-8
EEEE E 6.1
HMEQ = 0,0001
L EE x = -2,66666669921875 EE/p>
x= 0,99991015625 E
L EE x = -2,66667654214111 EE/p>
x= 0,99981915025 EEEZE/p>
E 6.1
6.2. EEEEEELBE EG
A = E E/p>
= EE E
C E
F(x) - I
6.3. EEEEEE E EE EEEZE/p>
A = E E/p>
= EE E
F(x) - I
6.4 AC EEE.
BE EEEBEEEEEE ÁED EE, EEEE EEEEBEE
|
FE EZE EDGE |
|
C E IM, EEEC@E E EBHE, EEEEEGCZEEBEEABEEEA (A BEE E@I FEX), FEX), F(X) |
|
C E IM CEEQA |
|
C IE/td> |
|
EIM, EEEEE |
|
C IM EBE |
|
EBE, EEM EB E EDGE/td> |
EEQA BEE EE@E E EE ID E 2 EE ECM E E D CE M EQE EEECEDE I, E EE@E E, EEG EQEE, CEEE
G E E EE HM EDEE B EEEEEE: EZEE EEAZE
6.5. CZEEEEBEE/b>
UNIT1
Dim curcell As Range
Dim ma As Double
Dim Ao As Double
Public Function F(x As Variant)
F = (x ^ 20 * Range("a20").Value) + (x ^ 19 * Range("a19").Value) + (x ^ 18 * Range("a18").Value) + (x ^ 17 * Range("a17").Value) + (x ^ 16 * Range("a16").Value) + (x ^ 15 * Range("a15").Value) + (x ^ 14 * Range("a14").Value) + (x ^ 13 * Range("a13").Value) + (x ^ 12 * Range("a12").Value) + (x ^ 11 * Range("a11").Value) + (x ^ 10 * Range("a10").Value) + (x ^ 9 * Range("a9").Value) + (x ^ 8 * Range("a8").Value) + (x ^ 7 * Range("a7").Value) + (x ^ 6 * Range("a6").Value) + (x ^ 5 * Range("a5").Value) + (x ^ 4 * Range("a4").Value) + (x ^ 3 * Range("a3").Value) + (x ^ 2 * Range("a2").Value) + (x * Range("a1").Value) + Range("a21").Value
End Function
Public Function F1(x As Variant)
F1 = (x ^ 20 * Range("j20").Value) + (x ^ 19 * Range("j19").Value) + (x ^ 18 * Range("j18").Value) + (x ^ 17 * Range("j17").Value) + (x ^ 16 * Range("j16").Value) + (x ^ 15 * Range("j15").Value) + (x ^ 14 * Range("j14").Value) + (x ^ 13 * Range("j13").Value) + (x ^ 12 * Range("j12").Value) + (x ^ 11 * Range("j11").Value) + (x ^ 10 * Range("j10").Value) + (x ^ 9 * Range("j9").Value) + (x ^ 8 * Range("j8").Value) + (x ^ 7 * Range("j7").Value) + (x ^ 6 * Range("j6").Value) + (x ^ 5 * Range("j5").Value) + (x ^ 4 * Range("j4").Value) + (x ^ 3 * Range("j3").Value) + (x ^ 2 * Range("j2").Value) + (x * Range("j1").Value) + Range("j21").Value
End Function
Public Function F2(x As Variant)
F2 = (x ^ 20 * Range("m20").Value) + (x ^ 19 * Range("m19").Value) + (x ^ 18 * Range("m18").Value) + (x ^ 17 * Range("m17").Value) + (x ^ 16 * Range("m16").Value) + (x ^ 15 * Range("m15").Value) + (x ^ 14 * Range("m14").Value) + (x ^ 13 * Range("m13").Value) + (x ^ 12 * Range("m12").Value) + (x ^ 11 * Range("m11").Value) + (x ^ 10 * Range("m10").Value) + (x ^ 9 * Range("m9").Value) + (x ^ 8 * Range("m8").Value) + (x ^ 7 * Range("m7").Value) + (x ^ 6 * Range("m6").Value) + (x ^ 5 * Range("m5").Value) + (x ^ 4 * Range("m4").Value) + (x ^ 3 * Range("m3").Value) + (x ^ 2 * Range("m2").Value) + (x * Range("m1").Value) + Range("m21").Value
End Function
Public Sub Gra()
Sheets("E").Select
Range("e1").Select
For i = -10 To 10
ActiveCell.Value = F(i)
ActiveCell.Cells(2).Select
Next i
End Sub
Public Function DetectBorders()
' EE @EG E E
ma = 0
For Each curcell In Range("Koeffs")
If curcell.Value > ma Then ma = curcell.Value
If curcell.Value <> 0 Then Ao = curcell.Value
Next curcell
DetectBorders = 1 + (ma * Ao)
End Function
UNIT2
Sub auto_open()
Sheets("E").Select
Form_Main.Show
End Sub
FORM_ABOUT
Private Sub CommandButton1_Click()
Form_About.Hide
End Sub
FORM_KOEFF
Private Sub CommandButton1_Click()
ko = TextBox1.Value
st = TextBox2.Value
Select Case st
Case 0
Range("A21").Value = ko
Case 1
Range("A1") = ko
Case 2
Range("A2") = ko
Case 3
Range("A3") = ko
Case 4
Range("A4") = ko
Case 5
Range("A5") = ko
Case 6
Range("A6") = ko
Case 7
Range("A7") = ko
Case 8
Range("A8") = ko
Case 9
Range("A9") = ko
Case 10
Range("A10") = ko
Case 11
Range("A11") = ko
Case 12
Range("A12") = ko
Case 13
Range("A13") = ko
Case 14
Range("A14") = ko
Case 15
Range("A15") = ko
Case 16
Range("A16") = ko
Case 17
Range("A17") = ko
Case 18
Range("A18") = ko
Case 19
Range("A19") = ko
Case 20
Range("A20") = ko
Case Else
MsgBox ("C EEE ")
st = st - 1
End Select
TextBox1.Value = 0
TextBox2.Value = st + 1
End Sub
Private Sub CommandButton2_Click()
Form_Koeff.Hide
End Sub
Private Sub CommandButton3_Click()
Range("a1").Value = 0
Range("a2").Value = 0
Range("a3").Value = 0
Range("a4").Value = 0
Range("a5").Value = 0
Range("a6").Value = 0
Range("a7").Value = 0
Range("a8").Value = 0
Range("a9").Value = 0
Range("a10").Value = 0
Range("a11").Value = 0
Range("a12").Value = 0
Range("a13").Value = 0
Range("a14").Value = 0
Range("a15").Value = 0
Range("a16").Value = 0
Range("a17").Value = 0
Range("a18").Value = 0
Range("a19").Value = 0
Range("a20").Value = 0
Range("a21").Value = 0
End Sub
Private Sub UserForm_initialize()
st = 0
ko = 0
TextBox1.Value = ko
TextBox2.Value = st
End Sub
FORM_KORNI
Private Sub CommandButton1_Click()
ListBox1.Clear
TextBox1.Value = 0
Form_Korni.Hide
End Sub
Private Sub CommandButton2_Click()
Range("Toc").Value = TextBox1.Value
Call FindKor
'Call Perenos
End Sub
Sub FindKor()
Range("Curright") = Range("Right").Value
Range("Curleft") = -Range("Right").Value - 0.333
'Range("right").Value = DetectBorders
Range("Stepleft").Value = Range("right").Value * (-1) - 0.333
Do
nashli = False
Call MoveLe
If Sgn(F(Range("curleft").Value)) = Sgn(F(Range("curright").Value)) Then
End If
If Sgn(F(Range("curleft").Value)) <> Sgn(F(Range("curright").Value)) Then
Do
' nashli = True
Range("Curcenter").Value = ((Range("curleft").Value) + (Range("curright").Value)) / 2
If Abs(F(Range("Curcenter").Value)) > Range("toc").Value Then If Sgn(F(Range("curleft").Value)) <> Sgn(F(Range("curcenter").Value)) Then Range("curright").Value = Range("curcenter").Value Else: Range("curleft").Value = Range("curcenter").Value
If Abs(F(Range("Curcenter").Value)) <= Range("toc").Value Then ListBox1.AddItem (Range("Curcenter").Value)
Range("Koren").Value = Range("Curcenter").Value
Loop Until Abs(F(Range("Curcenter").Value)) <= Range("toc").Value
End If
Loop Until Range("Stepleft").Value > Range("right").Value Or nashli = True
End Sub
Sub Horda_Kas()
'Sub FindKor()
Range("Curright") = Range("Right").Value
Range("Curleft") = -Range("Right").Value - 0.333
'Range("right").Value = DetectBorders
Range("Stepleft").Value = Range("right").Value * (-1) - 0.333
Do
MoveLe
If Sgn(F(Range("curleft").Value)) <> Sgn(F(Range("curright").Value)) Then
Do
' nashli = True
If F1(Range("curleft").Value) * F2(Range("curleft").Value) > 0 Then
Range("curleft").Value = Range("curleft").Value - ((Range("curright").Value - Range("curleft").Value) * (F(Range("Curleft").Value) / (F(Range("Curright").Value - F(Range("Curleft").Value)))))
Range("Curright").Value = Range("curright").Value - F(Range("curright").Value) / F1(Range("curright").Value)
End If
If F1(Range("curleft").Value) * F2(Range("curleft").Value) < 0 Then
Range("curright").Value = Range("curleft").Value - ((Range("curright").Value - Range("curleft").Value) * (F(Range("Curleft").Value) / (F(Range("Curright").Value - F(Range("Curleft").Value)))))
Range("Curleft").Value = Range("curright").Value - F(Range("curright").Value) / F1(Range("curright").Value)
End If
If Abs(Abs(F(Range("Curright").Value))) - Abs(F(Range("Curleft").Value)) <= Range("toc").Value Then
'MsgBox (Range("curleft").Value)
ListBox1.AddItem (Range("Curright").Value)
'If ((Range("Curleft").Value) + (Range("Curright").Value)) > 0 Then ListBox1.AddItem (((Range("Curleft").Value) + (Range("Curright").Value)) / 2)
'If ((Range("Curleft").Value) + (Range("Curright").Value)) < 0 Then ListBox1.AddItem (((Range("Curleft").Value) + (Range("Curright").Value)) / 2)
Range("Koren").Value = Range("Curleft").Value
End If
Loop Until Abs(F(Range("Curright").Value)) - Abs(F(Range("Curleft").Value)) <= Range("toc").Value
End If
Loop Until Range("Stepleft").Value > Range("right").Value Or nashli = True
End Sub
Sub MoveLe()
Range("stepleft").Value = Range("stepleft").Value + 0.333
Range("curLeft").Value = Range("stepleft").Value
Range("Curright").Value = Range("Curleft").Value + 0.333
Range("Curcenter").Value = ((Range("curleft").Value) + (Range("curright").Value)) / 2
End Sub
Private Sub CommandButton3_Click()
Horda_Kas
End Sub
Private Sub UserForm_Deactivate()
ListBox1.Clear
TextBox1.Value = 0
End Sub
Sub Perenos()
Range("a1").Value = Range("L1").Value
Range("a2").Value = Range("L2").Value
Range("a3").Value = Range("L3").Value
Range("a4").Value = Range("L4").Value
Range("a5").Value = Range("L5").Value
Range("a6").Value = Range("L6").Value
Range("a7").Value = Range("L7").Value
Range("a8").Value = Range("L8").Value
Range("a9").Value = Range("L9").Value
Range("a10").Value = Range("L10").Value
Range("a11").Value = Range("L11").Value
Range("a12").Value = Range("L12").Value
Range("a13").Value = Range("L13").Value
Range("a14").Value = Range("L14").Value
Range("a15").Value = Range("L15").Value
Range("a16").Value = Range("L16").Value
Range("a17").Value = Range("L17").Value
Range("a18").Value = Range("L18").Value
Range("a19").Value = Range("L19").Value
End Sub
FORM_MAIN
Private Sub CommandButton1_Click()
Form_Koeff.Show
End Sub
Private Sub CommandButton2_Click()
Form_Mnogo.Show
End Sub
Private Sub CommandButton3_Click()
Gra
Form_Main.Height = 84
Sheets("D1").Select
Form_WP.Show
Form_Main.Height = 360
Sheets("E").Select
End Sub
Private Sub CommandButton4_Click()
Form_Korni.Show
End Sub
Private Sub CommandButton5_Click()
Application.Quit
End Sub
Private Sub CommandButton7_Click()
Form_About.Show
End Sub
Private Sub CommandButton8_Click()
ActiveWorkbook.Save
End Sub
Private Sub UserForm_initialize()
Sheets("E").Select
Form_Main.Height = 360
End Sub
FORM_MNOGO
Dim mn As String
Private Sub CommandButton1_Click()
Form_Mnogo.Hide
End Sub
Private Sub UserForm_activate()
mn = "F(x)="
If Range("a20") > 0 Then mn = mn + Range("a20").Text + "X^20"
If Range("a20") < 0 Then mn = mn + Range("a20").Text + "X^20"
If Range("a19") > 0 Then mn = mn + " + " + Range("a19").Text + "X^19"
If Range("a19") < 0 Then mn = mn + Range("a19").Text + "X^19"
If Range("a18") > 0 Then mn = mn + " + " + Range("a18").Text + "X^18"
If Range("a18") < 0 Then mn = mn + Range("a18").Text + "X^18"
If Range("a17") > 0 Then mn = mn + " + " + Range("a17").Text + "X^17"
If Range("a17") < 0 Then mn = mn + Range("a17").Text + "X^17"
If Range("a16") > 0 Then mn = mn + " + " + Range("a16").Text + "X^16"
If Range("a16") < 0 Then mn = mn + Range("a16").Text + "X^16"
If Range("a15") > 0 Then mn = mn + " + " + Range("a15").Text + "X^15"
If Range("a15") < 0 Then mn = mn + Range("a15").Text + "X^15"
If Range("a14") > 0 Then mn = mn + " + " + Range("a14").Text + "X^14"
If Range("a14") < 0 Then mn = mn + Range("a14").Text + "X^14"
If Range("a13") > 0 Then mn = mn + " + " + Range("a13").Text + "X^13"
If Range("a13") < 0 Then mn = mn + Range("a13").Text + "X^13"
If Range("a12") > 0 Then mn = mn + " + " + Range("a12").Text + "X^12"
If Range("a12") < 0 Then mn = mn + Range("a12").Text + "X^12"
If Range("a11") > 0 Then mn = mn + " + " + Range("a11").Text + "X^11"
If Range("a11") < 0 Then mn = mn + Range("a11").Text + "X^11"
If Range("a10") > 0 Then mn = mn + " + " + Range("a10").Text + "X^10"
If Range("a10") < 0 Then mn = mn + Range("a10").Text + "X^10"
If Range("a9") > 0 Then mn = mn + " + " + Range("a9").Text + "X^9"
If Range("a9") < 0 Then mn = mn + Range("a9").Text + "X^9"
If Range("a8") > 0 Then mn = mn + " + " + Range("a8").Text + "X^8"
If Range("a8") < 0 Then mn = mn + Range("a8").Text + "X^8"
If Range("a7") > 0 Then mn = mn + " + " + Range("a7").Text + "X^7"
If Range("a7") < 0 Then mn = mn + Range("a7").Text + "X^7"
If Range("a6") > 0 Then mn = mn + " + " + Range("a6").Text + "X^6"
If Range("a6") < 0 Then mn = mn + Range("a6").Text + "X^6"
If Range("a5") > 0 Then mn = mn + " + " + Range("a5").Text + "X^5"
If Range("a5") < 0 Then mn = mn + Range("a5").Text + "X^5"
If Range("a4") > 0 Then mn = mn + " + " + Range("a4").Text + "X^4"
If Range("a4") < 0 Then mn = mn + Range("a4").Text + "X^4"
If Range("a3") > 0 Then mn = mn + " + " + Range("a3").Text + "X^3"
If Range("a3") < 0 Then mn = mn + Range("a3").Text + "X^3"
If Range("a2") > 0 Then mn = mn + " + " + Range("a2").Text + "X^2"
If Range("a2") < 0 Then mn = mn + Range("a2").Text + "X^2"
If Range("a1") > 0 Then mn = mn + " + " + Range("a1").Text + "X"
If Range("a1") < 0 Then mn = mn + Range("a8").Text + "X"
If Range("a21") > 0 Then mn = mn + " + " + Range("a21").Text
If Range("a21") < 0 Then mn = mn + Range("a21").Text
TextBox1.Value = mn
End Sub
FORM_WP
Private Sub Label1_Click()
Call Gra
End Sub
Private Sub CommandButton1_Click()
Sheets("D1").Print
End Sub
Private Sub CommandButton2_Click()
Form_WP.Hide
Call Gra
End Sub
Private Sub UserForm_Click()
Form_WP.Hide
End Sub
____________________________
VoID InVaSiON HG
VI Function 2.0 beta
[1]
EE EEEZE EEEE EEE.
|