مقال ٣

Public Class Form1
Private Sub Button1_Click()
Dim M As Single, Z As Single
M = Textbox1.Text
If M<= 1000 Then
Textbox2.Text = “1000 البرنامج يقوم بحساب الزكاه لاكثر من
Else
Z = 0.025 * M
Textbox2.Text = “الزكاه =” & Z

End If
End Sub

End Class