Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Исходный текст программы представлен ниже. Он содержит типичные синтаксические, смысловые и логические ошибки, допускаемые студентами. Программа оформлена в виде процедуры и должна находиться в стандартном модуле с именем Module2. Для ее создания необходимо в окне базы данных выполнить команду СоздатьàМодули или войти в окно редактора VBA (Alt+F11àРедактор VBAà меню InsernàModule).
Option Compare Database
Sub Текущая_рентабельность_c_ошибками()
Dim d(), r() As Currency
Dim Sum_d, Sum_r, rent, i, m, j, n As Integer
m = InputBox("Введите число статей доходов", "Доходы")
If m = Empti Or m<=0 Then
Exit Sub
n = Val(ImputBox("Введите число статей расходов", "Расходы"))
If m = Empty Or n<=0 Or n>=20 Then Exit Sub
ReDim d(m), r(1 To n) ‘Переопределение размеров массивов d(), r()
Sum_d = 0
Sum_r = 0
For i = 1 To m
Met1: d(i) = Val(InputBox("Введите значение статей _
доходов", "Доходы"))
If d(i)<=0 Or d(j)>1000000 then
Msgbox "Значение дохода не может быть меньше 0 _
и больше 1000000 руб."
Goto met1
End if
Sum_d = Sum_d + d(i)
For j = 1 To n Step -1
r(j) = Val(InputBox("Введите значение статей _
расходов", "Расходы"))
Sum_r = Sum_r + r(i)
Next j
rent = (Sum_d - Sum_r) / Sum_r
MsgBox "Значение текущей рентабельности равно " & _
rent & "%"
Print rent
EndSub
End Sub
Дата публикования: 2014-11-04; Прочитано: 190 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!