|
#1
|
|||
|
|||
|
Dim m As Short
For m = 10 To 0 Step -3 ( msgbox (m Next |
|
#2
|
|||
|
|||
|
Dim m As Short
m = 10 Do While m>=0 ( msgbox (m M=M-3 Loop |
![]() |
| العلامات المرجعية |
|
|