分支结构程序

www.niuwk.com 牛牛文库文档分 享
学生(任务二)
x=inputbox(“请输入一个数”,”输入一个数”) If x>=0 Then Print “你动动脑筋！正数的绝对值是它本身" Print”y=”;x Else Print "正确，你真聪明！负数的绝对值是它的相 反数" Print “y=”;-x End If
条件语句的格式
是
If ＜条件＞ then < 语句块１> Else < 语句块２> End if
条件成立
否
语句Hale Waihona Puke Baidu１
语句块２
条件语句的下一语句
说明：如果条件成立(true)，则执行语句块１； 否则，执行语句块２；
www.niuwk.com 牛牛文库文档分 享
条件的设置必须根据具体的问题而立。
练习
写出程序的运行结果： X=1 false Y=2 If x>y then Print x,y 语句块１ Else 语句块２ Print y,x End if
学生任务(四)
上机练习（p46,2,3)
www.niuwk.com 牛牛文库文档分 享
作业
下列程序实现什么功能？写出程序的结果： x=5 y=2 if x>y then x=x+y print x,y else y=x+y print y,x end if
www.niuwk.com 牛牛文库文档分 享
小结
1、分支程序的执行顺序和书写格式：
If ＜条件＞ then < 语句块１> Else < 语句块２> End if 2、条件的判断和设置必须具备一些知识：数学 知识，表达式的运算等。
www.niuwk.com 牛牛文库文档分 享
www.niuwk.com 牛牛文库文档分 享
修改程序(任务三)
修改程序，当r>2500和R<=100时输出”超出范围”： R=Inputbox(“输入圆的半径”,”半径” ) If r>200 then Print “超出范围” Else Circle(2500,2500),r End if
www.niuwk.com 牛牛文库文档分 享
分支结构程序例题二
Dim x As Integer x = InputBox(“请你输入一个正整数", "输入一个 正整数") If x> 0 Then Print "你真聪明！" Else Print “ 你动动脑筋啦，连什么是正整数都不懂！" End If
www.niuwk.com 牛牛文库文档分 享
结果: ２
www.niuwk.com 牛牛文库文档分 享
１
分析程序:
X=2 Y=2 true If x>＝2 then Y=X*X Endif Print x,y 2 4
www.niuwk.com 牛牛文库文档分 享
学生体验密码程序(任务一)
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