VB 5.doc

Option explicit

Sub nowe()

Dim etat As String

For i = 1 To 7

    etat = Cells(1 + i, 1).Value

  Select Case etat

    Case "sprzedawca"

    Cells(1 + i, 3).Value = 8

    Case "kierownik"

    Cells(1 + i, 3).Value = 15

    Case "asystent"

    Cells(1 + i, 3).Value = 10

    End Select

    Next i

End Sub

Sub nowe_gorski_damian()

Dim etat As String

For i = 1 To 7

    etat = Cells(1 + i, 1).Value

If etat = "sprzedawca" Then

    Cells(1 + i, 3).Value = 8

    ElseIf etat = "kierownik" Then

    Cells(1 + i, 3).Value = 15

    ElseIf etat = "asystent" Then

    Cells(1 + i, 3).Value = 10

    Else 'wszystkie inne

    End If

    Next i

End Sub

Option explicit

Private Sub cmdOblicz_Click()

For i = 1 To 10

Cells(9 + i, 1).Value = i

Cells(9 + i, 2).Value = Sqr(i)

Cells(9 + i, 3).Interior.ColorIndex = i

Next i

End Sub

Option Explicit

Dim i As Single

Dim a(1 To 5), suma, k As Single

Option explicit

Private Sub cmdObliczWektor_Click()

For i = 1 To 5

a(i) = InputBox(("a(" & Str(i) & ")="))

Next i

suma = 0

For i = 1 To 5

suma = suma + a(i)

Next i

Cells(1, 1).Value = "Suma" & Str(suma)

End Sub

Option Explicit

Dim a, b, c, x1, x2, d As Single

Private Sub cmdOblicz_Click()

a = Cells(5, 3).Value

b = Cells(6, 3).Value

c = Cells(7, 3).Value

d = Val(b) * Val(b) - 4 * Val(a) * Val(c)

If d >= 0 Then

Cells(5, 5).Value = (-b - Sqr(d)) / 2 * a

Cells(6, 5).Value = (-b + Sqr(d)) / 2 * a

ElseIf d < 0 Then

Cells(7, 5).Value = "brak pierwiastków wymiernych"

End If

End Sub