Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim counter As Integer
i = Text1.Text
For counter = 1 To i
If i Mod counter = 0 Then
Print counter
End If
Next counter
End Sub
Private Sub Command1_Click()
i = InputBox("")
For n = 1 To i
For j = n To 1 Step -1
If Not (n / j Like "*.*") Then
p = p + 1
If p > 2 Then GoTo 1
End If
Next
1:
If p <= 2 Then List1.AddItem n
p = 0
Next
End Sub
این برنامه رو من قبلا نوشتم قبل از اجرا یه لیست باکس هم درست کن
برنامه نمایش اعداد اول ( اعدادی که غیر از خودش و یک بر عددهای دیگه بخش پذیر نیستن)
ببین این مشکلتو حل میکنه؟i = InputBox("")
Cls
Dim maghsom%, adadeaval%
For n = 1 To i
For j = n To 1 Step -1
If Not (n / j Like "*.*") Then
p = p + 1
If p > 2 Then GoTo 1
End If
Next
1:
If p <= 2 Then
adadeaval = adadeaval + 1
Else
maghsom = maghsom + 1
End If
p = 0
Next
Print adadeaval & " : adade aval"
Print maghsom & " : adade kamel"
Private Sub Command1_Click()
i = InputBox("")
For n = 1 To i
For j = n To 1 Step -1
If Not (n / j Like "*.*") Then
p = p + 1
If p > 2 Then GoTo 1
End If
Next
1:
If p <= 2 Then List1.AddItem n
p = 0
Next
End Sub
For n = 100 To 999
For j = n To 1 Step -1
If Not (n / j Like "*.*") Then
p = p + 1
If p > 2 Then GoTo 1
End If
Next
1:
If p <= 2 Then List1.AddItem n
p = 0
Next