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

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Нужна помощь Добавлено: 05.01.04 22:15  

Автор вопроса:  Sync | Web-сайт: www.xaker.ru/~Sync
-В чем ошибка данного кода
-мне нужен код для создания списка случайных чисел.
-Только чтобы они не повторялись.
-Я думаю вы меня поняли.
-Данный код непашет( к сожелению )
-Если можете подскажите пожалуйста.
___________________________________________________



Код:
Private Sub Timer1_Timer()
Text1.Text = Int(Rnd * 9)
Dim SearchStr As String
    Dim FoundPos As Integer
    SearchStr = Text1.Text
    If SearchStr <> "" Then
       
        FoundPos = rtb.Find(SearchStr, , , _
            rtfWholeWord)
       
        If FoundPos <> -1 Then
Else
         rtb.Text = rtb.Text & Text1.Text & " "
        End If
    End If

End Sub

Ответить

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

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



ICQ: 259418212 

Вопросов: 24
Ответов: 325
  Web-сайт: justas.newmail.ru
 Профиль | | #1 		Добавлено: 06.01.04 01:51
http://www.vbnet.ru/faq/showtopic.asp?id=384

Ответить

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



Вопросов: 1
Ответов: 184
  Профиль | | #2 Добавлено: 06.01.04 05:56

Функция возвращает строку, содержащую все значения от 0 до N-1 (N - передаваемый параметр)

Function Rand(ByVal Amount As Long) As String

Dim Vals() As Integer

Dim i, k, l As Long

ReDim Vals(Amount - 1)

For i = 0 To Amount - 1

m:

l = Int(Rnd * Amount)

For k = 0 To i - 1

If l = Vals(k) Then Exit For

Next k

If k <> i Then GoTo m

Vals(i) = l

Rand = Rand & CStr(l) & ","

Next i

End Function

Ответить

Номер ответа: 3
Автор ответа:
 Doomsday



Вопросов: 30
Ответов: 54
  Профиль | | #3 Добавлено: 09.01.04 01:24

Вот код, который тасует карты:

Dim A(36) As Boolean

Dim I, N, B(36) As Integer

For I = 0 To 35

Do

N = Rnd() * 35

Loop While A(N)

A(N) = True

B(I) =N

Next

 

Ответить

Страница: 1 |

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



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