Sajadmohebbi
New Member
عدد از کاربر بگیره مقسوم علیه زوج را نشان بدهد در ویژوال بیسیک 6 basic
عدد از کاربر بگیره مقسوم علیه زوج را نشان بدهد در ویژوال بیسیک 6 basic
Dim n As Integer, i As Integer, s As String
n = Val(InputBox("Please enter a number:"))
For i = 2 To n Step 2
If (n Mod i) = 0 Then Print i
Next