Подсчет заданных элементов в матрице - VB
Формулировка задачи:
Всем добрый день! На форуме впервые, не ругайтесь, если что не так. По информатике была задана задача: вычислить и вывести на экран количество отрицательных и нулевых элементов во всей заданной матрице М (3Х3) в каждой строке. Я, к сожалению, в этом почти ничего не смыслю - попытался создать код (ниже) но каждый раз выбивает ошибку. Прошу помочь, если не сложно, спасибо.
Решение задачи: «Подсчет заданных элементов в матрице»
textual
Листинг программы
Sub main() Dim M(1 To 3, 1 To 3) As Single Dim i As Byte, j As Byte 'Dim VV(1 To 3) As Single 'Dim VV1(1 To 3) As Single 'Dim S1 As String, S2 As String, S3 As String, S4 As String Dim S1 As String, S2 As String, S3 As String, S4 As String 'для каждой переменной указывайте тип во избежание проблем 'Dim K, C As Integer Dim K As Integer, C As Integer 'для каждой переменной указывайте тип во избежание проблем For i = 1 To 3 S1 = " " For j = 1 To 3 M(i, j) = InputBox("M(" & Str(i) & " , " & Str(j) & ") & ") S1 = S1 & Str(M(i, j)) & " " Next S2 = S2 & S1 & Chr(13) Next For i = 1 To 3 K = 0 For j = 1 To 3 If M(i, j) < 0 Then K = K + 1 ' VV(j) = K End If Next ' S3 = S3 & Str(VV(j)) & " " S3 = S3 & K & " " Next For i = 1 To 3 C = 0 For j = 1 To 3 If M(i, j) = 0 Then C = C + 1 ' VV1(j) = C End If Next S4 = S4 & C & " " Next MsgBox "M:" & Chr(13) & S2 & Chr(13) & "K(<0)=" & S3 & Chr(9) & "C(=0)=" & S4 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д