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

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: помогите найти ошибку(( Добавлено: 19.01.10 16:00  

Автор вопроса:  ilang-ilang | ICQ: 355115304 
Dim EnergyList() As String
    ReDim EnergyList(0, 0)
Dim count_i As Integer
count_i = 0

Open file_name For Input Access Read As #1

    Do While Not EOF(1)
        Line Input #1, str_temp
            ReDim Preserve EnergyList(count_i, 3)            
            ...
            count_i = count_i + 1
    Loop

ругается в строке ReDim Preserve EnergyList(count_i, 3)
пишет subscript out og range
заранее спасибо

Ответить

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

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



Вопросов: 33
Ответов: 245
  Профиль | | #1 Добавлено: 19.01.10 16:11
А так делать нельзя! Поменять можно только внешнюю границу. Если хочешь так делать, то в этой теме VBDUnit предложил функцию http://www.vbnet.ru/forum/show.aspx?id=197084 для решения этой проблемы.

Ответить

Номер ответа: 2
Автор ответа:
 ilang-ilang



ICQ: 355115304 

Вопросов: 5
Ответов: 16
  Профиль | | #2 Добавлено: 19.01.10 17:22
да уж, ошибку поняла, только вот предложение VBDUnit'та никак не помогло( - не работает, таже ошибка

Ответить

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



Вопросов: 33
Ответов: 245
  Профиль | | #3 Добавлено: 20.01.10 10:51
Что-то ты не то делаешь, значит. Тебе нужно поменять твою строчку на
  1. ReDimPreserve EnergyList, count_i, 3


И добавить функцию VBD:

  1. Function ReDimPreserve(Arr, ParamArray Razm() As Variant)
  2.  Dim g
  3.  Dim i As Long
  4.  Dim gs
  5.  Dim BigDem() As Long, LowDem() As Long
  6.  
  7. If Not IsNumeric(Razm(0)) And UBound(Razm) = 0 Then
  8.      gs = Split(Razm(0), ",")
  9.      ReDim BigDem(UBound(gs))
  10.      ReDim LowDem(UBound(gs))
  11.      For i = 0 To UBound(gs)
  12.          gs(i) = LCase(gs(i))
  13. If InStr(1, gs(i), "to") Then
  14.              LowDem(i) = Val(Split(gs(i), "to")(0))
  15.              BigDem(i) = Val(Split(gs(i), "to")(1))
  16. Else
  17.              BigDem(i) = Val(gs(i))
  18. End If
  19.      Next
  20. Else
  21.      ReDim BigDem(UBound(Razm))
  22.      ReDim LowDem(UBound(Razm))
  23.      For i = 0 To UBound(Razm)
  24. If Not IsNumeric(Razm(i)) Then
  25.              LowDem(i) = Val(Split(LCase(Razm(i)), "to")(0))
  26.              BigDem(i) = Val(Split(LCase(Razm(i)), "to")(1))
  27. Else
  28.              BigDem(i) = Val(Razm(i))
  29. End If
  30.      Next
  31. End If
  32.  If UBound(BigDem) = 0 Then ReDim g(LowDem(0) To BigDem(0))
  33.  If UBound(BigDem) = 1 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1))
  34.  If UBound(BigDem) = 2 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2))
  35.  If UBound(BigDem) = 3 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3))
  36.  If UBound(BigDem) = 4 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4))
  37.  If UBound(BigDem) = 5 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5))
  38.  If UBound(BigDem) = 6 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6))
  39.  If UBound(BigDem) = 7 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7))
  40.  If UBound(BigDem) = 8 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8))
  41.  If UBound(BigDem) = 9 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9))
  42.  If UBound(BigDem) = 10 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10))
  43.  If UBound(BigDem) = 11 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11))
  44.  If UBound(BigDem) = 12 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12))
  45.  If UBound(BigDem) = 13 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13))
  46.  If UBound(BigDem) = 14 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14))
  47.  If UBound(BigDem) = 15 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15))
  48.  If UBound(BigDem) = 16 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16))
  49.  If UBound(BigDem) = 17 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17))
  50.  If UBound(BigDem) = 18 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18))
  51.  If UBound(BigDem) = 19 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19))
  52.  If UBound(BigDem) = 20 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20))
  53.  If UBound(BigDem) = 21 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21))
  54.  If UBound(BigDem) = 22 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22))
  55.  If UBound(BigDem) = 23 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23))
  56.  If UBound(BigDem) = 24 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24))
  57.  If UBound(BigDem) = 25 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25))
  58.  If UBound(BigDem) = 26 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26))
  59.  If UBound(BigDem) = 27 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27))
  60.  If UBound(BigDem) = 28 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28))
  61.  If UBound(BigDem) = 29 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29))
  62.  If UBound(BigDem) = 30 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30))
  63.  If UBound(BigDem) = 31 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31))
  64.  If UBound(BigDem) = 32 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32))
  65.  If UBound(BigDem) = 33 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33))
  66.  If UBound(BigDem) = 34 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34))
  67.  If UBound(BigDem) = 35 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35))
  68.  If UBound(BigDem) = 36 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35), LowDem(36) To BigDem(36))
  69.  If UBound(BigDem) = 37 Then ReDim g(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35), LowDem(36) To BigDem(36), LowDem(37) To BigDem(37))
  70.  On Error Resume Next
  71.  Dim j As Long, j1 As Long, j2 As Long, j3 As Long, j4 As Long, j5 As Long, j6 As Long, j7 As Long, j8 As Long, j9 As Long, j10 As Long, j11 As Long, j12 As Long, j13 As Long, j14 As Long, j15 As Long, j16 As Long, j17 As Long, j18 As Long, j19 As Long, j20 As Long, j21 As Long, j22 As Long, j23 As Long, j24 As Long, j25 As Long, j26 As Long, j27 As Long, j28 As Long, j29 As Long, j30 As Long, j31 As Long, j32 As Long, j33 As Long, j34 As Long, j35 As Long, j36 As Long, j37 As Long
  72.  For j = LowDem(0) To BigDem(0)
  73. If UBound(BigDem) > 0 Then
  74.  For j1 = LowDem(1) To BigDem(1)
  75. If UBound(BigDem) > 1 Then
  76.  For j2 = LowDem(2) To BigDem(2)
  77. If UBound(BigDem) > 2 Then
  78.  For j3 = LowDem(3) To BigDem(3)
  79. If UBound(BigDem) > 3 Then
  80.  For j4 = LowDem(4) To BigDem(4)
  81. If UBound(BigDem) > 4 Then
  82.  For j5 = LowDem(5) To BigDem(5)
  83. If UBound(BigDem) > 5 Then
  84.  For j6 = LowDem(6) To BigDem(6)
  85. If UBound(BigDem) > 6 Then
  86.  For j7 = LowDem(7) To BigDem(7)
  87. If UBound(BigDem) > 7 Then
  88.  For j8 = LowDem(8) To BigDem(8)
  89. If UBound(BigDem) > 8 Then
  90.  For j9 = LowDem(9) To BigDem(9)
  91. If UBound(BigDem) > 9 Then
  92.  For j10 = LowDem(10) To BigDem(10)
  93. If UBound(BigDem) > 10 Then
  94.  For j11 = LowDem(11) To BigDem(11)
  95. If UBound(BigDem) > 11 Then
  96.  For j12 = LowDem(12) To BigDem(12)
  97. If UBound(BigDem) > 12 Then
  98.  For j13 = LowDem(13) To BigDem(13)
  99. If UBound(BigDem) > 13 Then
  100.  For j14 = LowDem(14) To BigDem(14)
  101. If UBound(BigDem) > 14 Then
  102.  For j15 = LowDem(15) To BigDem(15)
  103. If UBound(BigDem) > 15 Then
  104.  For j16 = LowDem(16) To BigDem(16)
  105. If UBound(BigDem) > 16 Then
  106.  For j17 = LowDem(17) To BigDem(17)
  107. If UBound(BigDem) > 17 Then
  108.  For j18 = LowDem(18) To BigDem(18)
  109. If UBound(BigDem) > 18 Then
  110.  For j19 = LowDem(19) To BigDem(19)
  111. If UBound(BigDem) > 19 Then
  112.  For j20 = LowDem(20) To BigDem(20)
  113. If UBound(BigDem) > 20 Then
  114.  For j21 = LowDem(21) To BigDem(21)
  115. If UBound(BigDem) > 21 Then
  116.  For j22 = LowDem(22) To BigDem(22)
  117. If UBound(BigDem) > 22 Then
  118.  For j23 = LowDem(23) To BigDem(23)
  119. If UBound(BigDem) > 23 Then
  120.  For j24 = LowDem(24) To BigDem(24)
  121. If UBound(BigDem) > 24 Then
  122.  For j25 = LowDem(25) To BigDem(25)
  123. If UBound(BigDem) > 25 Then
  124.  For j26 = LowDem(26) To BigDem(26)
  125. If UBound(BigDem) > 26 Then
  126.  For j27 = LowDem(27) To BigDem(27)
  127. If UBound(BigDem) > 27 Then
  128.  For j28 = LowDem(28) To BigDem(28)
  129. If UBound(BigDem) > 28 Then
  130.  For j29 = LowDem(29) To BigDem(29)
  131. If UBound(BigDem) > 29 Then
  132.  For j30 = LowDem(30) To BigDem(30)
  133. If UBound(BigDem) > 30 Then
  134.  For j31 = LowDem(31) To BigDem(31)
  135. If UBound(BigDem) > 31 Then
  136.  For j32 = LowDem(32) To BigDem(32)
  137. If UBound(BigDem) > 32 Then
  138.  For j33 = LowDem(33) To BigDem(33)
  139. If UBound(BigDem) > 33 Then
  140.  For j34 = LowDem(34) To BigDem(34)
  141. If UBound(BigDem) > 34 Then
  142.  For j35 = LowDem(35) To BigDem(35)
  143. If UBound(BigDem) > 35 Then
  144.  For j36 = LowDem(36) To BigDem(36)
  145. If UBound(BigDem) > 36 Then
  146.  For j37 = LowDem(37) To BigDem(37)
  147. If UBound(BigDem) > 37 Then
  148.  MsgBox (("Âàñÿ, íå áîëüøå 37 èçìåðåíèé!!!")), vbExclamation
  149. Else
  150.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37)
  151. End If
  152.  Next
  153. Else
  154.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36)
  155. End If
  156.  Next
  157. Else
  158.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35)
  159. End If
  160.  Next
  161. Else
  162.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34)
  163. End If
  164.  Next
  165. Else
  166.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33)
  167. End If
  168.  Next
  169. Else
  170.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32)
  171. End If
  172.  Next
  173. Else
  174.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31)
  175. End If
  176.  Next
  177. Else
  178.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30)
  179. End If
  180.  Next
  181. Else
  182.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29)
  183. End If
  184.  Next
  185. Else
  186.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28)
  187. End If
  188.  Next
  189. Else
  190.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27)
  191. End If
  192.  Next
  193. Else
  194.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26)
  195. End If
  196.  Next
  197. Else
  198.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25)
  199. End If
  200.  Next
  201. Else
  202.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24)
  203. End If
  204.  Next
  205. Else
  206.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23)
  207. End If
  208.  Next
  209. Else
  210.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22)
  211. End If
  212.  Next
  213. Else
  214.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21)
  215. End If
  216.  Next
  217. Else
  218.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20)
  219. End If
  220.  Next
  221. Else
  222.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19)
  223. End If
  224.  Next
  225. Else
  226.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18)
  227. End If
  228.  Next
  229. Else
  230.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17)
  231. End If
  232.  Next
  233. Else
  234.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16)
  235. End If
  236.  Next
  237. Else
  238.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15)
  239. End If
  240.  Next
  241. Else
  242.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14)
  243. End If
  244.  Next
  245. Else
  246.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13)
  247. End If
  248.  Next
  249. Else
  250.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12)
  251. End If
  252.  Next
  253. Else
  254.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11)
  255. End If
  256.  Next
  257. Else
  258.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10)
  259. End If
  260.  Next
  261. Else
  262.  g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9)
  263. End If
  264.  Next
  265. Else
  266.  g(j, j1, j2, j3, j4, j5, j6, j7, j8) = Arr(j, j1, j2, j3, j4, j5, j6, j7, j8)
  267. End If
  268.  Next
  269. Else
  270.  g(j, j1, j2, j3, j4, j5, j6, j7) = Arr(j, j1, j2, j3, j4, j5, j6, j7)
  271. End If
  272.  Next
  273. Else
  274.  g(j, j1, j2, j3, j4, j5, j6) = Arr(j, j1, j2, j3, j4, j5, j6)
  275. End If
  276.  Next
  277. Else
  278.  g(j, j1, j2, j3, j4, j5) = Arr(j, j1, j2, j3, j4, j5)
  279. End If
  280.  Next
  281. Else
  282.  g(j, j1, j2, j3, j4) = Arr(j, j1, j2, j3, j4)
  283. End If
  284.  Next
  285. Else
  286.  g(j, j1, j2, j3) = Arr(j, j1, j2, j3)
  287. End If
  288.  Next
  289. Else
  290.  g(j, j1, j2) = Arr(j, j1, j2)
  291. End If
  292.  Next
  293. Else
  294.  g(j, j1) = Arr(j, j1)
  295. End If
  296.  Next
  297. Else
  298.  g(j) = Arr(j)
  299. End If
  300.  Next
  301.  If UBound(BigDem) = 0 Then ReDim Arr(LowDem(0) To BigDem(0))
  302.  If UBound(BigDem) = 1 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1))
  303.  If UBound(BigDem) = 2 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2))
  304.  If UBound(BigDem) = 3 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3))
  305.  If UBound(BigDem) = 4 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4))
  306.  If UBound(BigDem) = 5 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5))
  307.  If UBound(BigDem) = 6 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6))
  308.  If UBound(BigDem) = 7 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7))
  309.  If UBound(BigDem) = 8 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8))
  310.  If UBound(BigDem) = 9 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9))
  311.  If UBound(BigDem) = 10 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10))
  312.  If UBound(BigDem) = 11 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11))
  313.  If UBound(BigDem) = 12 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12))
  314.  If UBound(BigDem) = 13 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13))
  315.  If UBound(BigDem) = 14 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14))
  316.  If UBound(BigDem) = 15 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15))
  317.  If UBound(BigDem) = 16 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16))
  318.  If UBound(BigDem) = 17 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17))
  319.  If UBound(BigDem) = 18 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18))
  320.  If UBound(BigDem) = 19 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19))
  321.  If UBound(BigDem) = 20 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20))
  322.  If UBound(BigDem) = 21 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21))
  323.  If UBound(BigDem) = 22 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22))
  324.  If UBound(BigDem) = 23 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23))
  325.  If UBound(BigDem) = 24 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24))
  326.  If UBound(BigDem) = 25 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25))
  327.  If UBound(BigDem) = 26 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26))
  328.  If UBound(BigDem) = 27 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27))
  329.  If UBound(BigDem) = 28 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28))
  330.  If UBound(BigDem) = 29 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29))
  331.  If UBound(BigDem) = 30 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30))
  332.  If UBound(BigDem) = 31 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31))
  333.  If UBound(BigDem) = 32 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32))
  334.  If UBound(BigDem) = 33 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33))
  335.  If UBound(BigDem) = 34 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34))
  336.  If UBound(BigDem) = 35 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35))
  337.  If UBound(BigDem) = 36 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35), LowDem(36) To BigDem(36))
  338.  If UBound(BigDem) = 37 Then ReDim Arr(LowDem(0) To BigDem(0), LowDem(1) To BigDem(1), LowDem(2) To BigDem(2), LowDem(3) To BigDem(3), LowDem(4) To BigDem(4), LowDem(5) To BigDem(5), LowDem(6) To BigDem(6), LowDem(7) To BigDem(7), LowDem(8) To BigDem(8), LowDem(9) To BigDem(9), LowDem(10) To BigDem(10), LowDem(11) To BigDem(11), LowDem(12) To BigDem(12), LowDem(13) To BigDem(13), LowDem(14) To BigDem(14), LowDem(15) To BigDem(15), LowDem(16) To BigDem(16), LowDem(17) To BigDem(17), LowDem(18) To BigDem(18), LowDem(19) To BigDem(19), LowDem(20) To BigDem(20), LowDem(21) To BigDem(21), LowDem(22) To BigDem(22), LowDem(23) To BigDem(23), LowDem(24) To BigDem(24), LowDem(25) To BigDem(25), LowDem(26) To BigDem(26), LowDem(27) To BigDem(27), LowDem(28) To BigDem(28), LowDem(29) To BigDem(29), LowDem(30) To BigDem(30), LowDem(31) To BigDem(31), LowDem(32) To BigDem(32), LowDem(33) To BigDem(33), LowDem(34) To BigDem(34), LowDem(35) To BigDem(35), LowDem(36) To BigDem(36), LowDem(37) To BigDem(37))
  339.  For j = LowDem(0) To BigDem(0)
  340. If UBound(BigDem) > 0 Then
  341.  For j1 = LowDem(1) To BigDem(1)
  342. If UBound(BigDem) > 1 Then
  343.  For j2 = LowDem(2) To BigDem(2)
  344. If UBound(BigDem) > 2 Then
  345.  For j3 = LowDem(3) To BigDem(3)
  346. If UBound(BigDem) > 3 Then
  347.  For j4 = LowDem(4) To BigDem(4)
  348. If UBound(BigDem) > 4 Then
  349.  For j5 = LowDem(5) To BigDem(5)
  350. If UBound(BigDem) > 5 Then
  351.  For j6 = LowDem(6) To BigDem(6)
  352. If UBound(BigDem) > 6 Then
  353.  For j7 = LowDem(7) To BigDem(7)
  354. If UBound(BigDem) > 7 Then
  355.  For j8 = LowDem(8) To BigDem(8)
  356. If UBound(BigDem) > 8 Then
  357.  For j9 = LowDem(9) To BigDem(9)
  358. If UBound(BigDem) > 9 Then
  359.  For j10 = LowDem(10) To BigDem(10)
  360. If UBound(BigDem) > 10 Then
  361.  For j11 = LowDem(11) To BigDem(11)
  362. If UBound(BigDem) > 11 Then
  363.  For j12 = LowDem(12) To BigDem(12)
  364. If UBound(BigDem) > 12 Then
  365.  For j13 = LowDem(13) To BigDem(13)
  366. If UBound(BigDem) > 13 Then
  367.  For j14 = LowDem(14) To BigDem(14)
  368. If UBound(BigDem) > 14 Then
  369.  For j15 = LowDem(15) To BigDem(15)
  370. If UBound(BigDem) > 15 Then
  371.  For j16 = LowDem(16) To BigDem(16)
  372. If UBound(BigDem) > 16 Then
  373.  For j17 = LowDem(17) To BigDem(17)
  374. If UBound(BigDem) > 17 Then
  375.  For j18 = LowDem(18) To BigDem(18)
  376. If UBound(BigDem) > 18 Then
  377.  For j19 = LowDem(19) To BigDem(19)
  378. If UBound(BigDem) > 19 Then
  379.  For j20 = LowDem(20) To BigDem(20)
  380. If UBound(BigDem) > 20 Then
  381.  For j21 = LowDem(21) To BigDem(21)
  382. If UBound(BigDem) > 21 Then
  383.  For j22 = LowDem(22) To BigDem(22)
  384. If UBound(BigDem) > 22 Then
  385.  For j23 = LowDem(23) To BigDem(23)
  386. If UBound(BigDem) > 23 Then
  387.  For j24 = LowDem(24) To BigDem(24)
  388. If UBound(BigDem) > 24 Then
  389.  For j25 = LowDem(25) To BigDem(25)
  390. If UBound(BigDem) > 25 Then
  391.  For j26 = LowDem(26) To BigDem(26)
  392. If UBound(BigDem) > 26 Then
  393.  For j27 = LowDem(27) To BigDem(27)
  394. If UBound(BigDem) > 27 Then
  395.  For j28 = LowDem(28) To BigDem(28)
  396. If UBound(BigDem) > 28 Then
  397.  For j29 = LowDem(29) To BigDem(29)
  398. If UBound(BigDem) > 29 Then
  399.  For j30 = LowDem(30) To BigDem(30)
  400. If UBound(BigDem) > 30 Then
  401.  For j31 = LowDem(31) To BigDem(31)
  402. If UBound(BigDem) > 31 Then
  403.  For j32 = LowDem(32) To BigDem(32)
  404. If UBound(BigDem) > 32 Then
  405.  For j33 = LowDem(33) To BigDem(33)
  406. If UBound(BigDem) > 33 Then
  407.  For j34 = LowDem(34) To BigDem(34)
  408. If UBound(BigDem) > 34 Then
  409.  For j35 = LowDem(35) To BigDem(35)
  410. If UBound(BigDem) > 35 Then
  411.  For j36 = LowDem(36) To BigDem(36)
  412. If UBound(BigDem) > 36 Then
  413.  For j37 = LowDem(37) To BigDem(37)
  414. If UBound(BigDem) > 37 Then
  415.  MsgBox (("Âàñÿ ÿ ø ñêàçàë íå áîëüøå 37 èçìåðåíèé!!!")), vbExclamation
  416. Else
  417.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37)
  418. End If
  419.  Next
  420. Else
  421.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35, j36)
  422. End If
  423.  Next
  424. Else
  425.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34, j35)
  426. End If
  427.  Next
  428. Else
  429.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33, j34)
  430. End If
  431.  Next
  432. Else
  433.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32, j33)
  434. End If
  435.  Next
  436. Else
  437.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31, j32)
  438. End If
  439.  Next
  440. Else
  441.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30, j31)
  442. End If
  443.  Next
  444. Else
  445.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29, j30)
  446. End If
  447.  Next
  448. Else
  449.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28, j29)
  450. End If
  451.  Next
  452. Else
  453.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, j28)
  454. End If
  455.  Next
  456. Else
  457.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27)
  458. End If
  459.  Next
  460. Else
  461.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26)
  462. End If
  463.  Next
  464. Else
  465.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25)
  466. End If
  467.  Next
  468. Else
  469.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24)
  470. End If
  471.  Next
  472. Else
  473.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23)
  474. End If
  475.  Next
  476. Else
  477.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21, j22)
  478. End If
  479.  Next
  480. Else
  481.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20, j21)
  482. End If
  483.  Next
  484. Else
  485.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19, j20)
  486. End If
  487.  Next
  488. Else
  489.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18, j19)
  490. End If
  491.  Next
  492. Else
  493.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17, j18)
  494. End If
  495.  Next
  496. Else
  497.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16, j17)
  498. End If
  499.  Next
  500. Else
  501.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15, j16)
  502. End If
  503.  Next
  504. Else
  505.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14, j15)
  506. End If
  507.  Next
  508. Else
  509.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, j14)
  510. End If
  511.  Next
  512. Else
  513.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13)
  514. End If
  515.  Next
  516. Else
  517.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12)
  518. End If
  519.  Next
  520. Else
  521.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11)
  522. End If
  523.  Next
  524. Else
  525.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9, j10)
  526. End If
  527.  Next
  528. Else
  529.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8, j9) = g(j, j1, j2, j3, j4, j5, j6, j7, j8, j9)
  530. End If
  531.  Next
  532. Else
  533.  Arr(j, j1, j2, j3, j4, j5, j6, j7, j8) = g(j, j1, j2, j3, j4, j5, j6, j7, j8)
  534. End If
  535.  Next
  536. Else
  537.  Arr(j, j1, j2, j3, j4, j5, j6, j7) = g(j, j1, j2, j3, j4, j5, j6, j7)
  538. End If
  539.  Next
  540. Else
  541.  Arr(j, j1, j2, j3, j4, j5, j6) = g(j, j1, j2, j3, j4, j5, j6)
  542. End If
  543.  Next
  544. Else
  545.  Arr(j, j1, j2, j3, j4, j5) = g(j, j1, j2, j3, j4, j5)
  546. End If
  547.  Next
  548. Else
  549.  Arr(j, j1, j2, j3, j4) = g(j, j1, j2, j3, j4)
  550. End If
  551.  Next
  552. Else
  553.  Arr(j, j1, j2, j3) = g(j, j1, j2, j3)
  554. End If
  555.  Next
  556. Else
  557.  Arr(j, j1, j2) = g(j, j1, j2)
  558. End If
  559.  Next
  560. Else
  561.  Arr(j, j1) = g(j, j1)
  562. End If
  563.  Next
  564. Else
  565.  Arr(j) = g(j)
  566. End If
  567.  Next
  568.  ReDim g(0)
  569.  End Function

