| Категории раздела |
|
Мои статьи [0]
|
|
Basic-256 [7]
Программирование в среде Basic-256. Школьный Линукс
|
|
Gambas [3]
Программирование в объектно-ориентированной среде
|
|
| Сервис проверки |
 |
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Сортировка чисел
Public Sub Button1_Click()
Dim a, b, c, x, y, z As Single
a = ValueBox1.Value
b = ValueBox2.Value
c = ValueBox3.Value
x = a
y = a
z = a
If b < x Then
x = b
Else
y = b
z = b
Endif
If c < x Then
x = c
Endif
If c < y Then
y = c
Else
z = c
Endif
ValueBox4.Value = x
ValueBox5.Value = y
ValueBox6.Value = z
End |
| Категория: Gambas | Добавил: klop (28.05.2012)
|
| Просмотров: 1008
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
|
Главная 