17-05-13, 03:19 PM
إقتباس :اكتب برنامج لادخال عدد ما وطباعة العوامل الاولية له يعني مثلا العدد 24 عوامله الاولية = 2*2*2*3تفضل أخى
كود :
[align=left][b][SIZE=2][SIZE=4]
Dim I As Integer
Dim X As Integer
Dim DEV As Single
Private Sub Command1_Click()
Cls
X = InputBox("أدخل العدد المطلوب تحليله", I)
10 For I = 2 To X
DEV = X / I
If Int(DEV) <> DEV Then GoTo 20
X = DEV: Print I: GoTo 30
20 Next I
30 If X > 1 Then GoTo 10
End Sub[/SIZE][/SIZE][/b]
[/align]ان أعجبتك مشاركتي
... فلا تنسى تقييمي 