Microsoft KB Archive/43901
Article ID: 43901
Article Last Modified on 11/21/2006
This article was previously published under Q43901
The SELECT CASE statement allows multiple occurrences of the same CASE condition. Because a SELECT CASE statement operates in sequential order, the first instance of any CASE is always taken. If there are other CASE conditions listed after the CASE ELSE statement, these may cause the compiler errors "SELECT without END SELECT" and "END SELECT without SELECT."
Microsoft has confirmed this to be a bug in QuickBasic Versions 4.00, 4.00b, and 4.50, and in the QB.EXE that is shipped with Microsoft Basic Compiler Versions 6.00 and 6.00b (buglist6.00 buglist6.00b). This problem was corrected in Microsoft Basic Professional Development System (PDS) Version 7.00 (fixlist7.00).
In the following code example, the QB.EXE environment will not produce an error. During compilation, the error "SELECT without END SELECT" occurs on the second CASE ELSE and the error "END SELECT without SELECT" occurs on the END SELECT.
In the QBX.EXE environment that is shipped with PDS, the second CASE ELSE statement is flagged with the error message "CASE without SELECT."
CLS DO INPUT "", x SELECT CASE x CASE IS = 1 PRINT "ONE" CASE IS = 2 PRINT "TWO" CASE IS = 3 PRINT "THREE" CASE IS = 3 'This CASE never chosen PRINT "THREE 2" CASE ELSE PRINT "OTHER" CASE ELSE 'This line causes "SELECT without END SELECT" PRINT "OTHER 2" END SELECT 'This line causes "END SELECT without SELECT" LOOP UNTIL x = 0
Additional query words: QuickBas BasicCom buglist4.00 buglist4.00b buglist4.50 B_BasicCom