VB大纲6(循环结构).pptVIP

本章主要内容 循环结构 用For-Next语句实现循环结构 用Do While-Loop语句实现循环结构 嵌套的循环结构 循环结构 用For-Next语句实现循环结构 语句形式： For 循环变量=初值 to 终值 [Step 步长] [循环体] [Exit For] [循环体] Next 循环变量 用For-Next语句实现循环结构 2．语句说明： 当步长为正时，初值小于终值，反之初值大于终值；步长缺省时为1。 循环体由一条或多条语句组成。 执行到Exit For语句时退出循环，执行For语句的下一语句。 循环次数： 这里int为取整。 用For-Next语句实现循环结构 语句执行过程： 用For-Next语句实现循环结构 例一：求1+2+3+……+n的和。 设计： 1、设置一个变量sum，用来存放所 求的结果。 2、sum=1+2+3+4+……+100 3、或者sum=sum+0， sum=sum+1，sum=sum+2， sum=sum+3 …… 求1+2+3+……+100和的过程可以描述如下： Sum=Sum+1 Sum=Sum+2 Sum=Sum+3 …… Sum=Sum+100 步骤：1、设计如下界面： 代码：窗体级变量：Dim n As Integer Private Sub cmdinput_Click() n = Val(InputBox(请输入计算的数据：, 累计求和)) End Sub Private Sub cmdsum_Click() Dim sum As Integer Dim i As Integer For i = 1 To n sum = sum + i Next i MsgBox 数值1到数值 n 的和是： sum End Sub Dim i As Integer For i = 1 To n sum = sum + i Next i MsgBox 数值1到数值 n 的和是： sum End Sub 课堂练习 代码如下: Private Sub cmdsum_Click() Dim sum As Integer Dim i As Integer Dim n As Integer n = Val(Text1.Text) For i = 1 To n sum = sum + i Next i Text2.Text = sum End Sub 接上页代码： Private Sub cmdcls_Click() Text1.Text = Text2.Text = End Sub 实例拓展： 求1~100所有奇数的和。 求1~100所有偶数的和。 求1~10的乘积。 求1~100中所有被3整除的数的和。 求从1到100中进行累加，当和大于2000时退出，并求出相加的最后一个数是多少？ 实例4.1 代码编写 “计算”按钮完整代码: Private Sub cmdcal_Click() Dim i As Integer, sum As Long, n As Long n = Val(txtn.Text) For i = 1 To n sum = sum + i Next i txtsum.Text = sum End Sub 实例4.1 代码编写 “计算结果”框架中的标签（labn）内容随输入值变化的代码： Private Sub txtn_Change() labn.Caption = 1+2+3……+ txtn.Text End Sub 1*2*3……*100 Private Sub cmdCal_Click() Dim Fac As Integer Dim i As Integer Fac=1 For i = 1 To 100 Fac = Fac * i Next i lblSum.Caption = Fac End Sub 1！+2！+3！+……+15! Private Sub cmdCal_Click() Dim Fac As long, sum As long Dim i As Integer Fac=1 For i = 1 To 15 Fac = Fac * i