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

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

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

Сайт за 10 минут
WoWeb.ru - портал для веб-мастера
Топ сайтов Юкоз

Статистика

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

My-Shop Учебники

Реклама

Партнер
Хочешь заработать в Интернете? Жми сюда!

Форма входа


Что нового?

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

Сегодня
clock for blog free часы для сайтов

Друзья сайта
  • Уроки информатики и ИКТ
  • Школьный сайт
  • Сайт школьного округа
  • Сайт РМО Кытмановского района
  • Комитет администрации Кытмановского района по образованию
  • Официальный сайт Кытмановского района
  • Клуб УГА
  • Современный учительский портал
  • Центр методической поддержки внедрения ПСПО в Алтайском крае
  • Стихи и песни моего сына
  • Группа IdeA в контакте

  • Погода в доме

    Внимание!

    Сайт РМО

    Удаленный доступ

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