Нахождение суммы элементов с заданными свойствами в некоторой строке массива - VB

Узнай цену своей работы

Формулировка задачи:

есть не доработанная версия сделайте пожалуйста

Решение задачи: «Нахождение суммы элементов с заданными свойствами в некоторой строке массива»

textual
Листинг программы
Dim A() As Integer, B() As Integer, M As Integer, N As Integer
Dim i As Integer, j As Integer, k As Integer, s As Integer
 
Private Sub Выполнить_Click()
N = Val(InputBox("Введите количество строк", "Ввод", 5))
M = Val(InputBox("Введите количество столбцов", "Ввод", 5))
    ИсхМ.Text = "": Randomize (Timer)
    ReDim A(M, N)
    For i = 1 To M
        For j = 1 To N
            A(i, j) = Int(Rnd * (99 + 1))
            ИсхМ.Text = ИсхМ.Text & A(i, j) & vbTab
        Next j
        ИсхМ.Text = ИсхМ.Text + vbNewLine
     Next i
    'Select Case True
    's = 0
    'For k = 1 To M
    'Next
    's = s + A
    'Else
End Sub
Private Sub Очистить_Click()
    ИсхМ.Text = ""
    Рез.Text = ""
    ВС.Text = ""
End Sub
 
Private Sub Выход_Click()
    End
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы