حل مسایل ریاضی در (۲)vb

برنامه ای بنویسید که دو عدد را از ورودی دریافت نموده ، اعداد اول بین آن دو عدد را در صورت وجود نمایش دهد

Private Sub Command1_Click()

a = Val(InputBox("")) 

b = Val(InputBox(""))

For i = a + 1 To b - 1

 T = 0

 For j = 2 To i - 1

 If i Mod j = 0 Then

 print CStr(i) ; " Aval Nist"

 T = 1

 Exit For

 End If

 Next j

 If T = 0 Then Print CStr(i); " Aval Hast"

Next i