VB中的if语句应用.pptVIP

VB中的IF语句应用 ——用VB编程实现锤子、剪刀、布游戏 计算机解决问题和人解决问题一样需要有清晰的解题步骤。而对于计算机而言，这种解题步骤就称为算法。 计算机编程解决问题的过程 这个程序中人和计算机每次都有3种出牌的可能，那么如何编写程序最方便呢？（引导学生思考？） 我们就把这3个图片形象的用3个数字来代替，这样就使我们的编程更容易实现。 我们这样进行约定：（这个约定一定要唯一吗？） 这个程序我们要用到哪些呢？ 随机函数 Randomize ‘随机函数初始化 Int(3 * Rnd) + 1 电脑随机出数（1，2，3任选其一） If 语句 格式(一) 1、单语句： if? 条件 then 一条语句 必须写在同一行里 2、块语句 if? 条件 then????? 多条语句 end if 程序剖析实例： ‘定义变量，sum表示总局数，w表示你赢的局数，d表示平局数，L表示你输的局数 Dim sum As Integer, w As Integer, d As Integer, L As Integer Private Sub Image1_Click() ‘定义变量，x表示电脑出的数字，y表示你出的数字 Dim x As Integer, y As Integer ‘总局数+1 sum = sum + 1 ‘随机函数初始化 Randomize 电脑随机出数（1，2，3任选其一） x = Int(3 * Rnd) + 1 ‘我出的数字（锤子） y = 1 ‘在左边的框架里显示出你出的图片 Image4.Picture = Image1.Picture ‘计算机出的和你相同 If x = y Then ‘label1显示平局 Label1.Caption = 平局“ ‘在右边的框架上显示出电脑出的图片 Image5.Picture = Image1.Picture ’累加平局次数 d = d + 1 ‘结束if语句 End If 你出锤子，计算机出剪刀 If x = 2 Then ‘label1显示你赢了 Label1.Caption = “你赢了“ ‘在右边的框架上显示出电脑出的图片 Image5.Picture = Image2.Picture ’累加你赢了的次数 w = w + 1 ‘结束if语句 End If ‘你出锤子，计算机出布 If x = 3 Then ‘label1显示你输了 Label1.Caption = 你输了“ ‘在右边的框架上显示出电脑出的图片 Image5.Picture = Image3.Picture ’累加你输了的次数 L = L + 1 ‘结束if语句 End If 其他两个应该怎么编呢？？？ 小结 计算机解决问题和人解决问题一样需要有清晰的解题步骤。而对于计算机而言，这种解题步骤就称为算法。 计算机编程解决问题的过程 思考1 1、不用统计按钮，直接显示 思考2 用了三个if语句，可不可以用一个if语句就可以完成呢？ * * 分析问题 设计界面 编写代码 调试运行 检测结果 分析问题 设计算法 编写程序 调试运行 检测结果