粤教版（2013）信息技术第二册 2.5 程序的分支结构 课件

第二册第二章 Private Sub Form_Click() guess = InputBox("请输入一个整数密码：", "密码") password = "123456" If guess = password Then Print "yes!your are win" End If If guess <> password Then Print "again please!" End If End Sub Dim x As Integer x = InputBox(“请你输入一个正整数", "输入一个正整数") If x> 0 Then Print "你真聪明！" Else Print “ 你动动脑筋啦，连什么是正整数都不懂！" End If If ＜条件＞ then < 语句块１> Else < 语句块２> End if 说明：如果条件成立(true)，则执行语句块１； 否则，执行语句块２； 条件的设置必须根据具体的问题而立。 条件成立 语句块１ 语句块２ 条件语句的下一语句 否 是 写出程序的运行结果： X=1 Y=2 If x>y then Print x,y Else Print y,x End if 1　2 ２　１ false 语句块１ 语句块２ X=2 Y=2 If x>＝2 then Y=X*X Endif Print x,y 2 4 分析程序: true Private Sub Form_Click() guess = InputBox("请输入一个整数密码：", "密码") password = "123456" If guess = password Then Print "yes!your are win" End If If guess <> password Then Print "again please!" End If End Sub x=inputbox(“请输入一个数”,”输入一个数”) If x>=0 Then Print “你动动脑筋！正数的绝对值是它本身" Print ”y=”;x Else Print "正确，你真聪明！负数的绝对值是它的相反数" Print “y=”;-x End If 修改程序，当r>2500和R<=100时输出”超出范围”： R=Inputbox(“输入圆的半径”,”半