Ответить

Номер ответа: 4
Автор ответа:
 ilang-ilang



ICQ: 355115304 

Вопросов: 5
Ответов: 16
  Профиль | | #4 Добавлено: 20.01.10 13:06
сделала так:
  1. Dim EnergyList() As String
  2.     ReDim EnergyList(3, 0)
  3.     Dim EnergyList2() As String
  4.   
  5. Dim count_i As Integer
  6. Dim count_j As Integer
  7.   
  8. count_i = 0
  9.   
  10. Open file_name For Input Access Read As #1
  11.  
  12.   
  13.     Do While Not EOF(1)
  14.  
  15.         Line Input #1, str_temp
  16.  
  17.             ReDim Preserve EnergyList(3, count_i)
  18.  
  19. ......          
  20.     count_i = count_i + 1
  21.     Loop
  22.     Close #1
  23.  
  24.      
  25.  
  26.     ReDim EnergyList2(UBound(EnergyList, 2), UBound(EnergyList, 1))
  27.  
  28.     For count_i = 0 To UBound(EnergyList, 1)
  29.  
  30.         For count_j = 0 To UBound(EnergyList, 2)
  31.         
  32.         EnergyList2(count_j, count_i) = EnergyList(count_i, count_j)
  33.         
  34.         Next
  35.     Next
  36.  

Ответить

Страница: 1 |

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



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