RosettaCodeData/Task/Conditional-structures/FreeBASIC/conditional-structures-2.basic

10 lines
103 B
Plaintext

Dim a As Integer = 1
Select Case a
Case 1
sub1
Case 2
sub2
Case Else
sub3
End Select