Программирование
Веб программирование

Дробный калькулятор

 
 

Друзья сегодня я вам хочу представить  калькулятор дробей, этот калькулятор складывает  с разными знаменателями и можно с одинаковыми тоже.

Public Class Form1
Dim a As Single
Dim b As Single
Dim c As Single
Dim s As Single
Dim D1 As Single
Dim D2 As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
s = Val(TextBox4.Text)
D1 = Val(a / b)
D2 = Val(c / s)
TextBox5.Text = Str(D1 + D2)
End Sub

Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.