برنامه ای بنويسيد كه اعداد اول كوچكتر از 100 را چاپ كند.

[ahmadfononi]

با سلام خدمت همگی عزیزان

اول یک Command را ایجاد کرده و بعد کد های زیر را در آن قرار میدهید:

Private Sub Command1_Click()
Dim pri As Boolean
i = 2
While i <= 100
j = 2
pri = True
While j < i And pri = True
If i Mod j = 0 Then pri = False
j = j + 1
Wend
If pri = True Then Print i
i = i + 1
Wend
End Sub
​