Нахождение суммы элементов с заданными свойствами в некоторой строке массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д