高中信息技术VB算法与程序复习资料.ppt

例题分析 有如下VB程序段： a = 3: b = 4: c = 5 If a = b And a = c Then y = a ElseIf b = c Then y = b Else y = c End If 该程序段运行之后，整数型变量y的值（ ） A. 0 B. 3 C. 5 D.4 √ F F F 2. 某超市打折促销，规定如下： ①购物未超过500元按原价支付； ②购物超过500元但未超过1000元，按9折优惠计价； ③购物超过1000元但未超过1500元，按8折优惠计价； ④购物超过1500元但未超过3000元，按7折优惠计价； ⑤购物超过3000元，按6折优惠计价。 根据以上规定，假定购物货款为x元，则实付金额y为: x x≤500 0.9*x 500＜x≤1000 y= 0.8*x 1000＜x≤1500 0.7*x 1500＜x≤3000 0.6*x x＞3000 程序界面如图所示，在输入购物金额（单位：元）后的文本框orgtext中输入购物金额（单位：元），单击实付金额计算按钮（Command1）后，在实际支付金额（单位：元）为后的文本框cashText中输出实付金额。解决此问题相应的Visual Basic程序如下： 例题分析 Private Sub Command1_Click() Dim x As Single, y As Single x = ‘在文本框orgText中输入购物实付金额。 If x = 500 Then y = x ElseIf Then y = x * 0.9 ElseIf x = 1500 Then y = x * 0.8 ElseIf x = 3000 Then y = x * 0.7 Else End If ‘在文本框cashText中输出实付金额。 End Sub x=1000 cashtext.text=str(y) Val(orgtext.text) y=x*0.6 循环结构 循环结构能使程序在执行过程中，根据条件来决定是否要重复执行循环体内的语句 执行a 条件 Y N 执行b 循环语句（For语句和Do语句） For语句 格式： For 循环变量=初值 To 终值 Step [步长] 　　 [循环体] Next 循环变量 例如：计算1+2+3+…+100 S = 0 For i = 1 to 100 step 1 s = s + i Next i （如果步长为1，step 1可以省略） 格式： Do While 条件表达式 [循环体] Loop 例如：计算1+2+3+…+100 i=1:S = 0 Do While i = 100 s = s + i i = i + 1 Loop 和For语句相比，Do语句没有循环变量和步长，但需知道什么时候循环结束。 Do语句 例题分析： 1.某同学编写了如下Visual Basic程序段： Dim x , y As Integer x = 2 y = 20 Do While x y x = x ^ 2 Loop 运行这段程序段，循环体的循环次数为（ ） A．4 B．3 C．2 D．0 √ 条件 x Y 4 Y 16 Y 256 N 例题分析： 2.为使左、右框内的Visual Basic程序段实现相同的功能，可在左框内划线处填写的代码是（ ） s = 0 : t = 1 : g = 2 Do While g = 6 t = t * g s = s + t g = g + 1 Loop s = 0 : t = 1 t = t * g s = s + t Next g For g = 2 To 6 ◆“枚举算法”又称为“穷举法”，其基本思想是：一一列举出所有可能的解，并验证每个可能的解是否是真正的解，若是，就采纳，否则，就抛弃。 枚举算法 例题 ：用100元钱买100只鸡，公鸡，母鸡，小鸡都要有。公鸡5元1只，母鸡3元1只，小鸡1元3只。请问公鸡，母鸡，小鸡各应该买多少只？ ◆枚举范围： ◆判定条件： ◆枚举，验证： 假设公鸡有X只，母鸡有Y只，小鸡有Z只。 X： ， Y ： ， Z： 5*x+3*y+z/