Gorsel Programlama

Arabanın yakıtının kaç km sonra biteceini hesaplayan program.. 1.yazılı 3 .soru.

Bir arabanın deposunda 200 lt benzin bulunmaktadır. Bu araba   km ‘de 0.05 lt benzin yakmaktadır. Bu arabanın yakıtının kaç km sonra biteceğini hesaplayan programı tasarlayınız

Program 1 Buttondan oluşuyor..

Button1y yazılacaklar;

Dim yakıt As Decimal
Dim km As Integer
yakıt = 200
km = 0

While yakıt > 0
km = km + 1
yakıt = yakıt - 0.04
End While
MsgBox(yakıt)
MsgBox("Bu arabanın yakıtı " & km & " km sonra biter")