Обработка массивов в VBA

02.04.2014, 16:16. **Показов** 2209. **Ответов** 1

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

Задача №1
Задать количество элементов одномерного массива. Заполнить его числовыми значениями. Определить среднее арифметическое элементов заданного массива.
Задача 2.
По данным таблицы определить минимальное количество слов любой из приведенных частей речи, которые образованы любым из приведенных способов словообразования.
Имя существительное:
суффиксальный - 3
приставочных - 5
Приставочной-суффиксальный -5
Безсуфиксний -6
сложением основ -8

toiai · 02.04.2014, 16:43

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

Задача №1

Примерно так:

Visual Basic

Sub pr1Array()
    Dim a() As Double
    Dim i As Integer, n As Integer, s&
    n = InputBox("Ââåäèòå ðàçìåðíîñòü ìàññèâà")
    ReDim a(1 To n) As Double
    Cells.Clear
     
    Cells(1, 1) = "Ìàññèâ"
     
    For i = 1 To n
        a(i) = Int(30 * Rnd - 10)
        Cells(i + 1, 1) = a(i)
        s = s + a(i)
    Next i
    MsgBox "Cðåäíåå àðèôìåòè÷åñêîå ìàññèâà" & s / n
End Sub

SunySmile
		1
	Обработка массивов в VBA 02.04.2014, 16:16. Показов 2209. Ответов 1 Метки нет (Все метки) Задача №1 Задать количество элементов одномерного массива. Заполнить его числовыми значениями. Определить среднее арифметическое элементов заданного массива. Задача 2. По данным таблицы определить минимальное количество слов любой из приведенных частей речи, которые образованы любым из приведенных способов словообразования. Имя существительное: суффиксальный - 3 приставочных - 5 Приставочной-суффиксальный -5 Безсуфиксний -6 сложением основ -8

	02.04.2014, 16:43