Private Sub Command1_ClickDim i As IntegerDim c As Integeri = InputBox("enter number ?")For c = 1 To iIf i Mod c = 0 ThenPrint cEnd IfNext cEnd Sub
Private Sub Command2_Click()EndEnd Sub
اين كاملشه...