• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы wolfFa
  • Дата начала Дата начала
W

wolfFa

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



просто что бы буквы выводил.
мне не надо что бы появлялось окошко для ввода. у меня вводится в текстбокс
 
написать программу что бы она из заданного текста выбрала и напечатала только те символы, которые встречаются только 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 раз

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

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

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 и знаменатель прогрессии а.
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Похожие темы