Простая програмка на бейсике - VB
Формулировка задачи:
Не очень сложная программка))
Вопрос заключается в следующем...
пользователь вводит числа, четные числа поменять на "1", нечетные на "2"..
Должно быть так... Воодим 494, ответ 121..
Решение задачи: «Простая програмка на бейсике»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д