Завдання до лабораторної роботи

(див. додаток)

Приклад виконання лабораторної роботи:

Задано масив A25(12). Обчислити суму всіх елементів масиву.

 

Результат виконання програми:

 

Програмний код:

Private Sub Command1_Click()

Dim A25(1 To 12) As Single

Dim S As Single

Dim i As Integer

For i = 1 To 12

A25(i) = Val(InputBox("Введіть " + Str(i) + " елемент масиву ", i))

Picture1.Print A25(i); " ";

Next i

s = 0

For i = 1 To 12

s = s + A25(i)

Next i

Text1 = s

End Sub

 

Private Sub Command2_Click()

End

End Sub

Задано масив A25(12). Обчислити середнє арифметичне елементів масиву, що мають непарні індекси.

..3.Програмний код: Private Sub Command1_Click() Dim A25(1 To 12) As Single Dim S, SA As Single Dim i, k As Integer For i = 1 To 12 A25(i) = Val(InputBox("Введіть", i)) Picture1.Print A25(i); " "; Next i S = 0 k = 0 For i = 1 To 12 Step 2 S = S + A25(i) k = k + 1 Next i SA = S / k Text1 = S End Sub   Private Sub Command2_Click() End End Sub   Результат:

 

Визначити мінімальний елемент масиву A(10) та його порядковий номер.

 

Програмний код: Private Sub Command1_Click() Dim A(1 To 10) As Integer Dim i, min, k As Integer For i = 1 To 10 A(i) = Val(InputBox("Введіть", i)) Picture1.Print A(i); " "; Next i min = 1E+38 For i = 1 To 10 If A(i) < min Then min = A(i) k = i End If Next i Text1 = min Text2 = k End Sub   Private Sub Command2_Click() End End Sub Результат: