Visual Basic程序设计电子课件——第7章 程序控制结构.pptVIP

* （2） Choose函数 Choose（数值表达式，表达式1，表达式2，…. 表达式n） 说明： 第一个参数数值表达式的运算结果一般是一个数值，界于1和后面的总选项个数之间。Choose函数会根据数值表达式的值决定返回哪个选项列的值。当数值表达式 的值是1，则返回选项表达式1的值作为函数的返回值；当数值表达式 的值是2，则返回选项表达式2的值作为函数的返回值；以此类推，当数值表达式的值是n，则返回选项表达式n的值作为函数的返回值。如果数值表达式的值小于1或大于选项总数时，Choose函数返回Null值。如果数值表达式之值不是整数，则会先四舍五入为与其最接近的整数，作为选择的依据。 * 例如，根据输入的星期几编号（1～7），输出对应的英文单 词缩写，可以表达为： day = Val(InputBox(输入星期编号：, , 1)) Print Choose(day, Mon, Tue, Wed, Thu, Fri, Sat, Sun) * 7.4 循环语句 For…Next型循环 For Each…Next型循环 While型循环语句 Do型循环语句 goto型循环语句 Exit语句 循环控制结构的嵌套 * 1. For…Next型循环 (一般用于循环次数已知) For 循环变量 = 初值 To 终值 [Step 步长] 循环体 Next [循环变量] * 循环次数 例: For I=2 To 13 Step 3 Print I , Next I Print “I=“, I 循环执行次数 ：4 输出I的值分别为: 2 5 8 11 出了循环输出为: I=14 当步长为负数时，公式中的“+1”改为“-1”即可。所以，For型循环是循环次数固定的循环，循环次数在编程的时候即可确定。 * 例 编程计算：1+2+3+4+5+…+99+100的值 Dim i, sum As Integer sum = 0 For i = 1 To 100 sum = sum + i Next i MsgBox (sum = + Str(sum)) 当i=100 i=i+1 输出sum sum=0,i=1 sum=sum+i 算法流程图 * 2. For Each…Next型循环 For Each 变量 In 数组名|对象集合 循环体 Next [变量] 这种形式的循环语句针对一个数组或集合中的每个元素，重复执行一组语句，用一个变量来代表遍历的每一个元素。对于集合来说，变量可以是变体型变量或对象变量；对于数组而言，变量只能是变体型变量。只要集合中有一个元素，就会进入循环体执行。针对数组或集合中的每一个元素执行一遍循环，直到处理完所有元素后，才退出循环。 * 3 While型循环语句 While 循环条件表达式 循环体 Wend 该语句也属于“当型循环”，类似于Do While…Loop型循环语句。在进入循环之前，先进行循环条件的判断。若条件成立，则执行循环体；若条件不成立，则退出循环。 * 例 利用While型循环语句编写程序，计算1+2+3+4+5+…+99+100的值。 Private Sub Form_Load() Dim i, sum As Integer i = 1 sum = 0 While i = 100 sum = sum + i i = i + 1 Wend MsgBox (sum = + Str(sum)) End Sub * For型循环和While型循环可以相互转换、取代。 如果把For型循环改写成While型循环，For型循环语句中对循 环变量的初值、终值和步长的设定则分别出现在While型循环 的以下位置： 循环变量 = 初值 While 循环变量 = 终值 循环体 循环变量 =循环变量 + 步长 Wend 当步长为负数时，循环条件可改成“循环变量 = 终值”。 * 3 . While型循环语句 使用格式如下： While 条件 循环块 Wend 说明： 该语句也属于“当型循环”，类似于Do While…Loop