VB流程控制..pptVIP

例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 Case Else getTicketPrice=0 End Select 4.4 循环结构 计算机按照事先规定的次数或某种规定的条件，重复执行某些操作的结构称为循环结构。循环分为计数循环和条件循环两种类型。 1. For 循环语句 语法： For 循环控制变量=初值 to 终值 循环体语句 Next 循环控制变量 其中：循环控制变量必须为数值型； [Step 步长]中的步长可正、负; 循环体语句可是一条或多条语句； 循环次数=（终值-初值）/步长+1; 循环变量=初值 循环变量=终值 循环体 循环变量=循环变量+步长 退出循环 True False 例1. 计算1-100之间所有自然数的和 Private Sub Form_Click() Dim i%, Sum% Sum = 0 For i = 1 To 100 Sum = Sum + i Next i MsgBox sum End Sub 例2. 计算1-1000之间所有能被3整除的自然数的和。 Private Sub Form_Click() Dim i%, Sum! Sum = 0 For i = 0 To 1000 Step 3 Sum = Sum + i Next i MsgBox Sum End Sub 例3. 计算sum = 1！+2！+3！+…+n!。 Dim i%, n% , p#, sum# n=InputBox(“请输入一个任意正整数：”) p=1 sum=0 For i =1 to n p = p * i sum = sum + p Next i MsgBox “计算结果为：” sum 例4. 求出所有的水仙花数。 Private Sub Form_click() Dim i%, a%, b%, c% For i = 1 To 3 Print Next i For i = 100 To 999 a = i \ 100 b = (i Mod 100) \ 10 c = i Mod 10 If i = (a ^ 3 + b ^ 3 + c ^ 3) Then Print Spc(14); i End If Next i End Sub 例5. 求任意两个正整数的最大公约数和最小公倍数。 Private Sub Command1_Click() Dim a%, b%, n%, i%, mx% a = Val(Text1) b = Val(Text2) If