' вычисления

f = 1

Sum1 = 0

For k = 1 To M

f = f * k

Sum1 = Sum1 + (k + 1) ^ 3 / f

Next k

Sum2 = 15 * 2.718281828495

Err1 = Sum2 - Sum1

Err2 = Err1 / Sum2 * 100

' вывод результатов вычислений в поля формы

TextSum1.Text = Format(Sum1, "0.00000")

TextSum2.Text = Format(Sum2, "0.00000")

TextErr1.Text = Format(Err1, "0.00000000")

TextErr2.Text = Format(Err2, "0.00000000")

End Sub

Private Sub ButtonCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click

End

EndSub

EndClass

На рис.1 представлен вариант реализации формы приложения:

Рисунок 1 – Вычисление суммы ряда

Задание № 2. Работа с массивами

Условие задачи:

Дан двумерный массив (матрица) размером NxN.

1. Определить сумму элементов, значения которых кратны заданному числу F.

2. Найти местоположения (номера индексов) минимальных элементов массива.

Решение:

Составим блок-схему алгоритма решения задачи