新Visual Basic程序设计实用教程 教学课件 刘瑶 第5章 程序控制结构.pptVIP

5.3 循环结构 概述 单击窗体，要求在窗体上显示6行星号 分析： 要求显示的信息是每行是由16个星号所构成的字符串，所以可以通过连续6次调用窗体的Print方法实现图形的显示 Private Sub Form_Click() Print **************** Print **************** Print **************** Print **************** Print **************** Print **************** End Sub 5.3 循环结构 概述 所谓循环结构，表示在执行语句时，需要对其中的某个或某部分语句重复执行多次。对于此类情况可以利用各种循环结构来实现。 循环结构可以分为For循环、 Do 循环和While循环语句结构。 5.3.1 For…Next循环 语法格式如下: 5.3.1 For…Next循环 5.3.1 For…Next循环 循环次数的两种特殊情况： 初值、终值和步长表达式中所包含的变量在循环体内被改变，也不会影响循环次数。 5.3.1 For…Next循环 当循环变量在循环体内被重新赋值，则会影响和改变循环次数。 5.3.1 For…Next循环 For循环实现：单击窗体，要求在窗体上显示6行星号 分析： 循环体：Print ****************，循环变量I表示输出行，从1变化到6，即循环变量I的初值为1，终值为6，步长为1，循环次数为6 Private Sub Form_Click() Dim I As Integer 定义一个循环变量I来控制输出的行数 当输出行数没有超过6行，就反复执行下面的语句 For I = 1 To 6 步长为1，可省略Step 1 Print **************** Next I 完成I根据步长完成递增，即I = I + 1，并返回到For行 End Sub 习 题 1. Private Sub Form_Click() For I=7 to 90 step 5 print I Next I End Sub 上述程序共执行执行循环体的次数是（） A) 14 B) 15 C) 16 D) 17 习 题 2. 在窗体上放置一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=5 For i = 1 to 20 Step 2 x = x + i \ 5 Next i Print x End Sub 程序运行后，单击命令按钮，输出结果为（） A） 21 B）22 C）23 D）24 习 题 3. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click( ) E = 1 : F = 1 For j = 1 To 3 E=E + F : F = F+ E Next j Print E;F End Sub A) 6 6 B) 5 8 C) 13 21 D) 34 55 习 题 4. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click( ) For j = 1 To 15 a = a + j Mod 3 Next j Print a End Sub A) 1 B) 15 C) 90 D) 120 习 题 5. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click( ) For j = 1 To 3 Print Tab(3 * j);(2 * j - 1) * (2 * j - 1) Next j Print End Sub A) B) C) D)