Index := 3 TestStr := '' switch(Index) *switch语句开始 case 1: *如果Index等于1 TestStr := TestStr + '1' break *跳出switch语句 case 2: TestStr := TestStr + '2' break case 3: TestStr := TestStr + '3' break case 4: TestStr := TestStr + '4' break default: *如果前面都不匹配，就执行这个分子 TestStr := TestStr + 'd' break endswitch *switch语句结束