[ALBRNS]

وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :

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


بالتوفيق