Одномерный массив,блок-схема - 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