Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.abitu.ru/en2002/closed/viewwork.html?ext=188 Дата изменения: Fri May 5 15:24:25 2006 Дата индексирования: Tue Oct 2 02:13:48 2012 Кодировка: koi8-r

Приложение ?1

Код программы для генерирования случайных чисел:


n = Workbooks("EESR_daily.xls").Worksheets("EESR_daily").Cells(1, 8)

For i = 1 To n
d = Workbooks("EESR_daily.xls").Worksheets("EESR_daily").Cells(i + 4,
1)
c = Workbooks("EESR_daily.xls").Worksheets("EESR_daily").Cells(i + 4,
7)
1:
j = Int((n * Rnd) + 1)
d1 = Workbooks("stohast.xls").Worksheets("Лист2").Cells(j + 4, 1)
If d1 = "" Then
Workbooks("stohast.xls").Worksheets("Лист2").Cells(j + 4, 1) = d
Workbooks("stohast.xls").Worksheets("Лист2").Cells(j + 4, 4) = c
Else
GoTo 1
End If
Next i