Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10 | Следующая страница реферата

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] -B>B D0:B 1K; 4>:070= 8725AB=KABL

=0 Этот факт был доказан известными математиками Абелеи и Галуа.

--------------------
[pic]

Знаки F(В) и F(C) разные

Корень обнаружен

СТОП

1

0

B=C

0

А=C

1

0

Рекомендуем скачать другие рефераты по теме: организация диплом, реферат диагностика.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки