1 İLE 10000 ARASINDAKİ SAYILARIN KAREKÖK VE FAKTORİYELİ

Private Sub Command1_Click()
Dim p As Integer
d = 1
For k = 3 To 10000
For m = 2 To k - 1
p = k Mod m
If p = 0 Then
t = 2
Else
t = 1
End If
d = d * t
Next m
If d = 1 Then
List1.AddItem k
End If
d = 1
Next k

End Sub




Private Sub Command2_Click()
Dim fkt As Double
Dim sayi As Integer
fkt = 1
sayi = CInt(Text1.Text)
For k = 1 To sayi
fkt = fkt * k
Next k
List2.AddItem fkt
End Sub