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

[wolfFa]

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



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

 

[Jumpy]

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



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

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

dim COUNT as integer
dim a as integer
dim b as integer
dim LENGHT_TEXT as double
dim PODSTR as string

LENGHT_TEXT = len(text1.text) 'длина всего текста
PODSTR = ""
for a = 1 to 255 'цикл по всем символам
COUNT = 0 'обнуляем счетчик символов
for b = 1 to lenght_text 'цикл по всем символам в тексте
if chr(a) = mid(text1.text, b,1) then 'если нашщли интересующий нас символ, увеличиваем счетчик
COUNT = COUNT + 1
end if
next b

if COUNT = 1 then 'если во всем тексте символ встретился только 1 раз - запоминаем его занося в текстовую строку
PODSTR = PODSTR & "'" & chr(a) & "' "
end if
next a

call msgbox("Символы которые встречаются в тексте 1 раз: " & PODSTR) 'выводим все символы встретившиеся 1 раз

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

 

[XOXOJI]

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

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

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
алгоритм без всяких лишних переборов

 

[Nelly]

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