Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Самое маленькое\большое число Добавлено: 24.03.09 17:59  

Автор вопроса:  pa4ka-morda
К примеру у нас есть неопределенное кол-во чисел. И нужно выбрать из них самое маленькое/большое число. Каким образом?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #1 Добавлено: 24.03.09 18:51
Делается одним циклом, код абсолютно тривиален

Ответить

Номер ответа: 2
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
  Профиль | | #2 Добавлено: 24.03.09 23:24
Вот пример написал простой.
  1. Public Class Form1
  2.     Dim nomer(10) As Integer
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.         Dim max, min As Integer
  5.         Dim i As Integer
  6.         max = nomer(1)
  7.         min = nomer(1)
  8.         For i = 2 To 10
  9.             If max < nomer(i) Then max = nomer(i)
  10.             If min > nomer(i) Then min = nomer(i)
  11.         Next
  12.         MsgBox("Maximum = " & max & " Mininum = " & min)
  13.     End Sub
  14.  
  15.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  16.         Dim i As Integer
  17.         For i = 1 To 10
  18.             Dim rnd As Random
  19.             rnd = New Random
  20.             nomer(i) = i * rnd.Next(1, 100)
  21.             ListBox1.Items.Add(nomer(i).ToString)
  22.         Next
  23.     End Sub
  24. End Class

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам