[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم ان نوع البيانات التي تستعمل للارقام الصحيحة  هي (Byte,Short,Integer,Long ) 
أما التي تسعمل الارقام الصحيحة والعشرية فهي من نوع (Decimal,Double,Single)
وللقسمة نستخدم المجموعة الثانية للحصول على نتائج ادق
ولمعرفة ان كانت نتيجة القسمة فيها كسور او لا 
نقوم بتحويل النتيجة وذلك بتقريب الرقم عبر حذف الارقام بعد الفاصلة عن طريق الدالة Floor بعدها نقوم بطرح هذا الرقم المقرب من نتيجة القسمة فأن كان الناتج اكبر من الصفر فهذا يعني ان الرقم فيه كسور وان كانت النتيجة تساوي صفر فإن النتيجة هي عدد صحيح
اليك هذا الكود 3 تكست بوكس وبوتون

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AA, BB, CC As Double
       AA = CDbl(Val(TextBox1.Text))
       BB = CDbl(Val(TextBox2.Text))
       If BB = 0 Then
           MsgBox("لايمكن القسمة على صفر")
           TextBox2.SelectAll()
           Exit Sub
       Else
           CC = AA / BB
           TextBox3.Text = CC.ToString("0.00")
       End If

       If CC - Math.Floor(CC) > 0 Then
           MsgBox("ناتج القسمة فيها كسور")
       Else
           MsgBox("ناتج القسمة عدد صحيح")
       End If
   End Sub