FORMULKI Z BASICA, Szkoła, penek, Przedmioty, Informatyka


Dim i, n, s, a, k As Double

Private Sub TextBox1_Change() /N:okno wsprowadzania danych/

n = Val(TextBox1.Text)

TextBox2.Text = " "

End Sub

SUMA N WYRAZÓW Z CIĄGU

Private Sub CommandButton1_Click()

s = 0

For i = 1 To n

s = s + Cells(i, 1)

Next i

TextBox2.Text = s

End Sub

MNOŻY CO DRUGĄ LICZBĘ CIĄGU

Private Sub CommandButton5_Click()

s = 1

For i = 1 To n Step 2

s = s * Cells(i, 1)

Next i

TextBox2.Text = s

End Sub

LICZY ŚREDNIĄ Z N LICZB CIĄGU

Private Sub CommandButton3_Click()

s = 0

For i = 1 To n

s = s + Cells(i, 1)

Next i

s = s / n

TextBox2.Text = s

End Sub

SUMUJE CO DRUGĄ LICZBĘ Z CIĄGU

Private Sub CommandButton4_Click()

s = 0

For i = 2 To n Step 2

s = s + Cells(i, 1)

Next i

TextBox2.Text = s

End Sub

MNOŻY N LICZB Z CIĄGU

Private Sub CommandButton2_Click()

s = 1

For i = 1 To n

s = s * Cells(i, 1)

Next i

TextBox2.Text = s

End Sub

ZNAJDUJE NAJWIĘKSZĄ LICZBĘ Z CIĄGU

Private Sub CommandButton7_Click()

s = 0

k = 0

For i = 1 To n

a = Cells(i, 1)

If a Mod 2 = 1 Then

s = s + Cells(i, 1)

k = k + 1

Else

s = s

End If

Next i

If k <> 0 Then

s = s / k

TextBox2.Text = s

Else

TextBox2.Text = "brak nieparzystych"

End If

End Sub

ILOCZYN LICZB PARZYSTYCH Z CIĄGU

Private Sub CommandButton6_Click()

s = 1

For i = 1 To n

a = Cells(i, 1)

If a Mod 2 = 0 Then

s = s * Cells(i, 1)

Else

s = s

End If

Next i

TextBox2.Text = s

End Sub

ŚREDNIA LICZB NIEPARZYSTYCH Z CIĄGU

Private Sub CommandButton7_Click()

s = 0

k = 0

For i = 1 To n

a = Cells(i, 1)

If a Mod 2 = 1 Then

s = s + Cells(i, 1)

k = k + 1

Else

s = s

End If

Next i

If k <> 0 Then

s = s / k

TextBox2.Text = s

Else

TextBox2.Text = "brak nieparzystych"

End If

End Sub

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:
znajduje najmniejszą parzystą z ciągu, 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