يه سؤال خيلي ساده

[wwwatiw]

سلام . من تازه شروع به ياد گرفتن برنامه نويسي كردم . يه سؤال ساده دارم . ميخوام برنامه اي بنويسم كه تعداد مقسوم عليه هاي يك عددو نشون بده . اينو نوشتم ولي همش ارور ميده next without fr . چي كار بايد بكنم؟؟؟

Private Sub Command1_Click()
Dim n As Single, k As Single, i As Single
n = Val(Text1.Text)
k = 0
For i = 1 To n Step 1
If n Mod i = 0 Then
k = k + 1
Next i
Print k
End Sub

ممنون ميشم كمكم كنيد

[Dolphin 7]

سلام . من تازه شروع به ياد گرفتن برنامه نويسي كردم . يه سؤال ساده دارم . ميخوام برنامه اي بنويسم كه تعداد مقسوم عليه هاي يك عددو نشون بده . اينو نوشتم ولي همش ارور ميده next without fr . چي كار بايد بكنم؟؟؟

Private Sub Command1_Click()
Dim n As Single, k As Single, i As Single
n = Val(Text1.Text)
k = 0
For i = 1 To n Step 1
If n Mod i = 0 Then
k = k + 1
Next i
Print k
End Sub

ممنون ميشم كمكم كنيد

ارورش مال اینه که

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

نداره