znajduje najmniejszą parzystą z ciągu, Szkoła, penek, Przedmioty, Informatyka


ZNAJDUJE NAJMNIEJSZĄ PARZYSTĄ Z CIĄGU

Dim n, i, x, k, a, t(10), b As Double

Private Sub CommandButton1_Click()

i = 1

k = 0

a = 0

Do Until k = 1

If Cells(i, 1) Mod 2 = 0 Then

x = Cells(i, 1)

k = 1

Else

i = i + 1

If i > n Then

x = "Brak liczb parzystych w zakresie"

k = 1

End If

End If

Loop

For k = i To n

If Cells(k, 1) < x And Cells(k, 1) Mod 2 = 0 Then

x = Cells(k, 1)

a = a + 1

End If

Next k

TextBox2.Text = x

End Sub



Wyszukiwarka

Podobne podstrony:
FORMULKI Z BASICA, Szkoła, penek, Przedmioty, Informatyka
informatyka-Radzi, Szkoła, penek, Przedmioty, Technologia informacyjna
INFORMA, Szkoła, penek, Przedmioty, Technologia informacyjna
INFORMA2, Szkoła, penek, Przedmioty, Technologia informacyjna
Systemy Eksportowe są nurtem badań nad sztuczną inteligencją, Szkoła, penek, Przedmioty, Technologia
informa zaliczenie, Szkoła, penek, Przedmioty, Technologia informacyjna
TI v.2, Szkoła, penek, Przedmioty, Technologia informacyjna
INFORMATYK, Szkoła, penek, Przedmioty, Technologia informacyjna
INFORMATYKA-11, Szkoła, penek, Przedmioty, Technologia informacyjna
ściąga do ćwiczennia XII, Szkoła, penek, Przedmioty, Urządzenia nawigacyjne, Zaliczenie, egzamin, Ś
Chemia kataliza, Szkoła, penek, Przedmioty, Chemia, Laboratoria
Roztwory, Szkoła, penek, Przedmioty, Chemia, Laboratoria
stateczno SPR1, Szkoła, penek, Przedmioty, BISS, Laborki
LAB3, Szkoła, penek, Przedmioty, Fizyka, Laborki

więcej podobnych podstron