LabelSum.Text = Fsum

LabelMin.Text = Amin

' очистка полей для повторных нажатий кнопки "Вычислить"

ListMin.Items.Clear()

For i = 0 To N - 1

For j = 0 To N - 1

If Arr(i, j) = Amin Then

ListMin.Items.Add("элемент (" + Str(i + 1) + ";" + Str(j + 1) + ")")

End If

Next j

Next i

End Sub

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

End

End Sub

End Class

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

Для вывода суммы элементов, кратных заданному числу и минимальных элементов используются поля Label [2].

Рисунок 2 – Работа с массивами

Задание № 3. Работа со строковыми данными

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

Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.

Решение:

Чтобы определить количество слов в строке, составим цикл, который будет проверять каждый символ в строке, начиная со второго, на совпадение с пробелом. Чтобы исключить возможность ошибки (на случай, если в одном интервале между словами окажется больше одного пробела), поставим дополнительное условие: символ, следующий до проверяемого, не должен являться пробелом. Т.е, программа будет считать пробелы, которые следуют за каким-либо другим символом. А так как интервалов между словами на 1 меньше, чем самих слов, добавим к полученной сумме пробелов единицу (но только при условии, что длина строки не равна нулю, т.е. ни одного слова не введено).

Текстпрограммы

Public Class Form1

Private Sub ButtonOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOk.Click

' описание переменных: