第4章(讲课2次,上机1次)

程序说明
For-Next常用于循环次数已知的循环中 For-Next常用于循环次数已知的循环中 常用于循环次数已知 循环体语句可以是一条或多条语句 循环体语句可以是一条或多条 一条或多条语句 可以使用Exit For语句提前结束循环 可以使用Exit For语句提前结束循环 语句提前结束
For i =1 To 10 x = x + Int( Rnd * 100 ) sum = sum + x If sum > 300 Then Exit For End If Next i Print sum
循 环 控 制 变 量
程序说明
用于存放和值的变量 sum应在循环累 用于存放和值的变量sum 应在循环累 加前赋予初值0 加前赋予初值0 在VB中，对于Integer型变量系统默认 VB中 对于Integer型变量系统默认 其初值为0 其初值为0 程序中省略了语句sum = 0 程序中省略了语句sum
处理第2个数据 处理第2
9 次
程 序 代 码
Private Sub cmdMax_Click() Dim a As Integer, i As Integer, max As Integer Randomize a = Int(Rnd * 100) + 1 lblData.Caption = a max = a For i = 1 To 9 重复执行9 重复执行9次 a = Int(Rnd * 100) + 1 lblData.Caption = lblData.Caption & "," & a If a > max Then max = a End If 求1000个数 个数 Next i 中的最大? 中的最大 lblMax.Caption = max End Sub
15条彩色线段 15条彩色线段
10个彩色圆 10个彩色圆 200个位置随机 200个位置随机 的彩色点
编程点拨
（1）画1个点
设画笔宽度
frmEx4_4.DrawWidth frmEx4_4.DrawWidth = 5 x = 500 : y = 500 : a = 1 PSet (x, y), QBColor(a) Pset (画点坐标 , 画点颜色 画点坐标) 画点坐标 QBColor(颜色值 颜色值) 颜色值
练习
计算1+3+5+…+99的值 计算1 99的值 计算100+90+80+…+10的值 计算100+90+80+ 10的值
P128
【例4.2】计算1！+2！+……+n！的值。 4.2】计算1 +2！+……+n！的值。 (1≤n≤20)
超范围
显示计算结果
编程点拨
(1) 求阶乘运算：1×2×3×…×n 求阶乘运算： s = 1 '存放乘积 '存放乘积 For i=1 To n 初值为1 初值为1 s = s * i Next i
P125
第4章 循环结构程序设计
4.1 For-Next 语句 For4.2 Do While-Loop和Do-Loop While语句 While-Loop和DoWhile语句 4.3 循环语句的嵌套
P126
4.1 For-Next 语句（第10次课） For语句（ 10次课 次课）
【例4.1】计算1+2+3+…+100的值。 计算1 100的值 的值。
P130 找最大值。 【例4.3】找最大值。单击最大值按钮时产 10个 100之间的随机整数显示在框 生 10 个 1 ～ 100 之间的随机整数显示在框 架内的标签中， 架内的标签中 ， 同时将最大值显示在下 方的标签内。 方的标签内。
编程点拨
处理第1个数据 处理第1
– – – – – – a = Int(Rnd * 100) + 1 产生一个随机数，存放在变量a 产生一个随机数，存放在变量a中 lblData.Caption lblData）中 显示在标签（lblData） 将a显示在标签（= a 作为当前最大值放在变量max中 将a作为当前最大值放在变量max中 max = a 产生新的随机数，存放在变量a 产生新的随机数，存放在变量a中 a = Int(Rnd * 100) + 1 连接显示在标签（lblData） 将a连接显示在标签（lblData）原有内容之后 lblData.Caption = lblData.Caption & "," & a 如果a大于max，则将a作为最大值放在max中 如果a大于max，则将a作为最大值放在max中 If a > max Then max = a End If
书写位置？ 书写位置？
For – Next 循环的一般语法格式
For 循环变量 = 初值 To 终值 Step 步长
成 对 出 现
循环体语句 Next [循环变量] 循环变量]
步长为1 步长为1时可省略 步长可取正或负数； 步长可取正或负数； 循环变量值介于初 步长为负时终值应 值和终值之间时反 小于初值 复执行
编程点拨
绘制直线或矩形
Line (起点坐标)-(终点坐标) , 颜色 [ , B[F]] (起点坐标 终点坐标) 起点坐标)
绘制圆
Circle (圆心坐标) , 半径 , 颜色 (圆心坐标 圆心坐标)
程 序 代 码
Private Sub cmdDot_Click() Dim x As Integer, y As Integer Dim a As Integer, i as Integer frmEx4_4.Cls 绘制前先清屏 frmEx4_4.DrawWidth = 5 Randomize For i = 1 To 200 x = Rnd * frmEx4_4.Width y = Rnd * frmEx4_4.Height a = Int(Rnd * 16) PSet (x, y), QBColor(a) Next i End Sub
For — Next 语句的执行过程
变量 i 赋初值1 赋初值1
No
变量 i 加1
1<= i <= 100
Yes
sum = sum + i
程序代码
Private Sub cmdCal_Click() Dim sum As Integer Dim i As Integer For i = 1 To 100 sum = sum + i For 语句 Next i 循环体语句 lblValue. lblValue.Caption = sum End Sub 可省略
编程点拨
（3）画不重叠、多色的200个点 画不重叠、多色的200个点
For i = 1 To 200 frmEx4_4.DrawWidth = 5 x = Int(Rnd * frmEx4_4.Width) frmEx4 随机生成 y = Int(Rnd * frmEx4_4.Height) frmEx4 一组坐标 16) 产生随机颜色值 a = Int(Rnd * 16) PSet (x, y), QBColor(a) QBColor(a Next i
s=1 程序代码 For i = 1 To n Private Sub cmdCal_Click() s=s*i Dim sum As= sum + ss As Double sum Double, Dim n Asi Integer, i As Integer Next n = lblOut.Caption = sum Val(txtIn.Text) If n >= 1 And n <= 20 Then 计算阶乘之和并输出 Else 显示出错消息框 准备接受用户的再次输入 End If End Sub
单击时在标签中 显示计算结果
算法分析：计算1+2+3+…+100的和 算法分析：计算1+2+3+…+100的和
sum sum sum ┋ sum = 0 = sum + 1 For i = 1 To 100 sum = sum + i = sum + 2 概括 Next i = sum + 100 变化到100 从1变化到100
编程点拨
（2）画200个点 200个点
For i = 1 To 200 frmEx4_4.DrawWidth = 5 x = 500 : y = 500 : a = 1 PSet (x, y), QBColor(a) Next i
存在的问题：200个点重叠且同一颜色 存在的问题：200个点重叠且同一颜色
调试方法介绍 —— 设置断点
通过设置断点， 通过设置断点，使程序运行到指定 的代码行时暂时停止， 的代码行时暂时停止，并切换到中断模 式，等待调试人员作进一步的分析和判 从而确定出下一步的调试任务。 断，从而确定出下一步的击
课堂练习2 课堂练习2
单击窗体
清空窗体
教学总结
1．For-Next 语句的一般格式 ． 2．求累加和、阶乘的算法 ．求累加和、 3．求最大值的算法 ． 4．设置断点调试程序的方法 ．
作业
习题4中：第3、4题 习题 中 、 题 课堂上未做完的内容
预习
例4.4~例4.7 例
（第11次课） 11次课 次课）
P132
【例4.4】在窗体上随机绘制彩色的点、直 4.4】在窗体上随机绘制彩色的点、 线或圆。 线或圆。
连 乘 算 法
编程点拨
(2) 使用累加算法计算阶乘之和 s = 1 For i = 1 To n s = s * i
累加阶乘值s 累加阶乘值s