Basic-программа

[Rozova]

Здравствуйте.
Необходимо написать программу решения задачи с вводом исходных данных и расчетом неизвестных показателей таблицы, определяемых ее содержанием. В программе необходимо предусмотреть вывод всех числовых показателей на печать в виде матрицы (двумерного массива).
Программу осуществляла из формы, содержащую одну командную кнопку. Для выводоа результатов расчета используется метод печати на форме (Print).
Вопрос собственно, вот какой: при написании кода в форму и после запуска программы у меня появляется только одна строка с заголовком таблицы, а числовые расчеты отсутствуют. Подскажите, в какой области я могла ошибиться (при компилировании ошибок не возникает). Может нужны какие-нибудь дополнительные приложения для математических решений?

Спасибо.

[Oxygen]

А можно по подробнее задачу и твой солюшн. Не совсем понятно, что нужно.

[Rozova]

Я написала программу, в которой есть математические расчеты. Но прога не работает.

Dim P(1 To 5, 1 To 7) As Single, I, J As Integer
P(1, 1) = 300: P(2, 1) = 200: P(3, 1) = 100: P(4, 1) = 230
P(1, 2) = 400: P(2, 2) = 300: P(3, 2) = 150: P(4, 2) = 240
P(1, 3) = 450: P(2, 3) = 380: P(3, 3) = 180: P(4, 3) = 250
For J = 1 To 3
P(5, J) = 0
For I = 1 To 4
P(5, J) = P(5, J) + P(I, J)
Next I
Next J
For I = 1 To 5
P(I, 4) = P(I, 3) - P(I, 2)
P(I, 5) = P(I, 3) / P(I, 2) * 100
P(I, 6) = P(I, 2) / P(I, 1) * 100
P(I, 7) = P(I, 3) / P(I, 1) * 100
Next I
For I = 1 To 5
For J = 1 To 7
P(I, J) = Int(P(I, J) + 0.5)
Next J
Next I
Form1.Print "Числовые показатели таблицы"
For I = 1 To 5
Form1.Print
For J = 1 To 7
Form1.Print P(I, J)
Next J
Next I
End Sub

Выводится только заголовок, а расчеты отсутствуют!

Спасибо.

[GSerg]

После Form1.Print P(i, j) запятую поставь

[Oxygen]

Если я правильно поняла суть проблемы, то не мешало бы у формы свойство Autoredraw поставить равным True. И вывод лучше делать так:

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

Form1.Print "Числовые показатели таблицы"
For I = 1 To 5
Form1.Print
For J = 1 To 7
Form1.Print P(I, J),
Next J
Form1.Print
Next I


[Rozova]

Всё получилось! Огромное спасибо!