Написать программу для нахождения значения переменной s по формуле: s=ln1+ln2+…+ln n

А в чем трудность?
Dim i As Integer, S As Double, n As Integer
Print "Введите количество слагаемых n: ";
Input n
S = 0
For i = 1 To n
S = S + Log(i)
Next i
Print "Сумма S = " & Str(S)
End