Dim X ,Y as single

x=Me.TextBox1.text

Y=3+5x

label1.text=Y
فى البرنامج السابق قام المستخدم بادخال قيمة نصية ... قم بتصحيح الكود باستخدام جملة Try/catch

انت تقصد اكتشاف الاخطاء:
Dim X ,Y as single
Try
x=Me.TextBox1.text

Y=3+5

label1.text=Y
Catch
Messagebox.show (" please insert numeric value
End try

يمكن كتابة نفس البرنامج ولكن بدلاً من messagebox نظهر الرسالة في نفس Label الإجابة ..

Dim X ,Y as single
Try
x=Me.TextBox1.text

Y=3+5

label1.text=Y
Catch
" label1.Text= " please insert numeric value
End try

Dim X ,Y as single
Try
x=Me.TextBox1.text


Catch
" label1.Text= " please insert numeric value
End try
y=3+5X

label1.text=y

يكتب الكود الذى يحتمل وجود خطا فيه بعد كلمه Try
اما ياقى الاكواد بعد End try
when there are no error