理论-6循环结构.pptVIP

Dim cock As Integer, rabbit As Integer Dim tou As Integer, jiao As Integer tou = TextBox1.Text cock = 1 rabbit = tou - cock jiao = cock * 2 + rabbit * 4 For cock = 1 To tou rabbit = tou - cock jiao = cock * 2 + rabbit * 4 If jiao = TextBox2.Text Then TextBox3.Text = cock TextBox4.Text = rabbit Exit For End If Next If cock tou Then TextBox3.Clear() TextBox1.Clear() TextBox2.Clear() TextBox4.Clear() MsgBox(无法得出结果，请重新输入！) End If 等价改写 以1+2+……5来说明，可以在最后输出时加上i的输出。 * 参见求和，如果输出i，则为6，引导学生改代码，如果改成for i=5 to 1 step -1,s要变吗？最后，i是多少？ 如果s初值赋成1，则i初值是什么？循环多少次？ 把终止值设成多少就计算到多少的和，引导学生直接在代码上改成如果计算奇数求和或者偶数求和，代码怎么写，主要是初始值和循环条件怎么设置？循环了多少次？ 如果是求阶乘呢？怎么设定初值？ * * 对前面的语句进行修改，把求和、奇数和、偶数和、阶乘改成此种结构。 * 同样可以修改初值条件，如果i初值设成5，条件和循环体内部怎么改？ 或者把i=1,s=1，那么循环体条件和内部怎么改？或者i设成0，类似结论。 * 参见最大最小数。上课举例可以不用那么多数，3-4个就可以,演示结果中只给了三个数。 整理思路：首先要不断输入数据，不断比较就是一个循环过程 * 只需要考虑改变的情况，最大最小值不变的情况不用if判断，保留它不变就好了 * * 等价把以前的两个例子改成这种结构就行了。 有空可以考虑讲例5.11，但是其实根加法加到几就不加了是一样的。 * * 对上面的结构进行等价改写。 * 第二个例子等价改写。 Dim x As Single, Max As Single, Min As Single, k As Integer x = InputBox(请?输?入?第台?个?数簓) Max = x : Min = x K = 2 Do x = InputBox(请?输?入? Str(k) 个?数簓) If Max x Then Max = x If Min x Then Min = x k = k + 1 Loop While k = 3 Label1.Text = Max Label2.Text = Min * 参见求最小n值。 * * 参见鸡兔同笼。 * 比如输入了一些无法实现的情况，陷入了死循环，或者得到负数等。那么其实如果以cock来累试，注意cock条件应该小于头的个数，否则就没法得到结果，做出错处理就行，我们这里提示信息框，然后清空所有text。 * 第六讲 循环结构 For…Next循环 While…Wend循环 Do…Loop循环 例：求1+2+3+4+5的和 Sum=0 Sum=Sum+1 Sum=Sum+2 Sum=Sum+3 Sum=Sum+4 Sum=Sum+5 不断重复的语句： Sum=Sum+i i=i+1 一、For…Next循环 语句格式： For 循环变量=初值 To 终值 [Step 步长] 循环体 Next 循环变量 流程图 1）语句说明： ①语句中的参数（循环变量、初值、终值、步长）都是数值型。 ②步长为正数时，初值终值；步长为负数时，初值终值。step缺省时，步长的缺省值为1。 ③循环体是循环多次执行的程序段。 ④循环体循环的次数 =Int((终值一初值)/步长+1) 3）使用注意： ①如果步长为零，将产生死循环，即程序一直重复执行循环体。 ②在循环体内可多次引用循环变量，但不能改变它的值，否则影响原有的循环规律。 ③退出循环后，循环变量仍保持退出时的值。 Private Sub Form1_Click(ByVal sender As _ System.Obje