Массив VBA. Если можно с формой

@Widrhton · Регистрация: 12.06.2020

Author24 — интернет-сервис помощи студентам

Массив заполнить числами 1,3,5,7,9,11,13,15,17,19. Вывести на экран два соседних элемента: первый и второй, второй и третий, третий и четвертый и т.д., а также их сумму или произведение, при чем при сумме больше 15 выводить сумму, в противном случае - произведение.

@КостяФедореев · 25.09.2020, 08:37

ms_daria_and, а что значит с формой?

@Widrhton · 25.09.2020, 08:38 **[ТС]**

Можно просто код. С формой - это окно с кнопками

@КостяФедореев · 25.09.2020, 08:39

ms_daria_and, Массив наполнять через диапазон на листе или в сам код вшить?

@Widrhton · 25.09.2020, 08:40 **[ТС]**

Как Вам удобнее

@КостяФедореев · 25.09.2020, 08:58

ms_daria_and,
Думаю должно быть понятно как и от куда появилось

Visual Basic

Public Sub ккк()
 
Dim A() As Integer
ReDim A(0 To 9)
A(0) = 1
A(1) = 3
A(2) = 5
A(3) = 7
A(4) = 9
A(5) = 11
A(6) = 13
A(7) = 15
A(8) = 17
A(9) = 19
'(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
 
For i = 0 To 8
If A(i) + A(i + 1) < 15 Then
prooizv = A(i) * A(i + 1)
MsgBox A(i) & "+" & A(i + 1) & " " & "Произведение:" & prooizv
Else
summa = A(i) + A(i + 1)
MsgBox A(i) & "+" & A(i + 1) & " " & "Сумма:" & summa
End If
Next
 
 
End Sub

@Widrhton 0 / 0 / 0 Регистрация: 12.06.2020 Сообщений: 115
		1
	Массив VBA. Если можно с формой 25.09.2020, 08:27. Показов 358. Ответов 5 Метки vba, массив (Все метки) Массив заполнить числами 1,3,5,7,9,11,13,15,17,19. Вывести на экран два соседних элемента: первый и второй, второй и третий, третий и четвертый и т.д., а также их сумму или произведение, при чем при сумме больше 15 выводить сумму, в противном случае - произведение. 0

@КостяФедореев Часто онлайн 909 / 613 / 274 Регистрация: 09.01.2017 Сообщений: 2,036
	25.09.2020, 08:37	2
	ms_daria_and, а что значит с формой? 0

@Widrhton 0 / 0 / 0 Регистрация: 12.06.2020 Сообщений: 115
	25.09.2020, 08:38 [ТС]	3
	Можно просто код. С формой - это окно с кнопками 0

@КостяФедореев Часто онлайн 909 / 613 / 274 Регистрация: 09.01.2017 Сообщений: 2,036
	25.09.2020, 08:39	4
	ms_daria_and, Массив наполнять через диапазон на листе или в сам код вшить? 0

@Widrhton 0 / 0 / 0 Регистрация: 12.06.2020 Сообщений: 115
	25.09.2020, 08:40 [ТС]	5
	Как Вам удобнее 0

	25.09.2020, 08:58