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

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Генерация чисел Добавлено: 16.02.03 13:40  

Автор вопроса:  Silver Flamingo | ICQ: 116970115 
Как скенерировать 16 значное число?

Ответить

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

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



ICQ: 165551179 

Вопросов: 10
Ответов: 124
  Web-сайт: www22.brinkster.com/casperz
 Профиль | | #1 		Добавлено: 16.02.03 14:03

Попробуй генерировать по частям, а потом просто слеплять все во едино

Ответить

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



Вопросов: 34
Ответов: 312
  Web-сайт: msvprogs.narod.ru
 Профиль | | #2 		Добавлено: 16.02.03 14:56

Dim ii
Dim all
Dim one
Randomize Timer
For ii = 1 to 16
one = rnd*11-1
all = all & one
next ii

Ответить

Номер ответа: 3
Автор ответа:
 Silver Flamingo



ICQ: 116970115 

Вопросов: 27
Ответов: 49
  Профиль | | #3 Добавлено: 16.02.03 15:26

Спасибо, но это не то что я хотел. На уже решил это таким образом:

Function GenXzn(ByVal nLen As Long, Optional ByVal NoZero As Boolean = False) As Double
Dim s$, i%
Do While (Len(s) < nLen)
i = Int(Rnd() * 8)
If (CBool(i) Or Not (CBool(i) Or NoZero)) Then s = s & i
Loop
GenXzn = Int(s)
End Function
Private Sub Command1_Click()
MsgBox GenXzn(16, True) 'вариант 1
End Sub

Ответить

Страница: 1 |

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



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