Контрольная работа: Программирование на Visual Basic

ListArray.Items.Clear() ' количество столбцов в поле вывода массива

For i = 0 To N - 1

Str1 = ""

For j = 0 To N - 1

Arr(i, j) = Amin + Int(Rnd() * (Amax - Amin))

Str1 = Str1 + Space(3) + Str(Arr(i, j))

Next j

ListArray.Items.Add(Str1)

Next i

End Sub

Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click

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

Dim F As Integer ' число (вводимое) для поиска кратных элементов массива

Dim Fsum As Long ' сумма (искомая) кратных элементов массива

Dim Amin As Integer ' значение минимального элемента

Dim i As Integer, j As Integer ' вспомогат.переменные

' для организации цикла

' число для поиска кратных элементов вводится в форме

F = Val(TextF.Text)

If F = 0 Then Exit Sub

' вычисления

Fsum = 0

If N > 0 Then Amin = Arr(0, 0)

For i = 0 To N - 1

For j = 0 To N - 1

If Arr(i, j) / F = Int(Arr(i, j) / F) Then Fsum = Fsum + Arr(i, j)

If Amin > Arr(i, j) Then Amin = Arr(i, j)

Next j

Next i