VBNet - Форум - переменная - случайное число (+3q)

Вопрос: переменная - случайное число (+3q) Добавлено: 20.11.06 15:38

Автор вопроса: fark

здравствуйте!
как сделать так, чтобы определённая переменная была сгенерирована случайно в заданных пределах?

например:
x = любое целое(или нет) число от 4 до 8

2)посоветуйте учебник по VBA, заточеный под Excel.
сейчас пользую "Excel Visual Basic для приложений" Элизабет Бунин, /Бином/1996 год.

3)почему в VBA 6.3 не выполняется команда Beep?
(она должна давать писк системного динамика). и какой командой бикнуть динамиком?

4)интересно, кто какую прикладуху использует при работе с VBA?
я пользую только блокнот для кода, учебник в электронном формате и англо-русский словарь технических терминов.
может, кто-чего посоветует?

спасибо.
Ответить

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

Номер ответа: 1 Автор ответа: fark Вопросов: 5 Ответов: 11	Профиль \| Цитата \| #1	Добавлено: 20.11.06 15:46
	ещё вопрос в догонку... 5)как сделать, чтобы каждое выполнение программы прописывало в окно Immediate свой результат в новую строчку, а не продолжало старую? Например: выполнил прогу один раз, результат выполнения выводится командой Debug.Print в Immediate. x = 1 после слудующего выполнения программы значения продолжают записываться в эту-же строчку: x = 1 x = 2 x = 3 надо, чтобы: х = 1 х = 2 х = 3 спасибо! Ответить

Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| Цитата \| #2	Добавлено: 20.11.06 17:15
	5) Debug.Print "x=1" & vbCrLf 3) VB низя бикать по сис динамику - ищи Beep.dll 4) VB 6 2) http://www.yandex.ru/yandsearch?rpt=rad&text=VB+%C3%E5%ED%E5%F0%E0%F6%E8%FF+%F7%E8%F1%EB%E0 Ответить

Номер ответа: 3 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| Цитата \| #3	Добавлено: 21.11.06 00:24
	Sub RndDigit() Dim x As Variant x = 4 + Rnd(1) * 4 ' случайное число от 4 до 8 (не целое) Debug.Print "x = " & x '& vbCrLf End Sub Ответить

Номер ответа: 4 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #4	Добавлено: 21.11.06 12:04
	VB низя бикать по сис динамику - ищи Beep.dll КЮ!!! Юзай: Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Ответить

Номер ответа: 5 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #5	Добавлено: 21.11.06 12:09
	Правда прет токо с XP. Ответить

Номер ответа: 6 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| Цитата \| #6	Добавлено: 22.11.06 16:41
	И пикает не динамиком... Ответить

Номер ответа: 7 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #7	Добавлено: 22.11.06 17:07
	И пикает не динамиком... Почему не динамиком? Динамиком, но системным. Ответить

Номер ответа: 8 Автор ответа: fark Вопросов: 5 Ответов: 11	Профиль \| Цитата \| #8	Добавлено: 27.11.06 18:55
	что-то не работает пищалка динамиком пишет, что "only comments may appear after End Sub, End Function, or End Property" может я неправильно использую? (просто вставляю туда, где надо выполнить. как например InputBox) я в VBA лох ещё к вопросу 1 - а как сделать, чтобы результатом генерирования были только целые числа? есть отдельная функция? и вообще, есть справочник на русском обо всех функциях VBA, чтоб я больше никого не доставал? Ответить

Номер ответа: 9 Автор ответа: fark Вопросов: 5 Ответов: 11	Профиль \| Цитата \| #9	Добавлено: 27.11.06 19:14
	вах! ещё не могу найти вот чего: задаю, допустим, массив с количеством цифр (ввожу нужное количество) от (задаю число) до (задаю число). числа делятся на положительные и отрицательные и выводятся на лист в соответствующую колонку. когда задаю от -10 до 10 - всё нормально! когда задаю больший разброс (больше 100), пишет: Runtime Error "9" Subscript out of range как это обойти? спасибо всем! Ответить

Номер ответа: 10 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| Цитата \| #10	Добавлено: 27.11.06 21:18
	пишет, что "only comments may appear after End Sub, End Function, or End Property" Надеюсь, ты запихал объявление функции перед всеми другими функциями? Ответить

Номер ответа: 11 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| Цитата \| #11	Добавлено: 28.11.06 20:22
	к вопросу 1 - а как сделать, чтобы результатом генерирования были только целые числа? есть отдельная функция? x = CInt(4 + Rnd(1) * 4) ' случайное число от 4 до 8 (целое) из примера см. выше о других функциях округления см. справку! и вообще, есть справочник на русском обо всех функциях VBA, чтоб я больше никого не доставал? справочников существует достаточное колиество, например Object Browser в VBAProject или жми F1 на незнакомом слове в модуле или вот одна из ссылок [url]http://www.msoffice.nm.ru/[/url] но лучший друг и помощник - это книга Ответить

Страница: 1 |