Судя по коду ошибки, компилятор кажись не нашел файл) создай новый файл и назови main.cpp (в смысле название короткое латинское), перезапусти Visual Studio и радуйся
Цикл «for k := 0 to 8 do» выполняется девять раз. Каждый раз переменная s уменьшается на 4. Поскольку изначально s = 50, после выполнения программы получим: s = 50 − 9 · 4 = 14.
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub
Количество различных значений = (50-(-50))/0.1+1 = 1001
Для записи результата потребуется log(2)1001 ≈ 10 бит