Замена символов на звездочки - VB

Узнай цену своей работы

Формулировка задачи:

Вот такое задание получила, не могу понять как это сделать.. Запрашивается у пользователя слово (не менее 5 символов) и выдается в окне откладки это слово: символы между первой и последней буквы заменяются на звездочки. Ну например, вводишь:слово "проблема" а выдается "п******а". Может кто-нибудь помочь? Очень нужно!

Решение задачи: «Замена символов на звездочки»

textual
Листинг программы
Function p$(Optional S$ = "проблема")
  p = Left(S, 1) & String(Len(S) - 2, "*") & Right(S, 1)
End Function

Оцени полезность:

9   голосов , оценка 4.222 из 5