mohammad2407
چهارشنبه 27 آذر 1392, 02:52 صبح
سلام دوستان من تخصصی در زمینه وی بی ندارم
ممنون میشم مشکل کد زیر به من بگین
کجا رو اشتباه نوشتم
وقتی برنامه رو اجرا میکنم خطا میده
Private Sub Command1_Click()
Dim num As Integer
num = Val(Text1.Text)
For i = num To 1
If (num Mod 5) = 0 Then
List1.AddItem (i)
End If
i = i - 1
End Sub
ممنون میشم مشکل کد زیر به من بگین
کجا رو اشتباه نوشتم
وقتی برنامه رو اجرا میکنم خطا میده
Private Sub Command1_Click()
Dim num As Integer
num = Val(Text1.Text)
For i = num To 1
If (num Mod 5) = 0 Then
List1.AddItem (i)
End If
i = i - 1
End Sub