VBA kontrolltöö
n m c d
Arvuta
5 5 -10 10
1 -8 -7 9 -10
7 8 7 -8 -2
-6 2 -6 -2 0
-7 -2 0 -1 9
0 -10 1 4 -2
Max Rida Veerg Min Rida
8 2 2 -10 5
Arvuta
Kontrolltöö. Massiivid
Kõikides arvutustes kasutatavate ning tulemusteks tulevate tabelite (maatriksite) ning ridade ja veergude jaok
Genereerida maatriksi elemendid juhuslike suurustena vahemikus [C,D] massiivi ja kirjutada need töölehele a
genmas a(), n, m, c, d ja mas_lehele a(), n, m, alg, kus
Sub genmas(a(), n, m, c, d)
Dim i, j
Randomize
For i = 1 To n
For j = 1 To m
a(i, j) = Int((d - c) * Rnd + c)
Next j
Next i
End Sub
Sub mas_lehele(a(), n, m, koht)
Dim i, j
For i = 1 To n
For j = 1 To m
koht.Cells(i, j) = a(i, j)
Next j
Next i
End Sub
C ja D lugeda tö...