碰壁的小球(张振永)题稿.ppt

如图：如何使小球不消失，在窗体中来回运动。 小结 1、If…Then…Else为关键字，中文含义为：如果…那么…否则。 2、条件为结果为逻辑型数据的关系表达式或逻辑表达式。 3、关键字Else后的内容可有可无。 4、行If语句格式就比较简单，Then后写语句或表达式，但必须在一行内写完，省去了End If语句；当然，执行完毕后，程序转向行If语句的后继（或后面）语句； 5、块If语句的Then后不能有任何语句或表达式，且最后必须有EndIf结尾。 * 中等职业学校- Visual Basic程序设计 * 中等职业学校-Visual Basic 程序设计 碰 壁 的 小 球 —条件判断结构 昌黎职业技术教育中心 张振永 提问： 1、程序中出现了哪些控件和属性? 形状控件 定时器 按钮 （left属性） （Timer事件） （Click事件) 2、我们用的什么样的结构来实现的 顺序结构 程序中有没有出现我们不想得到的结果？ 小球到达窗体边缘时消失不见了 我们有没有什么方法可以实现让小球不消失，而在窗体间来回运动呢？ 判断—小球到窗体边缘—改变运动方向 轻松一下 想一想： 我在这个游戏中都作了什么？ 条件判断结构 If…Then…Else If…Then…Else语句： 一、格式： 单行式： If 条件 Then 语句A Else 语句B 例1： If? a=b? Then? s=1? Else? s=-1 区块式： If 条件 Then 语句块A Else 语句块B End if 例2： If?d=10?and?d=100?Then? count=count+1? Else count=count—1 End If 你看出单行式和区块式语句的区别了吗？ 单行式IF语句必须在一行内写完 单行没有End If，而区块必须用End If结束 练 一 练 1、如果a+b值大于20，则输出a+b的值，否则输出a—b的值。（单行式） 2、如果a和b的同时大于10，则输出a+b的值，否则输出a—b的值。（区块式） 回归任务 判断小球的Left属性与窗体的ScaleWith属性的关系，能够得出小球是否碰壁。这里面是否还需要其他的属性？ 怎么才能使小球到达窗体边缘时，往回运动，我们判断的依据是什么？定时器有开关，小球运动时需要开关吗？如果需要怎么设置？ 让我们以热烈的掌声欢迎 一位同学输入自己的程序代码。 将小球碰壁程序进行修改，实现小球在两条线之间运动。 （提示：线的位置属性） 小球能否实现沿一条线进行运动。