Определить, можно ли из символов заданной строки составить вашу фамилию

@HunterDron · Регистрация: 06.03.2012

Студворк — интернет-сервис помощи студентам

Есть две строки : "a" - куча рандомных букв, "b"- фамилия

Я брал один первый символ своей фамилии (строка "b" ) и искал её первое вхождение в строку "a" . Если есть такое вхождение , удалял этот символ из строки "a" ( Для того чтобы обойти повторные символы ) и добавлял к счетчику n=n+1 (n - получается количество наших совпадений) . В конце , если количесво совпадений "n" равняется количеству букв нашей фамилии, то можно составить. Вот код мой :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Процедура сравнения символов двух строк
    Sub Vychis(ByVal a As String, ByVal b As String)
 
        Dim t As String
        Dim i, n, j As Integer
 
        n = 0
 
        'Счетчик, определяющий количество сопадений символов
        For i = 1 To Len(b)
 
            t = Mid(b, i, 1)
            If InStr(a, t) <> 0 Then n = n + 1 : a = a.Remove(j, 1)
 
        Next i
 
        If n = Len(b) Then TextBox3.Text = "Можно" Else TextBox3.Text = "Нельзя"
        MsgBox(n, MsgBoxStyle.Information, "Количество совпадений")
 
    End Sub

На первый взгляд все работало отлично, пока я не поменял буквы местами

В итоге я нашел ошибку, что функция " a = a.Remove(j, 1) " не удаляет наше совпадение, а удаляет что-то другое.
Так вот собственно нужна помощь:
Что прописать нужно вместо "j" , чтобы она удалила именно совпадение ?

SoftIce · 06.03.2012, 23:53

INSTR Возвращает значение типа Variant(Long), указывающее позицию первого появления одной строки внутри другой

Поэтому вместо j , наверное, надо поставить INSTR(a, t). Я не проверял, но думаю так. А j у тебя всё время = 0.

@gaw · 06.03.2012, 23:55

INSTR(a, t)

Добавлено через 44 секунды
блин,

@HunterDron · 07.03.2012, 00:06 **[ТС]**

INSTR Возвращает значение типа Variant(Long), указывающее позицию первого появления одной строки внутри другой

Поэтому вместо j , наверное, надо поставить INSTR(a, t). Я не проверял, но думаю так. А j у тебя всё время = 0.

INSTR(a, t)

Добавлено через 44 секунды
блин,

Не вариант, это первое , что я ставил туда.
Получается чушь какая-то (скрин)

пишет что "n" оно насчитало 2, хотя должно быть 4

@gaw · 07.03.2012, 00:39

Visual Basic
1
2
3
4
5
6
7
        For i = 1 To Len(b)
 
            t = Mid(b, i, 1)
'IF INSTR(a, t) <> 0 THEN n = n + 1 : a = a.Remove(j, 1)
            If InStr(a, t) <> 0 Then n = n + 1: Mid(a, InStr(a, t), 1) = " "
 
        Next i

@HunterDron · 08.03.2012, 11:18 **[ТС]**

Сообщение от gaw

Visual Basic
1
2
3
4
5
6
7
        For i = 1 To Len(b)
 
            t = Mid(b, i, 1)
'IF INSTR(a, t) <> 0 THEN n = n + 1 : a = a.Remove(j, 1)
            If InStr(a, t) <> 0 Then n = n + 1: Mid(a, InStr(a, t), 1) = " "
 
        Next i

Вот оно! Блин , а это вариант, не подумал что так можно удалить. Спасибо большое за помощь, все работает без единого бага!

можно закрывать)

и еще раз спасибо уважаемому gav

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	06.03.2012, 23:53
	INSTR Возвращает значение типа Variant(Long), указывающее позицию первого появления одной строки внутри другой Поэтому вместо j , наверное, надо поставить INSTR(a, t). Я не проверял, но думаю так. А j у тебя всё время = 0. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	06.03.2012, 23:55
	INSTR(a, t) Добавлено через 44 секунды блин, 2