بدست آوردن عدد اول

[ravand]

سلام من چيز زيادي از ويژوال بيسيك 6 بلد نيستم به اين چيزي كه ميگم خيلي نياز دارم .
ميخوام دو تا تكست داشته باشم دو تا عدد بهشون بدم مثلا عدد يك و 15 بعد با كليك روي دكمه اعداد اول بين اين دو رو برام حساب كنه.
متشكرم

[sr2m72]

دو تا تكس باكس و يك كامند روي فرم قرار بده و اين كد رو وارد كن:

Private Sub Command1_Click()
t1 = Text1.Text
t2 = Text2.Text
For i = t1 To t2
n = 0
For j = 1 To i
m = i Mod j
If m = 0 Then n = n + 1
Next
If n = 2 Then Print i
Next
End Sub