Версия для слабовидящих

Задача 1. Даны две целые переменные a, b. Составить фрагмент программы, после исполнения которого значения переменных поменялись бы местами (новое значение a равно старому значению b и наоборот).

Решение на Бейсик:
INPUT a, b
t = a
a = b
b = t
PRINT a, b

Так как INPUT не работает на Gambas, то вводить данные можно либо в TextBox, либо используя InputBox. Я считаю, что по аналогии с Бейсик лучше подходит InputBox.

Программный код:
PUBLIC SUB Button1_Click()
DIM a, b, t AS Integer
a = InputBox("Введите 1-е число", "Ввод 1-го числа")
b = InputBox("Введите 2-е число", "Ввод 2-го числа")
t = a
a = b
b = t
Label1.Text = a
Label2.Text = b
END

На форму добавлен цвет, чтобы лучше видеть объекты на картинке. С учащимися этого делать не буду.

При наличии времени можно предложить учащимся дополнить программный код, чтобы оформить решение задачи, например, так:

Изменённый программный код:
PUBLIC SUB Button1_Click()
DIM a, b, t AS Integer
a = InputBox("Введите 1-е число", "Ввод 1-го числа")
Label4.Text = a
b = InputBox("Введите 2-е число", "Ввод 2-го числа")
Label6.Text = b
t = a
a = b
b = t
Label1.Text = a
Label2.Text = b
END

На форму добавлено несколько меток.

[Вверх]

Сайт управляется системой uCoz