FUNCTION NUM(N, I) SELECT CASEO CASE(100) NUM=N/100 !用N百位上的数赋值给函数名 CASE(10) UM=MoD(N/1010)!用N十位上的数赋值给函数名 CASE(1) NUM=MOD(N,10)!用N个位上的数赋值给函数名 END SELECT END 程序运行结果如下: 153 370 371 407FUNCTION NUM(N,I) SELECT CASE(I) CASE(100) NUM=N/100 !用N百位上的数赋值给函数名 CASE(10) NUM=MOD(N/10,10) !用N十位上的数赋值给函数名 CASE(1) NUM=MOD(N,10) !用N个位上的数赋值给函数名 END SELECT END 程序运行结果如下: 153 370 371 407