Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2012, 21:32   #1
megostudent
Форумчанин
 
Регистрация: 31.12.2010
Сообщений: 320
По умолчанию Циклы в VB

Есть задание

Дано показатели работы предпреятия за N месяцов - ветор Х(х1, х2, ...хn) и величины А, К, М. Найти номера месяцов, у которых показатели имеют минимальное значение.
Помогите плиз решить задание, а то есть пример и он нерабочий, а с VB ток познакомился сегодня.
пример:
Код:
Private Sub Form_Load()
Dim mint, I As Integer
Dim mdblFCP, mdbl As Double
mint = InputВох("Введите количество отраслей", _
"Цикличный вычислительный процесс", 5)
ReDim msng(mint) As Single
For I = 1 To mint
mint(І)=InputВох("Введите уровень зарплаты " & I & " — отрасли" , _
"Цикличный вычислительный процесс", "000.00")
Next I
mdblFCP = 0
For І = 1 То mintN
mdblFCP = mdblFCP + msngF(I)
Next I
mdblFCP = mdblFCP / mintN
mdblR = 0
For I = 1 To mintN
mdblR = mdblR + (msngF(I) — mdblFCP) ^ 2
Next I
mdblR = Sqr(mdblR / mintN)
MsgBox "Среднеквадратическое отклонение заработной платы = " _
& Format(mdbL "0 00"). vbOKOnly + vblnformation, _
" Цикличный вычислительный процесс"
End Sub

Последний раз редактировалось megostudent; 13.05.2012 в 21:34.
megostudent вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
циклы ВОВ-ка Помощь студентам 1 12.12.2011 10:48
синусы и ко. циклы, вроде циклы Scorch92 Паскаль, Turbo Pascal, PascalABC.NET 2 22.12.2010 19:26
циклы (с++) @lenk@ Помощь студентам 0 05.05.2010 00:58
Циклы - вложенны циклы? tigga Microsoft Office Excel 5 19.02.2010 23:36
Циклы Doublefaced Помощь студентам 2 01.07.2009 20:29