AB4.24で試してみたところコンパイルエラーにならなかったため記載することは可能でした。
しかし実行すると、
下記のケース1は問題ありませんでしたが、
下記のケース2はIの値が1以外にもかかわらず*JMP1に分岐されていました。
なのでこのような記載はやめたほうがよいと私は思いますが。
ご確認よろしくお願いいたします。
ケース1
DIM A AS Long
A = 2
IF A = 1 THEN *JMP1 ELSE *JMP2
*JMP1
MessageBox(NULL,"*JMP1","TEST",MB_OK)
END
*JMP2
MessageBox(NULL,"*JMP2","TEST",MB_OK)
END
ケース2
DIM I AS Long
DIM T AS Long
I = 2
T = 1
IF I = 1 THEN
*JMP1
END IF
IF T = 1 THEN
*JMP2
END IF
*JMP1
MessageBox(NULL,"*JMP1","TEST",MB_OK)
END
*JMP2
MessageBox(NULL,"*JMP2","TEST",MB_OK)
END
AB4.24で試してみたところコンパイルエラーにならなかったため記載することは可能でした。 しかし実行すると、 下記のケース1は問題ありませんでしたが、 下記のケース2はIの値が1以外にもかかわらず*JMP1に分岐されていました。 なのでこのような記載はやめたほうがよいと私は思いますが。 ご確認よろしくお願いいたします。
ケース1 DIM A AS Long A = 2 IF A = 1 THEN *JMP1 ELSE *JMP2 *JMP1 MessageBox(NULL,"*JMP1","TEST",MB_OK) END *JMP2 MessageBox(NULL,"*JMP2","TEST",MB_OK) END
ケース2 DIM I AS Long DIM T AS Long I = 2 T = 1 IF I = 1 THEN *JMP1 END IF IF T = 1 THEN *JMP2 END IF *JMP1 MessageBox(NULL,"*JMP1","TEST",MB_OK) END *JMP2 MessageBox(NULL,"*JMP2","TEST",MB_OK) END
|