مشاهده نسخه کامل
: wwwatiw
22-04-2011, 11:25
سلام . من تازه شروع به ياد گرفتن برنامه نويسي كردم . يه سؤال ساده دارم . ميخوام برنامه اي بنويسم كه تعداد مقسوم عليه هاي يك عددو نشون بده . اينو نوشتم ولي همش ارور ميده 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
ممنون ميشم كمكم كنيد
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
ممنون ميشم كمكم كنيد