این برنامه باید بتونه اعداد اول 1 تا 10 را چاپ کند اما متاسفانه این کار را نمی کند؟
این هم کد برنامه:[
Option Explicit
Dim lngNumber, lngI, Cnt As Long
Private Sub Form_click()
For lngNumber = 1 To 10
For lngI = 1 To lngNumber
If lngNumber Mod lngI = 0 Then Cnt = Cnt + 1
If Cnt <= 2 Then Print lngNumber: Cnt = 0
Next lngI
Next lngNumber
End Sub
با تشکر