vb循环结构程序设计-1.ppt

第4章 循环结构程序设计 本章内容 循环结构 用For-Next语句实现循环结构 用Do While-Loop语句实现循环结构 嵌套的循环结构 循环结构 用For-Next语句实现循环结构 语句形式： For 循环变量=初值 to 终值 [Step 步长] [循环体] [Exit For] [循环体] Next 循环变量 用For-Next语句实现循环结构 语句说明： 循环变量必须为数值型。 当步长为正时，初值小于终值，反之初值大于终值；步长缺省时为1。 循环体由一条或多条语句组成。 执行到Exit For语句时退出循环体，执行For语句的下一语句。 循环次数： int为取整。 用For-Next语句实现循环结构 语句执行过程： 用For-Next语句实现循环结构 【实例4.1】求1+2+3+……+n的和。窗体界面如图4-2 实例4.1 代码编写分析 求1+2+3+……+100的和，描述如下： Sum=Sum+1 Sum=Sum+2 Sum=Sum+3 …… Sum=Sum+100 实例4.1 代码编写 【实例4.1】界面设计 实例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）内容随txtn输入值变化 Private Sub txtn_Change() labn.Caption = 1+2+3……+ txtn.Text End Sub 问题：修改程序 （1）单击“计算”按钮时，检测n的值，如果为空或不合法，弹出提示对话框 实例4.1 代码编写 Private Sub cmdcal_Click() Dim i As Integer, sum As Long, n As Long If txtn.Text = Then MsgBox 请输入一个正整数, vbOKOnly, 提示信息 txtn.SetFocus Else n = Val(txtn.Text) For i = 1 To n sum = sum + i Next i txtsum.Text = sum End if End Sub 实例4.1 代码编写 问题：修改程序 （2）计算完毕后， “计算”按钮的标题改为“清空”，同时两个文本框的内容清空 如何检测按钮的状态是需要显示“计算”还是 “清空”？ 解决方法：设置一个布尔变量true对应“计算”，false对应“清空” 例：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 sum=sum+Fac Next i lblSum.Caption = sum End Sub 用While语句实现循环 语句形式： While 条件 [循环体] Wend 语句说明： “条件”一般为条件表达式，结果为布尔变量True或False。 “条件”用于控制“循环体”是否执行。 多用于循环次数不定的情况。 用While语句实现循环 语句执行过程： 用While语句改写实例4.1 “计算”按钮完整代码: Private Sub cmdcal_Click() Dim i As Integer Dim sum As Long, n As Long n = Val(txtn.Text)