Вычисление сумм элементов матрицы А размера n x n, лежащих выше, ниже и на главной диагонали

[Tomoa]

Здравствуйте, уважаемые господа программисты!
Помогите найти ошибку в задаче
Необходимо составить программу вычисления сумм элементов матрицы А размера n x n, лежащих выше, ниже и на главной диагонали. Результат вычислений записать в одномерный массив.
написала следующий код:
Public Sub Var15()
Dim A() As Double, B() As Double, n As Integer, i As Integer, j As Integer, q As Integer, w As Integer, d As Integer
n = InputBox(" Введите размерность массива (n*n)")
ReDim A(1 To n, 1 To n)
ReDim B(1 To n)
For i = 1 To n
For j = 1 To n
A(i, j) = InputBox(" Введите элемент A (" & i & "," & j & ")")
Next j
Next i
q = 0
w = 0
d = 0
For i = 1 To n
For j = 1 To n
If i > j Then q = q + A(i, j)
ElseIf i = j Then w = w + A(i, j)
Else: d = d + A(i, j)
End If
Next j
Selection.TypeText Text:=B(i) & vbCrLf
Next i
End Sub

при запуске выдается ошибка Else without If

[viter.alex]

Ошибка в том, что в условии If нельзя одновременно использовать ElseIf и Else. Только что-нибудь одно. В алгоритм не вникаю, попробуй использовать Select…Case:

  For i = 1 To n
    For j = 1 To n
      Select Case i
        Case Is > j
          q = q + A(i, j)
        Case Is = j
          w = w + A(i, j)
        Case Is < j
          d = d + A(i, j)
      End Select
    Next j
    Selection.TypeText Text:=B(i) & vbCrLf
  Next i

[Aent]

Ошибка в том, что в условии If нельзя одновременно использовать ElseIf и Else.

Почему же нельзя ? Вполне можно. В этом случае ELSE относится к вариантам, не удовлетворившим ни одному предыдущему условию.
Вот выдержка из HELP VBA

Syntax

If condition Then [statements] [Else elsestatements]

Or, you can use the block form syntax:

If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements] ...

[Else
[elsestatements]]

End If

А в приведённом выше случае просто нарушен синтаксис - смешаны однострочный и блочный варианты оператора if
Вот так синтаксической ошибки не будет.

'...
            If i > j Then
                 q = q + A(i, j)
            ElseIf i = j Then
                 w = w + A(i, j)
            Else
                d = d + A(i, j)
            End If
'...

P.S. В алгоритм так же не вникал.

[viter.alex]

Ага, значит это я перепутал. В этом случае ошибка состоит в том, что выполняемое по условию действие записано в одной строке c Then, т.е. является однострочным.

[Alex-roz]

Если результат представляет собой три суммы, то одномерный массив должен быть определен как В(1 to 3). Если это так, то....

Public Sub Var15()
Dim n, i, j, q, w, d As Integer
n = InputBox(" Введите размерность массива (n*n)")

ReDim A(n, n), B(1 To 3) As Double

For i = 1 To n
For j = 1 To n
A(i, j) = InputBox(" Введите элемент A (" & i & "," & j & ")")
Next j
Next i


q = 0
w = 0
d = 0

For i = 1 To n
For j = 1 To n

If i > j Then
q = q + A(i, j)
ElseIf i < j Then
w = w + A(i, j)
Else: d = d + A(i, j)
End If

Next j
Next i

B(1) = q
B(2) = w
B(3) = d

Selection.TypeText Text:=q & vbCrLf
Selection.TypeText Text:=w & vbCrLf
Selection.TypeText Text:=d & vbCrLf
End Sub

[Skif-F]

Сообщение от viter.alex

Ага, значит это я перепутал. В этом случае ошибка состоит в том, что выполняемое по условию действие записано в одной строке c Then, т.е. является однострочным.

Вообще, ошибка в том, что люди зачем-то экономят строки. Ну нельзя так! Для чего-то ведь придумали ВЫДЕЛЯТЬ структуру программы. Недаром в Бейсик вставили "странный" оператор Option Explicit - тоже для структурирования

[Sasha_Smirnov]

Сообщение от Tomoa

Здравствуйте, уважаемые господа программисты!
Помогите найти ошибку в задаче
Необходимо составить программу вычисления сумм элементов матрицы А размера n x n, лежащих выше, ниже и на главной диагонали. Результат вычислений записать в одномерный массив.
написала следующий код... при запуске выдается ошибка Else without If

А я написал следующий

For i = 1 To n
    For j = 1 To n
        If i > j Then q = q + A(i, j)
        If i = j Then w = w + A(i, j)
        If i < j Then d = d + A(i, j)
    Next
Next

Яснее на порядок, не так ли?

По условию задачи (о чём неустанно напоминает Alex-roz)
B(1) = q
B(2) = w
B(3) = d

Это, конечно, разработчиками «варианта 15» притянуто за уши, но уж как задали, так честный программист и выдаёт! Улыбаясь в душе.

[Sasha_Smirnov]

Сообщение от Skif-F

Недаром в Бейсик вставили "странный" оператор Option Explicit - тоже для структурирования

40 лет штудирую словари, ну ладно — 35, пытаясь для себя определить понятие "странный"... Странное оно какое-то.

Инструкция

PHP код:

Option Explicit 


не является ни STRANGE, ни DULL, ни тем более CRAZY/MAZY! Скорее, она MUZZY. Но если заглянуть в анналы...
(Предоставляю первому кто прочтёт — продолжить мысль.)

[Sasha_Smirnov]

Sub Krootor() 'шпигует словами и приставками-паразитами некоторые глаголы и прилагательные'
'(обрабатывает примерно 1000 слов в минуту)'
    With ActiveDocument.Words
    For n = 1 To .Count
    slovo = .Item(n)
        If Len(slovo) > 2 Then
        
            Select Case Right(slovo, 3) Like "*[!ая][агимоуыя][йоухя]*"
            Case True
'                MsgBox slovo, vbInformation'
                    Select Case Left(slovo, 1) Like "[А-ЯЁ]"
                    Case True   'когда (ожидаемое) имя прилагательное идёт с заглавной буквы'
                            .Item(n) = "Мега-" & slovo
                            n = n + 2
                    Case Else   'в иных случаях'
                            If Left(slovo, 1) Like "[!етэ]" Then .Item(n) = "мега" & slovo
                    End Select
            Case Else
                    Select Case Right(slovo, 3) Like "*[динтшюя][еилть]*" Or slovo Like "не?"
                    Case True
                            Select Case Left(slovo, 1) Like "[А-ЯЁ]"
                            Case True
                                    .Item(n) = StrConv(slovo, vbLowerCase)
                                    .Item(n) = "Типа " & slovo
                            Case Else
                                    .Item(n) = "типа " & slovo
                            End Select
                            n = n + 1 'чтобы пропустить добавленное слово'
                    End Select
            End Select
            
        End If
    Next
    End With
End Sub

Обычные (и даже трагичные) новости превращаются в нефильтрованный базар!