math, simple logic

[rpool]

is my logic problem?

I want that number "75", foreach 20
show result:
0
20
40
60
75

any advice please!

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer

a = "75"

b = a Mod 20
c = a \ 20


Dim i As Integer
For i = 0 To a Step 20
List1.AddItem i
Next i

List1.AddItem b
List1.AddItem c


End Sub

[seenu_1st]

i m not sure that what u r expecting, but something like this...

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer

a = 75
b = 20

c = a \ b

Dim i As Integer
For i = 0 To c
List1.AddItem i * b
Next i

List1.AddItem a
End Sub

[westconn1]

after the loop

if not i = a then list1.additem a

[seenu_1st]

pete, is it to avoid repeat the last value when a mod b = 0? if yes, i think it is like this after the loop

If Not (i - 1) * b = a Then List1.AddItem a

[westconn1]

is it to avoid repeat the last value when a mod b = 0?

the requested result in th op showed the values for each step and the max value, regardless of whether it was a step

show result:
0
20
40
60
75

at least that was my interpretation of it
as far as i could see the mod result was not required

[seenu_1st]

actuly, if a mod b =0 then the max value is achieved in the loop itself, so hav to avoid the same value repeat again in the list

If Not b * c = a Then List1.AddItem a
'or
If Not a Mod b = 0 Then List1.AddItem a

[westconn1]

so hav to avoid the same value repeat again in the list

i did that with not i = a

[seenu_1st]

actuly 'i' = quotient of a/b, so 'i' cant be equal to 'a' unless 'b' = 1

[westconn1]

as i is the counter of the loop, after the loop it is equal to the last step, in this case 60, so not = to a

if it was step 25 or a = 80 then i would = a

[anhn]

as i is the counter of the loop, after the loop it is equal to the last step, in this case 60, so not = to a

if it was step 25 or a = 80 then i would = a

That's not true. After the loop, the value of i will go one more extra step beyond the last step.

For i = 0 to 13 step 3
   '-- do nothing
Next
Debug.Print i '-- at this point: i = 15

Why not do it like this without extra calculation:
(a - 1) is used to avoid (i = a) within the loop.

Private Sub Command1_Click()
    Dim a As Long
    Dim b As Long
    Dim i As Long
    
    a = 75
    b = 20
    
    For i = 0 To (a - 1) Step b
        List1.AddItem i
    Next
    List1.AddItem a
End Sub

[seenu_1st]

yes it's good anhn.