Сколько дней потребуется предприятию, чтобы количество продукции превысило запланированный объем - VB

Формулировка задачи:

Малое предприятие в первый день работы выпустило P единиц товарной продукции. Каждый последующий день оно выпускало на Q единиц больше, чем в предыдущий. Сколько дней потребуется предприятию, чтобы общее количество выпущенной продукции за все время работы впервые превысило запланированный объем? Используйте цикл с постусловием с ключевым словом Until. Заранее спасибо.

Решение задачи: «Сколько дней потребуется предприятию, чтобы количество продукции превысило запланированный объем»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim z As Integer
Dim e As Integer
a = Text1.Text
b = Text2.Text
If a = b Then MsgBox ("Z = 1") Else
If a < b Then MsgBox ("z =>1") Else
Do While a > z
z = z + b
e = e + 1
Loop
MsgBox(" Вычислил...Через E дней количество товаров будет превышено в 2 раза ") 
MsgBox (e)
 
 
End Sub
 
Private Sub Form_Load()
Command1.Caption = "Вычислить "
Label1.Caption = "Введите требуемое кол-во товаров в день"
Label2.Caption = "На сколько больше товаров производится"
Text1.Text = " "
Text2.Text = " "
End Sub

Оцени полезность:

13 голосов , оценка 4.154 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы