Помогите разобраться

[F_L_A_S_H]

Здравствуйте уважаимые!
Решил написать программу расчёта, т.к. в Бейсике я не спец, но не могу придумать алгоритм.
Есть у меня исходные данные, допустим таблица 10 на 10. Такого типа:
100 200 300 400 500 600 700 800 900 1000
100 10 12 14 16 18 20 22 24 26 28
200 12 16 20 24 28 32
300 14 18 20 22
400 16 20
500 18
600 20
700 22
800 24
900 26
1000 28
Есть идея создать двухиерный массив, но как выполнить поиск по массиву?
Ввожу я скажем в TextBox1=200, а в TextBox2=300, как выполнить поиск и сделать TextBox3=18 ???
Буду благодарен всем кто хоть как-то поможет...
А также при обявленни массива, выдаётся сообщение об ошибке(что то вроде ошибки ввода данных). Вот код:

Код: Выделить всё


Dim a(1 - 3, 1 - 3) As Integer
a(1, 1) = 12
a(1, 2) = 14
a(1, 3) = 16
a(2, 1) = 14
a(2, 2) = 16
a(2, 3) = 18
a(3, 1) = 16
a(3, 2) = 18
a(3, 3) = 20 





Подскажите плизззззз в чём ошибка?

[Хакер]

Код: Выделить всё

Dim a(1 - 3, 1 - 3) As Integer

=>

Код: Выделить всё

Dim a(1 To 3, 1 To 3) As Integer

[BV]

Код: Выделить всё

Private Sub void()
    Dim a(1 To 3, 1 To 3) As Integer
    a(1, 1) = 12
    a(1, 2) = 14
    a(1, 3) = 16
    a(2, 1) = 14
    a(2, 2) = 16
    a(2, 3) = 18
    a(3, 1) = 16
    a(3, 2) = 18
    a(3, 3) = 20
   
    TextBox3.Text = a(Val(TextBox1.Text), Val(TextBox2.Text))
End Sub

[F_L_A_S_H]

Код: Выделить всё

Dim a(1 - 3, 1 - 3) As Integer

=>

Код: Выделить всё

Dim a(1 To 3, 1 To 3) As Integer

Это просто описка
С "To" тоже не срабатывает...
Вот сообщение:
Compile error:
Invalid outside procedure!

[Хакер]

Исполняемый код должен находиться в пределах процедуры, а не просто так, где захочестя написать.

[F_L_A_S_H]

Код: Выделить всё

Private Sub void()
    Dim a(1 To 3, 1 To 3) As Integer
    a(1, 1) = 12
    a(1, 2) = 14
    a(1, 3) = 16
    a(2, 1) = 14
    a(2, 2) = 16
    a(2, 3) = 18
    a(3, 1) = 16
    a(3, 2) = 18
    a(3, 3) = 20
   
    TextBox3.Text = a(Val(TextBox1.Text), Val(TextBox2.Text))
End Sub

БОЛЬШОЕ спасибо всё понял:)