Обнулить цифры на четных позициях в пятизначном числе - VB

Формулировка задачи:

Вообщем простенькая задача как ее можно реализовать? Дано пятизначное число. Цифры на четных позициях занулить. Например, из 12345 получается число 10305

Код к задаче: «Обнулить цифры на четных позициях в пятизначном числе - VB»

textual
Dim Message, Title, Default, MyValue
Message = "Введите число от 1 до 3" ' Сообщение-подсказка.
Title = "Пример"    ' Заголовок.
Default = "1"   ' Значение по умолчанию.
' Выводит на экран сообщение, заголовок и значение по умолчанию.
MyValue = InputBox(Message, Title, Default)

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