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
	








