как этот код из паскаля перевести в VBA ?

02.04.2011, 18:49. **Показов** 1363. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Pascal

program zadacha2;
Type mas=array[1..5, 1..5] of integer;
Var
a:mas ;
j, sum,k, fl: integer;
function summa(b:mas; n:integer):integer;
Var s, x:integer;
begin
s:=0;
for x:=1 to 5 do
s:=s+b[x,n] ;
summa:=s;
end;

@Димит · 05.04.2011, 11:00

Не знаю соответствие типов переменных, но получится что - то такое:

Visual Basic

Private Sub zadacha2()
Dim a(1 To 5, 1 To 5) As Long
Dim j As Long, sum As Long, k As Long, fl As Long
    j = 1: a(1, 1) = 99: a(2, 1) = 1 'строка заачи переменных,тест
    sum = summa(a, j) 'вход в функцию
    MsgBox "Сумма - " & sum 'выдача результата, тест
End Sub
 
Private Function summa(b As Variant, n As Long)
Dim s As Long, x As Long
    s = 0
    For x = 1 To 5
        s = s + b(x, n)
    Next x
    summa = s
End Function
 
Private Function summa(b As Variant, n As Long)
Dim s As Long, x As Long
    s = 0
    For x = 1 To 5
        s = s + b(x, n)
    Next x
    summa = s
End Function

	05.04.2011, 11:00