思考： 第六章 1.在窗体上显示1到500之间所有能被3整除 的数，每行10个数。 2.在带水平滚动条文本框中显示1到指定N 环结构程序设计 之间所有能被3和7同时整除的数。 3.在带垂直滚动条的文本框中显示03600 之间的正弦和余弦值，每隔2求一组值。 193 16
第 六 章 循 环 结 构 程 序 设 计 16 思考: 1. 在窗体上显示1到500之间所有能被3整除 的数，每行10个数。 2. 在带水平滚动条文本框中显示1到指定N 之间所有能被3和7同时整除的数。 3. 在带垂直滚动条的文本框中显示0 0~3600 之间的正弦和余弦值，每隔2 0求一组值
【例6-3】画出方程y=x3在[-10,10]区间的 曲线。 第六章 分析： 使用Scale(-10,1000)-(10,-1000)定义新坐标系 默认坐标系： 新坐标系： 循环结构程序设计 (-10,1000) 0.0 曲线 画曲线 ▣ (10,-1000) 17
第 六 章 循 环 结 构 程 序 设 计 17 【例6-3】画出方程y=x3在[-10，10]区间的 曲线。 分析: 默认坐标系： 新坐标系： (0,0) (-10,1000) (10,-1000) (0,0) 使用Scale (-10, 1000)-(10, -1000)定义新坐标系
代码设计： Private Sub Form ClickO 第六章 Scale(-10,1000)-(10,-1000) Form1.DrawWidth=3 循环结构程序设计 For x=-10 To 10 Step 0.1 y=xA3 PSet (x,y),vbRed Next x End Sub 193 18
第六章循环结构程序设计 18 代码设计： Private Sub Form_Click() Scale ( -10, 1000) -(10, -1000) Form1.DrawWidth = 3 For x = -10 To 10 Step 0.1 y = x ^ 3 PSet (x, y), vbRed Next x End Sub
思考题： 如何编写代码实现：运行时单击窗体 第六章 用PSet方法在窗体上绘制以下参数方程决 定的曲线： x=sin2t*cost 循环结构程序设计 y=sin2t*sint 其中t的取值范围为0≤长2m。 ▣x 83 19
第 六 章 循 环 结 构 程 序 设 计 19 思考题: 如何编写代码实现：运行时单击窗体 用PSet方法在窗体上绘制以下参数方程决 定的曲线： x=sin2t*cost y=sin2t*sint 其中t的取值范围为0≤t≤2π
练习：如何分析F0r循环程序的执行结果 1.下列程序段的执行结果为【】。 第六章 I=0 For G=10 To 19 Step 3 I=I+1 环结构程序设计 Next G Print I;G G? 10>19?13>19? 16>19? 19>19? 22>19? I 1 2 3 G+步长13 16 19 22 193 20
第 六 章 循 环 结 构 程 序 设 计 20 练习:如何分析For循环程序的执行结果 1．下列程序段的执行结果为【 】。 I = 0 For G = 10 To 19 Step 3 I = I + 1 Next G Print I; G G? I 10>19? 2 13 13>19? 1 16 16>19? 3 19 19>19? 4 22 22>19? G+步长