-       () - 50

 

            

 

()

 

             

()

()

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 EEEEEE/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 EEECEDE 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.