Ввести строку, удалить из неё все цифры, а знаки “+” заменить на” –“ и наоборот - VB
Формулировка задачи:
1. Ввести строку, удалить из неё все цифры, а знаки “+” заменить на” –“ и наоборот.
1. Ввести произвольное число, посчитать сумму его цифр.
2. Ввести строку, напечатать строку наоборот.
3. Ввести строку, посчитать, сколько раз в ней встречается заданный символ.
4. Ввести строку, посчитать, сколько раз в ней встречается каждая цифра, в ответе цифры расположить по возрастанию.
Решение задачи: «Ввести строку, удалить из неё все цифры, а знаки “+” заменить на” –“ и наоборот»
textual
Листинг программы
Private Sub Command1_Click() st = Text1 'обмен + и - st = Replace(st, "+", "~!@") st = Replace(st, "-", "+") st = Replace(st, "~!@", "-") 'удаление цифр For i = 0 To 9 st = Replace(st, i, "") Next msgbox st End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д