Предмет: Информатика,
автор: djilnar11
Напишите программу для вычеркивания из данного слова всех букв «К» и «G»; в visual basic
Ответы
Автор ответа:
1
VB у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры АААА(), а вторую процедуру разместите в любом доступном модуле, хоть в той же форме.
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.
Sub aaaa()
Dim s As Stringr
s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
DeleteChar s, "G"
DeleteChar s, "K"
MsgBox s
End Sub
Sub DeleteChar(ByRef s As String, c As String)
'Удаляем из строки s символ c
Dim k As Integer
Do
k = InStr(s, c)
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
Loop While k > 0
End Sub
Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.
Sub aaaa()
Dim s As Stringr
s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
DeleteChar s, "G"
DeleteChar s, "K"
MsgBox s
End Sub
Sub DeleteChar(ByRef s As String, c As String)
'Удаляем из строки s символ c
Dim k As Integer
Do
k = InStr(s, c)
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
Loop While k > 0
End Sub
Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED
djilnar11:
можно второй код с обьяснением
Dim k As Integer
s = InputBox("введите слово")
Do
k = InStr(s, "G")
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
k = InStr(s, "K")
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
Loop While k > 0
MsgBox s
End Sub
хотел вот так сделать, можно ли как нибудь каждую в отдельный цикл через and как нибудь
Похожие вопросы
Предмет: Английский язык,
автор: англичанин6
Предмет: Қазақ тiлi,
автор: elnazshaihystan
Предмет: Английский язык,
автор: iamdoctorwho
Предмет: Русский язык,
автор: dfhjke27
Предмет: Математика,
автор: steamlord5