بابا چرا بحث رو سنگين مي كنيد اين همه چرت و پرت چيه دو تا كد سادس مي نويسي تموم
بيا اينم كد وي بيOption Explicit
Private Function ISPRIME(num As Variant) As Boolean
Dim X As Variant
ISPRIME = True
Select Case num
Case Is <= 0
ISPRIME = False
Case Is <= 2
ISPRIME = True
Case Else
For X = 2 To num - 1
If num Mod X = 0 Then
ISPRIME = False
End If
Next X
End Select
End Function
Private Sub cmdPrime_Click()
List1.Clear
On Error Resume Next
Dim X As Variant
lblOutput.Caption = ""
For X = Val(txtLover) To Val(txtUpper)
DoEvents
If ISPRIME(X) = True Then
List1.AddItem X
End If
Next X
End Sub
علاقه مندی ها (Bookmarks)