задача на бейсике

[-=Mafia=-]

1. Написать программу вычисления стоимости поездки на авто на дачу туда и обратно исходными данными являются расстояние до дачи в км; количество бензина, которое потребляет автомобиль на 100Км пробега; цена одного литра бензина

2. Написать программу которая вычисляет частое от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они небесные выдавать сообщение об ошибке

[saper666]

4 надписи, 4 текст.поля и кнопка

Private Sub CommandButton1_Click()
r = Val(TextBox1.Text)         'rasstoyanie
p = Val(TextBox2.Text)         'potreblenie
c = Val(TextBox3.Text)         'cena
TextBox4.Value = (r / 100) * p * c 'result
End Sub

Безымянный.jpg

2.

Private Sub CommandButton1_Click()
r = Val(TextBox1.Text) 'd1
p = Val(TextBox2.Text) 'd2
If p <> 0 Then
TextBox4.Value = r / p
Else
MsgBox "На ноль делить нельзя"
End If
End Sub

Private Sub CommandButton2_Click()
End
End Sub

[-=Mafia=-]

спасибо большое

[-=Mafia=-]

еще одна
Написать программу сколько слагаемых должно быть в сумме 1+1\2+1\3+...+1\N что бы эта сумма оказалась больше 5

[Biggs]

А потом еще