И снова VBA.....

[Ingez]

Уважаемые, форумчане!
Нужна ваша помочь!
Нужно решить пару задач на VBA:

1.Дан массив A размера N и целое число K (1 ≤ K ≤ N). Вывести элементы массива с порядковыми номерами, кратными K: A с индексом К, A с индексом 2K, A с индексом 3K, … . Условный оператор не использовать.

2.Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу: элемент B( с индексом К) равен сумме элементов массива A с номерами от 1 до K.

Желательно создать программу легко понимаемую начинающим программистом.

Буду очень благодарен.

[ViktorR]

Первую задачу можно так:
1. Определим максимальную кратность:

MaxKr = N \ K ' целочисленное деление, если  с памятью все Ок

2. Организуем цикл

for i = 1 to MaxKr
         'вывод элементов массива: A[i*K] 
    Next

Со второй можно поступить так:

Sum = 0  
' Организовать цикл по i
For i = 1 to N
   Sum = Sum + A[i]
   B[i] = Sum
Next

Как-то так ...
PS: Это только алгоритм, работу не проверял

[Sasha_Smirnov]

А я испытал... только первую. Обошлось без \

Option Base 1   'нумерация в массивах начиная с 1
Option Explicit 'необходимость объявить все переменные


Sub FitToK() 'вывод элементов массива, индекс которых кратен K (1 <= K <= N)
Const K = 3

Dim i As Long, N As Long, S As String, A As Variant
    A = Array(1, 2, 3, 4, 5, 5, 4, 3, 2, 1)

    N = UBound(A)                           'число элементов массива
    
    'контроль числа элементов массива
    Select Case N
        Case Is = -1: MsgBox "Массив не задан. ": Exit Sub
        Case Is < K: MsgBox "Массив слишком мал для заданного K.": Exit Sub
    End Select
    
    
    For i = K To N Step K
        S = S & A(i) & " "  'добавляем в строку S каждый K-й элемент (через пробел)
    Next
    
MsgBox "Исходный массив: " & vbTab & Join(A, " ") & Chr(13) & Chr(13) & _
       "Желанный массив: " & vbTab & S
End Sub

[ViktorR]

Небольшое замечание:

Select Case N
        Case Is = -1: MsgBox "Массив не задан. ": Exit Sub
        Case Is < K: MsgBox "Массив слишком мал для заданного K.": Exit Sub
End Select

Оператор Case - другая форма условного оператора. Ее использовать, по условию задачи нельзя.

N = UBound(A)                           'число элементов массива

По условию задачи N уже определено.

For i = K To N Step K

А вот об этом не задумался, хотя в хелпе увидел.
Конежно, это хорошая версия.



Вроде так ...

[Sasha_Smirnov]

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

Оператор Case - другая форма условного оператора. Ее использовать, по условию задачи нельзя.

Да и не надо. Без него можно.

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

По условию задачи N уже определено.

Задал чисто для испытания.

Каждый волен брать мой код и переделывать. Например, в функцию с параметрами.

[Ingez]

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

Со второй можно поступить так:

Sum = 0  
' Организовать цикл по i
For i = 1 to N
   Sum = Sum + A[i]
   B[i] = Sum
Next

Спасибо большое за решения !
только вот не пойму

 B[i] = Sum

разве такое возможно?

мой код пока не рабочий:

Sub massiv1()
Dim N,i, A() As Byte
N = Cells(1, 1)
ReDim A(1 To N)
Sum = 0
For i = 1 To N: A(i) = Cells(2, i): Next i
   Sum = Sum + A(i)
   B(i) = Sum 'не знаю как тут быть 
Next i: Cells(3, i) = B(i): End Sub

[Ingez]

Тема все еще актуальна.

[Sasha_Smirnov]

Менее очевидно (на мой взгляд), но в принципе аналогично:

Option Base 1   'нумерация в массивах начиная с 1


Sub SumToK() 'создание массива B, причём каждый его элемент B(i) = сумме A(i) (для i = 1..K)

Dim i As Long, K As Long, N As Long, S As String, A As Variant, B As Variant
    A = Array(0, 1, 2, 3, 4, 5)
    N = UBound(A)                           'число элементов массива A
ReDim B(1 To N) 'определение массива B как соразмерного массиву A
    
    For i = 1 To N
        For K = 1 To i      'вычисляем K-й элемент массива B, т. е. B(K)
        B(i) = B(i) + A(K)  'добавляем к элементу B(i) K-й элемент массива A
        Next
    Next
    
MsgBox "Исходный массив:" & vbTab & Join(A) & Chr(13) & Chr(13) & _
       "Желанный массив:" & vbTab & Join(B)
End Sub

[Ingez]

Спасибо большое, Вам Sasha_Smirnov !
Не совсем понял данный кусок кода:

 For i = 1 To N
        For K = 1 To i      'вычисляем K-й элемент массива B, т. е. B(K)
        B(i) = B(i) + A(K)  'добавляем к элементу B(i) K-й элемент массива A
        Next
    Next

а конкретно говоря

For K = 1 To i

это как получается от К=1 до i-того элемента, что-то понять не могу?
i-тый элемент в данном случае это какой элемент?
Не могли ли Вы привести наглядный пример на элементах массива?

[Ingez]

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

Да и не надо. Без него можно.

.

А как задать условие 1 ≤ K ≤ N не используя case и счетный оператор цикла?