Найти число, полученное при перестановке первой и второй цифр заданного числа - VB
Формулировка задачи:
помогите пожалуйсто очень надо!!!!
Задали написать программу по BASICу покажите как PLEASE
"Дано трёх значное число. Найти число, полученное при перестановке первой и второй
цифр заданного числа"
Решение задачи: «Найти число, полученное при перестановке первой и второй цифр заданного числа»
textual
Листинг программы
Dim m As Integer
Dim l As Integer
Dim k As Integer
Dim x As Integer
x = CInt(Val(TextBox1.Text))
If x < 100 Then
MsgBox("Число не может быть меньше, чем 100", , "Ошибка!")
Else
If x > 999 Then
MsgBox("Число не может быть больше, чем 999", , "Ошибка!")
Else
l = x \ 100
x = x Mod 100
m = x \ 10
k = x Mod 10
x = l * 10 + m * 100 + k
TextBox3.Text = CStr(x)
End If
End If