помогите решить..могут отчислить..плизззз

написать программу что бы она из заданного текста выбрала и напечатала только те символы, которые встречаются только 1 раз( в том порядке в котором они встречаются в тексте). программа должна быть написана на Visual Basic 6.0



просто что бы буквы выводил.
мне не надо что бы появлялось окошко для ввода. у меня вводится в текстбокс

 

тупой, но по идее работающий вариант

алгоритм тупой - ибо делает кучу ненужных проверок, зато дубовый и простой )

 

сделать можно проще...

Разбить текстовую строку на массив...

dim mass() as string
dim k, i, j, m as integer
dim vrem, stroka as string
k=1
redim mass(k)
for i=1 to len(text1.text)
vrem=mid$(text1.text,i,1)
for j=1 to k
if vrem=mass(k) then
exit for
else
m=k+1
exit for
end if
next j
if m>k then
redim preserve mass(m)
mass(m)=vrem
k=m
end if
next i

' ну а дальше выводишь массив поочередно
for i=1 to k
stroka=stroka & mass(i)
next i
алгоритм без всяких лишних переборов

 

пожалуйста помогите решить задачу в Visual Basic
Распечатать значения N элементов ряда Фибоначчи,начиная с номера N1 по номер N2,известно что ее первый элемент а1 и знаменатель прогрессии а.