《VB中的IF语句.ppt

选择结构与选择语句 单分支结构 单分支结构 单分支结构 计算机编程解决问题的过程 小结 课后作业 将“石头剪刀布”这个小游戏补充完整，要求用VB的IF条件句来实现。 VB 编 程 授课对象：高一学生 授 课 人 ：黄小君 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. VB中的选择语句 ——IF语句 用来解决有关选择结构的问题。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 选择结构 单分支结构 双分支结构 嵌套分支结构 If 条件 Then 语句A End If If 条件 Then 语句A Else 语句B End If (本节课的重点) Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. If 条件 Then 语句A End If If 条件 Then 语句A Else 语句B End If If和end if 要成对出现 是否为真？ 语句块 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 退出 是 否 退出为真？ Private Sub Command1_Click() If MsgBox(你真的要退出吗?, vbOKCancel, 退出) = vbOK Then End End If End Sub 流程图 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 你赢了 是 否 电脑出剪刀，你出石头 Private Sub Option1_Click() Dim c As String, d As String, e As String Dim a As Integer c = App.Path /1.jpg d = App.Path /2.jpg e = App.Path /3.jpg a = Int((3 * Rnd) + 1) Picture1(1).Picture = LoadPicture(App.Path \ a .jpg) 流程图 调取图片的路径 电脑随机出数（1,2,3） 显示电脑所出的图片 ‘石头用数字“1”表示，剪刀用“2”表示，布用“3”表示 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Picture1(0).Picture = LoadPicture(c) If c = App.Path /1.jpg And a = 2 Then Label4.Caption = 赢了 End If If c = App.Path /1.jpg And a = 3 Then Label4.Caption = 输了 End If If c = App.Path /1.jpg And a = 1 Then Label4.Caption = 打平 End If End Sub 电脑出剪刀，你出石头 电脑出布，你出石头 电脑出石头，你出石头 ‘石头用数字“1”表示，剪刀用“2”表示，布用“3”表示 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 分析问题 设计算法 编写程序 调试运行 检测结果 Evaluation only. Cr