В исходной строке а$

определить и вывести слова, в которых первая буква встречается всего один раз. (Бэйсик)

Dim s, s1, s0, t As String 'строка, первая буква слова, слово, список нужных слов

s = InputBox ("Введите строку:")

Do

Do

n = n + 1

If s1 = "" Then s1 = Mid (s, n, 1) 'запоминаем первую букву слова

If Mid (s, n, 1) = s1 Then m = m + 1 'считаем, сколько раз она встретилась

s0 = s0 & Mid (s, n, 1) 'запоминаем слово

If n > Len (s) Then Exit Do

Loop While Mid (s, n, 1) " "

If m = 1 Then t = t & s0 'переносим слово в список

m = 0 'сбрасываем промежуточные переменные в исходное состояние

s1 = ""

s0 = ""

Loop Until n > Len (s)

If t = "" Then t = "Искомых слов нет"

MsgBox (t)