Ввести строку, удалить из неё все цифры, а знаки “+” заменить на” –“ и наоборот - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы