[ALBRNS]

السلام عليكم

بما ان Integer متغير من متغيرات الاعداد الصحيحة

نقوم بتغييره بمتغير من متغيرات الأرقام العشرية

فقط قم بتغيير المتغير من Integer الي Double

ليكون الكود

PHP كود :

Private Sub Command1_Click()
Dim num  As Double
num = Val((Text1.Text) / 100) * (Val(Text1.Text) / 100)
Text3.Text = Int(Val(Text2.Text) / num)
End Sub 


بالتوفيق