VB流程控制.ppt

例3.按身份购买参观门票的应用问题。 科技馆的门票价格为国内每人10元，老外每人20元，持学生证可以半价购票；军人、老人、儿童免费。请为科技馆设计一个程序实现上述功能。 输入（已知）：门票类型 intTicketType 国内普通票(1) 国际普通票(2) 学生票(3) 军人票(4) 老人票(5) 儿童票(6) 输出（结果）： 票价 Private Function getTicketPrice(intTicketType as integer ) as integer Select case …… End Function Private Function getTicketPrice(intTicketType as integer ) Select Case intTicketType Case 1 getTicketPrice=10 Case 2 getTicketPrice=20 Case 3 getTicketPrice=5 Case 4, 5, 6 getTicketPrice=0 Cas