Программироание vba. надо написать программу, в которой есть функция . функция принимает массив . она сортирует массив (числа ) по возрастанию . после надо вывести полученный результат на печать
Private Sub CommandButton1_Click() Dim n As Integer, R As Range n = Cells(1, 4).Value Set R = Range(Cells(5, 2), Cells(4 + n, 2)) MySort R.Offset(0, -1), R End Sub
Private Sub MySort(RFrom As Range, RTo As Range) ' На самом деле сто лет она тут не нужна, глупо придумано задание RFrom.Copy RTo RTo.Sort RTo.Range(Cells(1, 1), Cells(1, 1)) End Sub
Все модели можно разбить на два больших класса: модели предметные (материальные) и модели информационные. Предметные модели воспроизводят геометрические, физические и другие свойства объектов в материальной форме (глобус, анатомические муляжи, модели кристаллических решеток, макеты зданий и сооружений и др.) . Информационные модели представляют объекты и процессы в образной или знаковой форме. Образные модели (рисунки, фотографии и др. ) представляют собой зрительные образы объектов, зафиксированные на каком-либо носителе информации (бумаге, фото- и кинопленке и др.) . Широко используются образные информационные модели в образовании (вспомните учебные плакаты по различным предметам) и науке, где требуется классификация объектов по их внешним признакам (в ботанике, биологии, палеонтологии и др.) . Знаковые информационные модели строятся с использованием различных языков (знаковых систем) . Знаковая информационная модель может быть представлена в форме текста (например, программы на языке программирования) , формулы (например, второго закона Ньютона F=m·a), таблицы (например, периодической таблицы элементов Д. И. Менделеева) и так далее. Иногда при построении знаковых информационных моделей используются одновременно несколько различных языков. Примерами таких моделей могут служить географические карты, графики, диаграммы и пр. Во всех этих моделях используются одновременно как язык графических элементов, так и на протяжении своей истории человечество использовало различные и инструменты для создания информационных моделей. Эти постоянно совершенствовались. Так, первые информационные модели создавались в форме наскальных рисунков, в настоящее же время информационные модели обычно строятся и исследуются с использованием современных компьютерных технологий.
//прога на Pascal`e type myrec = record rost : byte; ves : byte; end; var mas : array of myrec; n, i : byte; sumves, sumrost : longint; begin write ('Введите кол-во учеников: '); readln (n); setLength (mas, n); for i:=0 to n-1 do begin write ('Введите вес ', i+1, '-го ученика: '); readln (mas[i].ves); inc (sumves, mas[i].ves); write ('Введите рост ', i+1, '-го ученика: '); readln (mas[i].rost); inc (sumrost, mas[i].rost); end;
write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n) end.
Dim n As Integer, R As Range
n = Cells(1, 4).Value
Set R = Range(Cells(5, 2), Cells(4 + n, 2))
MySort R.Offset(0, -1), R
End Sub
Private Sub MySort(RFrom As Range, RTo As Range)
' На самом деле сто лет она тут не нужна, глупо придумано задание
RFrom.Copy RTo
RTo.Sort RTo.Range(Cells(1, 1), Cells(1, 1))
End Sub
Файл MS Excel 2003 во вложении.