Одномерный массив,блок-схема - VB

Узнай цену своей работы

Формулировка задачи:

Помогите ,пожалуйста, сделать задание ! Надо нарисовать блок-схему,а потом в Exel через кнопку CommandButton написать программу етой блок-схемы.Вот задание:произведение элементов одномерного массива A(n),принадлежащих интервалу m...n.

Решение задачи: «Одномерный массив,блок-схема»

textual
Листинг программы
Private Sub CommandButton1_Click()
Dim i, Multy
Multy = 1
Cells.ClearContents
 
Randomize
 
Cells(2, 1) = "От"
Cells(3, 1) = "До"
Cells(2, 2) = Int(Rnd * 10)
Cells(3, 2) = Int(Rnd * 100 + 10)
 
 
For i = 1 To 10
Cells(9, i) = 50 - Int(Rnd * 100)
If Cells(9, i) > Cells(2, 2) And Cells(9, i) < Cells(3, 2) Then Multy = Multy * Cells(9, i)
Next i
 
Cells(12, 1) = "Произведение ="
Cells(12, 3) = Multy
End Sub

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы