Option ExplicitDim X, S, L As DoubleDim i, j, N, K As IntegerSub sdgs()Cells(1, 1) = "Podaj N"Cells(2, 1) = "Podaj X"Cells(3, 1) = "Wynik:" N = Cells(1, 2).Value X = Cells(2, 2).Value S = 0For i = 1 To N - 1 Step 1 K = 1For j = 1 To i Step 1 K = K * jNext j L = 6# ^ X S = S + ((X ^ i) * (Log(6#) ^ i)) / KNext iIf N = 1 Then Cells(3, 2) = 1If N > 1 Then Cells(3, 2) = S + 1End Sub
MOJE
Option Explicit
Dim X, S, w, a As Double
Dim i, j, N, K As Integer
Sub kp()
Cells(1, 1) = "wartość n"
Cells(2, 1) = "wartość x"
Cells(3, 1) = "wynik:"
N = Cells(1, 2).Value
X = Cells(2, 2).Value
S = 0
N = 1
a = 1
For i = 1 To N + 1 Step 1
K = 1
For j = 1 To i Step 1
K = K * j
Next j
w = 2# ^ X
S = a + ((X ^ i) * (Log(2#)) ^ i) / K
Next i
If N = 1 Then Cells(3, 2) = 1
If N < 100 Then Cells(3, 2) = S + 100
End Sub
JOHNKP