Сколько дней потребуется предприятию, чтобы количество продукции превысило запланированный объем - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д