Простая програмка на бейсике - VB

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

Не очень сложная программка)) Вопрос заключается в следующем... пользователь вводит числа, четные числа поменять на "1", нечетные на "2".. Должно быть так... Воодим 494, ответ 121..

Код к задаче: «Простая програмка на бейсике - VB»

textual
Private Sub Комманда3_Click() 
Dim число
Dim REZ
число = InputBox(" Введите число", "Вод данных")
If число <> "" Then
For I = 1 To Len(число)
REZ = REZ & IIf((Val(Mid(число, I, 1)) Mod 2) = 0, 2, 1)
Next I
End If
MsgBox REZ
End Sub

10   голосов, оценка 4.400 из 5


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