Задача на ВБА.

[Zulfat1993]

Ничего не понимаю,объясните пожалуйста

[Stilet]

dim c(6,5) as double
dim t,k as double
dim i,j as integer;

t=0
for i=0 to 5
 k=1;
 for j=0 to 4
   input c(i,j)
   k=k*c(i,j);
 next j
 t=t+k
next i

print t;

Это если я Бейсик помню правильно.
Хотя в ВБА наверное нужно c(i,j)=СDbL(InputBox("Введи число","")) и debug.print в качестве ввода и вывода.

[Zulfat1993]

Сообщение от Stilet

dim c(6,5) as double
dim t,k as double
dim i,j as integer;

t=0
for i=0 to 5
 k=1;
 for j=0 to 4
   input c(i,j)
   k=k*c(i,j);
 next j
 t=t+k
next i

print t;

Это если я Бейсик помню правильно.
Хотя в ВБА наверное нужно c(i,j)=СDbL(InputBox("Введи число","")) и debug.print в качестве ввода и вывода.

Dim c(6, 5) As Double
Dim t, k As Double
Dim i, j As Integer

t = 0
For i = 0 To 5
 k = 1
 For j = 0 To 4
   input c(i,j)
   k = k * c(i, j)
 Next j
 t = t + k
Next i

Print t

Только на input c(i,j) ругается.

[Stilet]

Ну используй InputBox...
Или ченить другое.