Приветствую Вас Гость | RSS
Пятница
29.03.2024, 08:32
Прорвемся!
Главная Каталог статей Регистрация Вход
Меню сайта

Категории раздела
Мои статьи [0]
Basic-256 [7]
Программирование в среде Basic-256. Школьный Линукс
Gambas [3]
Программирование в объектно-ориентированной среде

Сервис проверки

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа


Главная » Статьи » Gambas

Сортировка чисел

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)
Просмотров: 772 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск

Друзья сайта
  • Уроки информатики и ИКТ
  • Школьный сайт

  • Copyright MyCorp © 2024
    Сайт создан в системе uCoz