83525

End If Next End Sub

Sub liczbyO ' wprowadzanie liczb z InputBoxa do arkusza do momentu, gdy wpisze się zero

Dim licznik As Byte, liczba As Integer Do 'otwieramy pętlę

liczba = InputBox("Podaj kolejną liczbę") 'wprowdzamy kolejną liczbę

Gells(ActiveCell.Row, ActiveCell.Column + licznik).Value = liczba 'wpisujemy liczbę do

arkusza w wierszu od celi aktywnej

licznik = licznik + 1 'zwiększanie licznika pętli

Loop Umil liczba = 0 ' warunek stopu

End Sub

Sub liczbyl()' wprowadzanie liczb z lnputBoxa do arkusza do momentu, gdy wpisze się zero

'Jeśli zmienimy miejsce spradzenia warunku stopu program nie wypisze żadnej liczby -zastanów się dlaczego?

Dim licznik As Byte, liczba As Integer Do Until liczba = 0 ' warunek stopu

liczba = InputBox("Podaj kolejną liczbę") 'wprowdzamy kolejną liczbę

Cells(ActiveCell.Row, ActiveCell.Column + licznik). Value = liczba 'wpisujemy liczbę do

arkusza w wierszu od celi aktywnej

licznik = licznik + 1 'zwiększanie licznika pętli

Loop

End Sub

Sub powrót() 'oblicz wartość wielomianu w = x^A3 - x^A2 - 3 i zapytaj, czy kontynuować obliczenia

Dim msg As String, x As Integer

insg = vbYes 'domyślnie wciskamy przycisk TAK w MsgBox

Do Until msg = vbNo 'Pętla kręci się aż do mometu wciśnięcia przycisku NIE w MsgBoxie

x = InputBox("Podaj liczbę") 'wprowadź zmienną niezależną

msg = MsgBox( "Wartość wielomianu = "&x^A3-x^A2-3 & Chr(10) & Chr(13) &

"Czy liczymy dalej?", _

vbQuestion + vbYesNo, "DECYZJA") 'wyliczenie wartości wielomianu i pytanie o

kontynuację

Loop

MsgBox ("Koniec, dziękuję")

End Sub

Aftata Sobczak

miałam jakiś program i miałam powiedzieć dla jakiej wartości on się kończy, w 2 miałam