会考作品试主题.ppt

会考作品试主题 迎“2008北京奥运” 今年市计算机作品比赛主题 关注生态环境，打造绿色校园 今年我校五四科技节活动主题 请各位同学认真阅读初二级组公告栏上的计算机作品竞赛通知。 第六节 循环结构 复习：如何在VB中画一个圆？ Private Sub Form_Click() r = 500 Circle (2400, 2400), r End Sub 循环结构 Private Sub Form_Click()???for i=100 to 2000 step 100 r=i circle(2500,2500),r?? ??????next i????? ????End Sub 循环结构 Private Sub Form_Click()???for i=100 to 2000 step 100 r=i circle(2500,2500),r?? ??????next i????? ????End Sub 分析下面程序，看看有什么不同，运行结果又会怎样？ FOR i =100 TO 2000 step 100 R=i Circle (2500,2500),r Next i R=500 FOR i =100 TO 2000 step 100 Circle (2500,2500),r Next i 画一个同心圆 P50 实践3 Private Sub Command1_Click() X = 1500 Y = 2000 R = 500 For i = 100 To 1000 Step 100 X = X + 100 Circle (X, Y), R Next i End Sub 画一个放射圆 P50 实践4 Private Sub Command1_Click() X=500 Y=2000 R=500 FOR i =100 TO 1000 step 100 X=X+100 Circle (X,Y),I Next I End Sub 练习：计算1＋2＋3＋· · · · ·＋100的和 Private Sub Form Click() S=0 For i＝ l To 100 Step l S= S+l Next i Print” l十2十…十100”； s End sub 高阶：编写一个密码程序，如果输入3次密码都不正确，就无法关闭屏幕。 P50 思考： ( l) 8 8 8 (2) 10 10 7 70 4 280 (3) 16 (4) 2 1 4 2 8 3 16 4 32 5 64 6 128 7 P51 3． Private Sub Form _ click() m= l S= l For i= 2 To 64 m＝ m * 2 S二 S+m Next i Print”一共要放”； s；”颗麦子” End Sub * * 第二章 程序设计初步 (选学) 画圆语句 Circle( X , Y ), r 作用：以坐标位置（ X , Y ）为圆心，画一个半径为 r 的圆。 思考：编写一个画同心圆的程序 运行结果 讨论：一系列同心圆的特征？（圆心位置、半径的变化） 逐个圆画出来？可以用什么方法？ 你能看懂这个程序吗？变量I的作用？ 循环变量 初值 终值 循环体 步长 循环体 For…Next循环，属于计数型循环，在程序中实现固定次数的循环。 思考：本程序共画出了多少个同心圆？你是怎样得出答案的？ 循环结构的流程图 For-next 另一种循环语句do-while Do-while执行过程 如果要计算 l到100(包括100)的所有偶数和，只要将 Step l改为 Step2就可以了。 如果要计算 l到100(包括100)的所有奇数和，就要将 Step l改为 Step2，将 I = 1 改为 I = 2就可以了。 程序： Private Sub Picture1_Click() For i=1 to 3 r = InputBox(请输入屏幕密码, 屏幕密码) If r = 123 Then End Else a = MsgBox(密码输入不正确！) Form1.Show End If Next i End Sub *