Работа с массивами на VB

[=Apple=]

Существует два массива - А(n) и В(n).
Элементы массива А переписать в массив В, при этом на место наибольшего значения массива А в массив В записать сумму положительных чисел массива А, а на место наименьшего значения массива А в массив В записать сумму отрицательных чисел массива А.

вотЪ. надеюсь на вашу помощь...

[EducatedFool]

надеюсь на вашу помощь...

А сам-то решить не пробовал?
Откуда берутся данные в массиве А?
Куда выводить результат?

[=Apple=]

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

А сам-то решить не пробовал?
Откуда берутся данные в массиве А?
Куда выводить результат?

я VB в глаза никогда не видел... ((((
данные в массив А вводит пользователь с клавиатуры, так же как и размерность массивов.
выводить результат в массив В


с объявлением переменных я разобрался, также как и с циклом и ветвлением.
но неясно одно - куда вводить данные (пишу программу как макрос, т. к. другой среды разработки не имею)

[EducatedFool]

с объявлением переменных я разобрался, также как и с циклом и ветвлением.

ну и что же не выкладываешь свои наработки?

но неясно одно - куда вводить данные

Как куда? В массив, куда же ещё...

я VB в глаза никогда не видел...

А ты уверен, что программу надо сделать на VB?
Может в VBA, или на qBasic?

[=Apple=]

эээ... Кстати, очень существенный вопрос )))
Программу попросил сделать мой физрук (для дочери-экономистки), сказал "на бейсике".
Нужно уточнить...

я так понимаю, что если VBA то данные нужно вводить-выводить в некоторый диапазон ячеек на листе Excel?

[Sasha_Smirnov]

А я так думаю, что Word здесь лучше подойдёт. Тем более — для обучения. В приложенном документе — запуск программы: альт-d.

Option Explicit             'указание компилятору проверять, объявлены ли переменные
Option Base 1               'указание компилятору нумеровать элементы массивов с единицы (а не с 0)
'Существует два массива - А(n) и В(n).'
'Элементы массива А переписать в массив В, при этом на место'
'наибольшего значения массива А в массив В записать'
'сумму положительных чисел массива А, а на место'
'наименьшего значения массива А в массив В записать'
'сумму отрицательных чисел массива А.'

'ОТ АВТОРА: «программистская» фишка здесь в том, что в условии не оговорено, что в массиве A'
'наибольшее и наименьшее значения представлены только одним элементом. Значит, их м. б. много!'

Sub NewMew()
Dim A(), B(), indexmin, indexmax        '2 массива и индексы искомых эл-тов массива A()
Dim summaOfPositive, summaOfNegative    'суммы положительных и отрицательных эл-тов массива A
Dim i As Integer

A = Array(6, 5, 4, 5, -6, 7, 8) 'СЮДА ПРЕДЛАГАЮ ВВОДИТЬ ИСХОДНЫЙ МАССИВ МАССИВ'

Selection.TypeParagraph 'печать с новой строки'
For i = 1 To UBound(A): Selection.TypeText vbTab & "A(" & i & ") = " & A(i): Next  'печать массива'

indexmin = indexMinA(A)
indexmax = indexMaxA(A)

MsgBox "Первый минимум массива - это " & indexmin & "-й элемент, он равен " & A(indexmin) & "."
MsgBox "Первый максимум массива - это " & indexmax & "-й элемент, он равен " & A(indexmax) & "."

B = A 'сначала массив B делаем РАВНЫМ массиву A'

For i = 1 To UBound(A)
If A(i) < 0 Then summaOfNegative = summaOfNegative + A(i)
Next

For i = 1 To UBound(A)
If A(i) > 0 Then summaOfPositive = summaOfPositive + A(i)
Next

'И теперь то, что просят: в массиве B на то место, где в A максимум и минимум, ставим что надо.'
B(indexmin) = summaOfNegative
B(indexmax) = summaOfPositive

Selection.TypeParagraph 'печать с новой строки'
For i = 1 To UBound(B): Selection.TypeText vbTab & "B(" & i & ") = " & B(i): Next  'печать массива B'
End Sub

Function indexMinA(massiv) As Integer 'вычисляет индекс первого минимального элемента массива'
Dim x As Integer, temp

temp = massiv(UBound(massiv)) 'сначала предполагаем, что искомый минимум - последний зл-т'
indexMinA = UBound(massiv)

    For x = UBound(massiv) - 1 To LBound(massiv) Step -1
                If massiv(x) <= temp Then
                temp = massiv(x)
                indexMinA = x   'нашли индекс очередного (ближайшего к началу) минимума массива чисел'
                End If
    Next

End Function

Function indexMaxA(massiv) As Integer 'вычисляет индекс первого мaксимального элемента массива'
Dim x As Integer, temp
    
temp = massiv(UBound(massiv)) 'сначала предполагаем, что искомый максимум - последний зл-т'
indexMaxA = UBound(massiv)

    For x = UBound(massiv) - 1 To LBound(massiv) Step -1
                If massiv(x) >= temp Then
                temp = massiv(x)
                indexMaxA = x   'нашли индекс очередного (ближайшего к началу) максимума массива чисел'
                End If
    Next

End Function

[Sasha_Smirnov]

По-моему, может возникнуть неясность — а куда вводить массив A?

Алгоритм таков: открываете TwoDots.doc*; жмёте альт-F11; в коде, через запятую, вводите новые числа (если дробные, то внутри точка); опять жмёте альт-F11 и, наконец, альт-d (ALT-d).

_____________________________
* настройки безопасности Word могут при этом «возникнуть», но не бойтесь!

[=Apple=]

Огромнейшее спасибо!!!

[Sasha_Smirnov]

И вам то же — за понимание! Привет дочке физкультурника!

[=Apple=]

)))) передам! )))