P
Parenek
Здравствуйте! Передо мной встал вопрос о решении задачи в системе VBA. Но возникли трудности, я попросту не знаю как написать код и блок схему.
Условие таковы:
По результатам продажи жилья за полгода администрацией области получена следующая информация:
Город: Кемерово
Кол-во проданных квартир: 634
Кол-во кв.м: 62800
Сумма от продажи (тыс.руб) - 6781.70
Напечатать исходные данные в виде таблицы и определить город, в котором стоимость 1 кв.метра минимальная.
Помогите пожалуйста. Начала та знаю как делать. а вот дальше ступр.
Добавлено через 15 часов 19 минут
вот есть скрипт
Вот мне нужно сделать так, чтобы ниже таблицы выводилась самое маленькое значение S(i), а рядом название города. Подскажите пожалуйста как это реализовать!?
Условие таковы:
По результатам продажи жилья за полгода администрацией области получена следующая информация:
Город: Кемерово
Кол-во проданных квартир: 634
Кол-во кв.м: 62800
Сумма от продажи (тыс.руб) - 6781.70
Напечатать исходные данные в виде таблицы и определить город, в котором стоимость 1 кв.метра минимальная.
Помогите пожалуйста. Начала та знаю как делать. а вот дальше ступр.
Добавлено через 15 часов 19 минут
вот есть скрипт
Код:
Sub Пример()
Dim N, i As Integer
Dim G() As String
Dim P() As Integer
Dim K() As Single
Dim S() As Single
Dim Sr() As Single
N = InputBox("количество обследуемых городов")
ReDim G(N) As String
ReDim P(N) As Integer
ReDim K(N) As Single
ReDim S(N) As Single
ReDim Sr(N) As Single
For i = 1 To N
G(i) = InputBox("название города")
P(i) = InputBox("количество проданных квартир в")
K(i) = InputBox("количество кв. м.")
S(i) = InputBox("Введите стоимость 1 кв.м в городе")
Next
For i = 1 To N
Next
Debug.Print "город"; Tab(30); "количество проданных квартир"; Tab(50); "количество кв. м."; Tab(70); "Стоимость 1 кв.м"
For i = 1 To N
Debug.Print G(i); Tab(30); P(i); Tab(50); K(i); Tab(70); S(i)
Next
End Sub
Вот мне нужно сделать так, чтобы ниже таблицы выводилась самое маленькое значение S(i), а рядом название города. Подскажите пожалуйста как это реализовать!?