Бейсик. Одномерный массив

[Агент]

Да, я не знаю. Набери как думаешь, если не затруднит. Заранее спасибо!

[Sasha_Smirnov]

3 бессонных часа — и вот продукт! (Весь код можно увидеть по Alt-F8 или Alt-F11.)

Option Base 1 'индексы массивов - с 1-го по ...'
Dim otvet As Boolean 'логическая переменная (что делать с массивами)'

Sub ОбработкаЧастиМассивов()
    k = 3 'здесь вводим целое число - в нашем случае 3'
'Call Лист1.Button1_Caption'
If otvet = 0 Then
MsgBox "При суммировании (и при умножении) пропускается каждый " & k & "-й элемент каждого из массивов," & Chr$(13) & _
        "а также элементы, меньшие либо равные " & k & "."
End If
            
    massiv1 = Array(6, 8, 88, -12, 0.5, 44, 55, 321)                'здесь вводим 1-й массив'
    massiv2 = Array(-6.4, 18, 88, 0, 0, 447, -55, 123, 567, -9) 'здесь вводим 2-й массив'
    
    M = UBound(massiv1) 'последний индекс 1-го массива'
    N = UBound(massiv2) 'последний индекс 2-го массива (по условию M = N, но это программа!)'
'...'
End Sub

В 6:55 я пересохранил архив, работает нормально. А как у вас? Запускать лучше по Alt-F8, ибо кнопка «подглючивает».

Тот файл (см. пост Nataly1992), из которого я это переделал, вообще был без капризов (правда, на другой Винде). У вас работает?

[Агент]

Спасибо. Все ок.

[Агент]

Помогите кто знает!
1.Определить произведение и количество элементов больших 3 в четных столбцах матрицы произвольного размера.

[Агент]

Сообщение от Агент

Помогите кто знает!
1.Определить произведение и количество элементов больших 3 в четных столбцах матрицы произвольного размера.

Кто-нибудь...