Большее из двух чисел заменить их полусуммой, а меньшее удвоенным произведением - VB

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

Помогите пожалуйста составить простенький код для Visual Basic 6.0, к сожалению сама я не могу разобраться, но очень надеюсь на вашу помощь. - Даны два числа. Большее из этих двух чисел заменить их полусуммой, а меньшее удвоенным произведением.

Решение задачи: «Большее из двух чисел заменить их полусуммой, а меньшее удвоенным произведением»

textual
                            Листинг программы 
                        

                            Sub Task(a1 as double, a2 as double)
      b#=0.5*(a1+a2)
      c#=2*a1*a2     
      If a1 > a2 then
         a1=c#
         a2=b#
      elseIf a2 > a1 then
         a1=b#
         a2=c#
      else
         MsgBox "Числа равны! Задача не решается."
      end if
End Sub
                        

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

10 голосов , оценка 4.2 из 5

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