| Вопрос: Генератора случайных | Добавлено: 17.03.07 08:27 |
Автор вопроса:  agent
|
|
С помощью генератора случайных чисел необходимо создать массив 25 элементов. Полученный массив вывести в диалоговом окне.
Нужна Ваша помощь, подскажите, пожалуйста. Спасибо! |
| Ответы | Всего ответов: 23 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | Цитата | #1 | Добавлено: 17.03.07 08:41 |
Приколемся одной строкой 
(если бы не возможность этого, вопрос был бы проигнорен) MsgBox Join(Array(Rnd(), Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd()), vbNewLine)
|
||
|
Номер ответа: 2 Автор ответа: agent Вопросов: 5 Ответов: 11 |
Профиль | Цитата | #2 | Добавлено: 17.03.07 09:49 |
|
С помощью генератора случайных чисел необходимо создать массив 25 элементов. Полученный массив вывести в диалоговом окне.
Нужна Ваша помощь, подскажите, пожалуйста. Это не правильно. Вот начало правильной программы которую нужно продолжить Sub prog() Dum mas (1 To 25) As Integer Dim i as Integer For i=1To 25 mas (i)=-77+Rnd *100 Cells (1,1)=mas(i) If mas(i)<0 Nexi i Её нужно продолжить. Помогите пожалуйста!!! |
||
|
Номер ответа: 3 Автор ответа: agentВопросов: 5 Ответов: 11 |
Профиль | Цитата | #3 | Добавлено: 17.03.07 09:50 |
|
С помощью генератора случайных чисел необходимо создать массив 25 элементов. Полученный массив вывести в диалоговом окне.
Нужна Ваша помощь, подскажите, пожалуйста. Это не правильно. Вот начало правильной программы которую нужно продолжить Sub prog() Dim mas (1 To 25) As Integer Dim i as Integer For i=1To 25 mas (i)=-77+Rnd *100 Cells (1,1)=mas(i) If mas(i)<0 Nexе i Её нужно продолжить. Помогите пожалуйста!!! |
||
|
Номер ответа: 4 Автор ответа: D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 17.03.07 10:41 |
| Тебе нада штоб она генерировала од -77 і до X? | ||
|
Номер ответа: 5 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 17.03.07 10:55 |
|
Dim mas (1 To 25) As Integer
Dim i as Integer Private Sub Command1_Click() For i=1To 25 Randomize timer mas (i)=Int(rnd*100) Next i |
||
|
Номер ответа: 6 Автор ответа: agentВопросов: 5 Ответов: 11 |
Профиль | Цитата | #6 | Добавлено: 17.03.07 11:08 |
|
Docal
Мне нужно чтобы массив заполнился произвольными числами. Я точно не знаю какими. Наверное безразницы какими. Самое главное чтобы числа были сгенерированы произвольно. Если можно нужно это сделать както попроще. Тему которую я сейчас прохожу в институте Генератор случайных чисел. Если тебя не затруднит ответь мне в аську заодно я което узнаю по подробнее насчёт написанной тобой программы. ISQ 468-653-528 |
||
|
Номер ответа: 7 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 17.03.07 13:24 |
| какая имено в тебя задача:создать свой генератор или просто на пичкать масив не повторяющиимись цифрами? | ||
|
Номер ответа: 8 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | Цитата | #8 | Добавлено: 17.03.07 14:52 |
| kir89, а почему это GSerg неправильно написал? У него все верно. Если у тебя есть начало, оставь его таким какое оно есть и напиши код GSerg'а. | ||
|
Номер ответа: 9 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | Цитата | #9 | Добавлено: 17.03.07 15:50 |
|
"... У него все верно ..." /AgentFire/
____ Ну, не совсем верно. При каждом запуске всего приложения последовательность будет одна и та же. Наверное, следует перед использованием rnd() поставить оператор: Randomize
MsgBox Join(Array(Rnd(), Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd(),Rnd()), vbNewLine) |
||
|
Номер ответа: 10 Автор ответа: agentВопросов: 5 Ответов: 11 |
Профиль | Цитата | #10 | Добавлено: 17.03.07 15:59 |
| Ещё раз уточнюя! Мне нужно написать программу в Excel на языке VBA (чтоб было простенько и понятно) Массив нужно напичкать САМОПРОИЗВОЛЬНЫМИ не повторяющимися числами.(VBA сам выбирает числа как положительные так и отрицательные). Моя тема которую я сейчас прохожу "Генератор случайных чисел". Напишите пожалуйста программу так чтобя мне перекопировать в VBA и всё работало!!!! Пожалуйста!!!! | ||
|
Номер ответа: 11 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | Цитата | #11 | Добавлено: 17.03.07 17:06 |
| VBA | ||
|
Номер ответа: 12 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #12 | Добавлено: 17.03.07 17:21 |
|
dim m(24) as integer, i as byte
for i = 0 to 24 m(i) = int(rnd*999) next i MsgBox Join(m, vbNewLine) |
||
|
Номер ответа: 13 Автор ответа: agentВопросов: 5 Ответов: 11 |
Профиль | Цитата | #13 | Добавлено: 17.03.07 18:05 |
| Нужно сделать так чтобя все эти проивольные числа были записаны в ячейки!!!!! Очень буду признателен если вы напишите программу от и до чтобы просто парекопировать в VBA всё работало. | ||
|
Номер ответа: 14 Автор ответа: agentВопросов: 5 Ответов: 11 |
Профиль | Цитата | #14 | Добавлено: 17.03.07 18:35 |
| Нужно ещё сделать так (если это возможно) чтоб были иотрицательные числа | ||
|
Номер ответа: 15 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | Цитата | #15 | Добавлено: 17.03.07 19:55 |
|
Для отрицательних іспользуй
Public Function GenRndNumber(Lower%, Upper 
Randomize GenRndNumber = Int((Upper% - Lower% + 1) * Rnd + Lower
End Function Чтобы получить случайное число в диапазоне от –99 до 99, просто введите: RandomNumber = GenRndNumber(-99, 99) |
||