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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы