Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Переменные, массивы, числа  
     
  Генерация последовательности неповторяющихся чисел  
  Вторая версия примера для создания последовательности неповторяющихся чисел. Первый пример смотрите на этой странице.
Private Sub Form_Paint()
Dim genNum As Integer
Dim check As Boolean
Dim sNum 'число для задания верхней границы массива
sNum = 25
ReDim mass(sNum)
Randomize
For x = 1 To sNum
Do
genNum = Int((sNum - 1 + 1) * Rnd + 1)
For y = x To 1 Step -1
If genNum = mass(y) Then
check = False
Exit For
Else
check = True
End If
Next y
Loop Until check = True
If check = True Then
mass(x) = genNum
End If
Next x

For i = 1 To sNum
Print mass(i)
Next
' Coding by Anthony Ho Leong Mi <hlm_82@yahoo.com>
End Sub
 
     
  VBNet online (всего: 51608)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам