Написать программу для
нахождения значения переменной 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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.