請問遞增的判斷寫法

我想要寫一個計數的程式
是否為這樣寫法
Peripheral myMotor As MR2x30A @ 0
Peripheral mySonar1 As SonarA @ 1
Peripheral mySonar2 As SonarA @ 2
Peripheral mySonar3 As SonarA @ 3
Dim Status1,Status2,Status3 As Byte '儲存取得的偵測結果狀態
Dim Distance1 ,Distance2,Distance3 As Word '儲存取得的偵測結果
Sub MAIN()
integer i ,a <-----宣告A為整數((還是這兩個整數值可以和Status1,Distance1一起宣告在一起?變成
                                                         Dim Status1,Status2,Status3 ,i,aAs Byte '儲存取得的偵測結果狀態
                                                       Dim Distance1 ,Distance2,Distance3,i,a As Word '儲存取得的偵測結果))


mySonar1.SetFloorLevel(0) '設定離地高度為大於5cm
mySonar1.SetRangingTime(10) '設定等待接收時間為63ms
mySonar1.SetRepeatTime(20) '設定重複偵測週期為200ms
mySonar1.SetRepeatCount(0) '設定重複偵測次數為 0 (無限次)
mySonar1.SetBurstPower(10) '設定發射強度等級為 10
.....
mySonar1.RepeatRanging() '執行重復偵測
.....
mySonar1.EnableRangingFinishEvent() '啟動發射接收完成事件
.....
DO
If Distance1 =22 Then
MyMotor.ForwardAB(400,410)
PAUSE 500
ElseIf Distance2 <22 Then
MyMotor.ForwardAB(400,430)
PAUSE 500
ElseIf Distance1 >22
MyMotor.ForwardAB(430,400)
End If

if Distance3= 20 Then
for(i=3;i<7:i++)<--i初始值為3到7之間，i+1    BASIC 好像不能用i++...一直錯在這個地方
a= i%2      <----------除2
if (a==0) then<------偶數
S_Name()
ElseIf (a==1) then
S_Name1()
End If

我是想寫成，Distance3感測到時+1然後IF判斷然後跳副程式，我先讓他 i++ 是否可行
這是用C語言去構想而出的

For ... Next 的寫法如下：

For i = 3 to 6 Step 1
     a = i Mod 2
     If a = 0 Then
          S_Name1()
     End If
Next


變數宣告部分，把 i,a 加到裡面是可以的。。。
Dim Status1,Status2,Status3 ,i,a As Byte

不過放的位置不同性質也不一樣。。
如果是放在 Sub main() 前，是屬於全域變數，而放在各副程式段的 Sub xxx() 及 End Sub 間，就屬於區域變數了。
指令集用法可以按F1，有詳細的中文說明喔！{:soso_e100:}

程式碼的意思是這樣嗎?
For i = 3 to 6 Step 1     <------i=3到6 每次+1  (Step是等於C++的i++的意思嗎?
     a = i Mod 2             <------a/2      (Mod是Basic的除式嗎?
     If a = 0 Then
          S_Name1()
     End If
Next

Step 1 是C 語言裏 c++ 的意思沒錯，而 Mod 及C 語言的 ％，是取餘數的除法喔。
更多指令用法可以在innoBasic Workshop2中按F1，有更詳細的中文說明喔！